2007ǯ08��02�� 23:42
ư���ʤä�Script��ư���褦�˽������Ƥ�����Ȥλ���֥ǥХå��פȸƤӤޤ���
�ǽ�κ��ϥ��顼���Фơ�ư���ʤ���ͳ��ʬ���餺�˶�ϫ���뤳�Ȥ�¿������Ȼפ��ޤ�������������ϫ�����������뤿��ˤ⡢���顼���Фʤ��褦�˽񤤤Ƥ�����ˡ���ٶ����Ƥ����ޤ��礦��
�ޤ��ϡ�¸�ߤ��ʤ��᥽�åɤ�ץ��ѥƥ���ƤӽФ����ݤ˽Ф�ٹ�򸫤Ƥߤޤ��礦���������Ѹ줬�ФƤ��ޤ����Τ������򤷤Ƥ����ޤ���
�᥽�åɤȤϡ����֥������Ȥ����äƤ��뵡ǽ��̾�ΤΤ��Ȥǡ���������Ȥ���ƥ����ȥե졼����ư�������ꤹ��Ȥ��˻Ȥ���ΤǤ���
�ץ��ѥƥ��Ȥϡ����֥������Ȥ����äƤ����ͤΤ��Ȥǡ��ƥ����ȥե졼������Ϥ���Ƥ���ʸ�����ƥ����ȥե졼��κ�ɸ�����ʸ���ʤɤΤ��ȤǤ���
�Ǥϡ�����̾�Τ�Sub�ץ������㡼���äƤ���������
Sub �ǥХå��Τ��ٶ�()
���ơ����˼��������ɤ����Ϥ��Ƥ���������
Dim MyInDesign As InDesign.Application
Set MyInDesign = CreateObject("InDesign.Application.CS")
With MyInDesign
Set MyDoc = .Documents.Add
MyDoc.SaveAs "C:\test.indd" '��¸
Set MyDoc = Nothing
End With
Set MyInDesign = Nothing
�åµï¿½Î¥ï¿½ï¿½ï¿½ï¿½É¤Ç¤Ï¿ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Ë¡ï¿½ï¿½ï¿½Ð¸ï¿½ï¿½ï¿½ï¿½Þ¤ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ò¤·¤Æ¤ï¿½ï¿½ï¿½ï¿½Þ¤ï¿½ï¿½ï¿½
�����ܤ�With MyInDesign�Ȥ�����ʸ�Ǥ�������ά����Ȥ��ε�ˡ�ˤʤ�ޤ������裴���ܤòµ½Ò¤ï¿½ï¿½ï¿½È¤ï¿½ï¿½Ï¡ï¿½Set MyDoc = MyInDesign.Documents.Add�ȵ��Ҥ���ΤǤ�����MyInDesign�òµ½Ò¤ï¿½ï¿½ï¿½Î¤ï¿½ï¿½ï¿½ï¿½Ý¤Ê¤Î¤Ç¡ï¿½With�֥��å��ǻ��ꤷ�Ƥ��ޤ�����ʸ�Ǥϣ��Ԥ����оݤˤʤ륳���ɤ�����ޤ��󤬡����줬��ɴ������⤢������ѤǤ��������With�֥��å���ξ�ά�ˤĤ��ƤϹ�®���Ǥ���Ȥ����֤�����������ŵ�⤢��ΤǤ�������With ���Ȥ�����ʸ��End With���ñ¤«¤ï¿½Æ¤ï¿½ï¿½ï¿½Ô¤ï¿½ï¿½ï¿½ï¿½Þ¤ï¿½Í���ˤʤ�ޤ��Τǡ������ϰ���ǡ�.�٥����ò²¡¤ï¿½ï¿½È¡ï¿½Application���饹�Υץ��ѥƥ���᥽�åɤ�ɽ�������褦�ˤʤ�ޤ�������ε����Ǥ�¿�Ѥ��Ƥ����Ǥ������Ȼפ��ޤ��Τǡ��־�ά��ˡ�ʤ���ʡפȻפä�ĺ����з빽�Ǥ���
�Ǥϡ�Script��ή��������������ޤ��������ܤǿ����ɥ�����Ȥ��äƻ��ȤǤ���褦��MyDoc�˳�Ǽ���Ƥ��ޤ��������ܤ�MyDoc.SaveAs����¸������File��Path��"C:\test.indd"�ˤ���ꤷ����¸���褦�Ȥ��Ƥ��ޤ���
�¤Ϥ��Σ����ܤ����顼��ľ�ܸ����ȤʤäƤ��ޤ���
���顼����ͳ�ϡ�MyDoc�˳�Ǽ�����ɥ�����ȤΥ᥽�å�SaveAs��ƤӽФ����Ȥ��Ƥ��ޤ��������Υ᥽�åɤ�¸�ߤ��ʤ��Τǥ��顼�Ǥ����Ȥ�������VBE�������Ƥ��줿�ΤǤ������ơ�����Υ᥽�åɤϲ����ä��ΤǤ��礦�����������Ĵ�٤���ˡ������ޤ��Τǡ����β��̤򸫤Ʋ�������
���β��̤ϡ����֥������ȥ֥饦���Ȥ����ޤ��������ץ饤�֥���������줿�ץ��ѥƥ���᥽�åɤ򸡺����뤳�Ȥ��Ǥ��ޤ���
���������˥塼��ɽ��(V)�����֥������ȥ֥饦��(O)�ۤ����򤷤ޤ���
���Υ��֥������ȥ֥饦���ϡ�F2�٥����򲡤����ȤǤ�ɽ���Ǥ��ޤ���
���̤Ǥϥ��֥������ȥ֥饦���Υ�����ɥ�����Υ���ܥܥå����򥯥�å��������ֽ꤬ɽ������Ƥ��ޤ���InDesign���ϥ��饤�Ȥ��Ƥ��ޤ����������ˤϻ�����������򤷤������ץ饤�֥�꤬ɽ������ޤ�����������򤷤Ƥ��ʤ����ˤ�InDesign�����٤ޤ���Τǡ���������򤷤Ƥ����Ƥ��������͡�
InDesign�����֤ȡ�������InDesign���������Ƥ��륯�饹�ΰ�����ɽ������ޤ��������ˤϺ��������򤷤����饹�Υ��Ф�ɽ���������ȤߤˤʤäƤ��ޤ������Фˤϥ᥽�åɤȥץ��ѥƥ���ξ����ɽ������ޤ���
�Dz����Υ��졼���ΰ�ˤϡ����Ф�ɽ�����줿�ץ��ѥƥ���᥽�åɤ���������ʸ��ɽ������ޤ���
�Ǥϡ�InDesign�Υ����ץ饤�֥������򤷤��Τǡ��������᥽�åɤ�õ���ޤ��礦��
���̤θ����ܥå����˥�����ɤȤ��ơ�Save�פ����Ϥ��ơ�Enter�٥����򲡤��Ʋ���������SaveAs�פǸ������Ƥ����Ǥ��衣
���̤��ڤ��ؤ�ꡢ������̤ˤ����Ĥ��Υ��Ф�ɽ������ޤ��������Υ��Фˤ�SaveAs�Ϥ���ޤ��󡣤Ǥ����饨�顼��ɽ�����줿��Ǥ��͡�
�������ϡ�Save�פǤ������Dz����������ˤϱ�ʸ�ǰ����ˤĤ��ƽ񤫤�Ƥ��ޤ������ܾϤǤϿ���ޤ��󡣥��֥������ȥ֥饦�����Ĥ��Ʋ�������
�����ܤ�SaveAs��Save�˽������Ƽ¹Ԥ��Ƥߤޤ��礦����������������λ�����C�ɥ饤�֤�test.indd�Ȥ����ɥ�����ȥǡ�������¸����Ƥ���Ȼפ��ޤ���
����������������������
�ޤ������ξϤ��ٶ������ߤ��������⤦���Ĥ���ޤ�������ϥ���ƥꥻ�󥹵�ǽ��ե�˳��Ѥ��뤳�ȤǤ������⤽�⥤��ƥꥻ�󥹵�ǽ��ȤäƵ��Ҥ��Ƥ���С���ҤΤ褦�ʥ��顼�ϵ��������ʤ��ΤǤ���
����Ǥϴְ�äƤ���Script��⤦���ٽ������Ʋ�������
Dim MyInDesign As InDesign.Application
Set MyInDesign = CreateObject("InDesign.Application.CS")
With MyInDesign
�����ޤǤ����̤˵��Ҥ��ޤ��������ܤ��ѿ�MyDoc�ˤ�Document������뤳�Ȥ�ʬ���äƤ��ޤ��Τǡ�MyDoc�η��ʼ���ߤ����ʥ�ΤǤ��ˤ�InDesign.Document�Ȥ���������ޤ��礦�������ܤ����˼��Σ��Ԥ�����뤳�Ȥˤ��ޤ���
Dim MyDoc As InDesign.Document
�������������뤳�Ȥˤ�äơ�MyDoc��InDesign��Document���Ǽ�����ѿ��Ȥ����������뤳�Ȥˤʤ�ޤ������ιԤ�ä��뤳�Ȥ�MyDoc�ˤ⥤��ƥꥻ�󥹵�ǽ��Ư���褦�ˤʤ�ޤ���
���Σ����ܤϤ��ΤޤޤǣϣˤǤ���
Set MyDoc = .Documents.Add
�Ǥϸ��Σ����ܤ�MyDoc�θ�Ρ�.�٤����򤷤ơ�����ˡ�.�٥����򲡤��ƥ���ƥꥻ�󥹵�ǽ�β��̤�ɽ�������ޤ��礦��
���̤ǤϽ�������SaveAs�ι��ܤ�Save�ˤ������Τǡ�Save��ϥ��饤��ɽ�������Ƥ��ޤ����ϥ��饤�Ȥ��������Tab�٥����򲡤��Ʋ���������Enter�٤򲡤��ȡ����Ԥ���Ƥ��ޤ��ޤ��Τ����դ��Ʋ�������
MyDoc.Save "C:\test.indd" '��¸
����ʹߤˤϽ���������ޤ���Τǡ����Τޤޤˤ��Ƥ����ޤ��礦��
Set MyDoc = Nothing
End With
Set MyInDesign = Nothing
2007ǯ07��29�� 23:28
���Ƴ�����ϡ֥ޥ����פȤ������դ�ʹ���ˤʤä����ȤϤ���ޤ��Ǥ��礦���������Ρ֥ޥ����פȤ����Τϡ����ץꥱ�������������ޤ��ϳ������饳��ȥ����뤹�뤿�����ˡ�ʤΤǤ���������Ϥ��Υޥ�����Ȥä�InDesign��������ȥ����뤷�褦�Ȥ������Ǥ���
�Ϥ��InDesign�򥳥�ȥ����뤹��Τǡ��Ǥ���г�ȯ�Ķ����Ѱդ������������Ǥ�������������̣������ֺܹ¤Ǥ�Office���ʷ���VBE��Ȥä�InDesign�򥳥�ȥ����뤷�Ƥ����Ȥ������ץ������򤷤Ƥ��ޤ���
�Ǥ�Excel��ư���Ƥ�������������˥ޥ�����񤯤����VBE��ư���ޤ���
���������˥塼�ڥġ���(T)���ޥ���(M)��Visual Basic Editor(V)�ۤ����򤷤ޤ����ǥե���ȤΥ��硼�ȥ��åȤǤϡ�Alt+F11�٤Ǥ����顢���Υ��硼�ȥ��åȤdzФ���ĺ���������פǤ���
���̤��ڤ��ؤ�äơ�Microsoft Visual Basic�פȤ���������ɥ����������Ȼפ��ޤ���
�Ǥϡ֥ץ��������ȥ�����ɥ��פǤ�����Book1�Ȥ���xls�ե������ɸ��ǣ��ĤΥ����Ȥ���Ķ�����ξ�硢�����Τ褦��Sheet1����Sheet3�ޤǤ��Ѱդ���ޤ���������ThisWorkbook�Ȥ�����Τ��Ѱդ���ޤ���
�����ThisWorkbook�˥ޥ�����񤯤��Ȥˤ��ޤ��Τǡ�����ThisWorkbook����֥륯��å����Ƥ����Ƥ���������
���ơ����٤ϡֻ�������פ򤷤ޤ���
���������˥塼�ڥġ���(T)����������(R)�ۤ����򤷤ޤ���
���β��̤�ɽ������ޤ���
��������ˤĤ��ƤǤ�����InDesign��Script��񤯤Ȥ��˥������䴰�ʥ���ƥꥻ�󥹤ȸƤФ�Ƥ��ޤ����ˤ�����������ʤΤǡ�Script����������ꤷ�Ƥ����ޤ��礦��
���̤Ǥϡ�Adobe InDesign CS Type Library�פ˥����å��򤷤ޤ����������������InDesign��Version�ˤ�äƤϲ��̤�ɽ�����㤤�ޤ��Τǡ��оݤȤʤ�InDesign��Version������Ǥ���������
�����å�������ϣ˥ܥ���򲡤�������ϴ�λ�Ǥ���
����ThisWorkbook����֥륯��å����Ƥ����Ƥ�餤�ޤ����������֥륯��å�����ȿ�����������ɥ��������ƥ������뤬Ω���ޤ���������ʬ�˰ʲ��Τ褦�����Ϥ��ƤߤƤ���������
Sub InDesign�ǿ���ʸ����������
�����ޤ����Ϥ������Enter�٥����򲡤��Ʋ�������
��ưŪ��()��Sub�ι������ղä��졢�����End Sub�Ȥ����Ԥ�������������ޤ���
����Sub����End Sub�ޤǤ�Sub�ץ������㡼�ȸƤӤޤ���
���δ֤˼ºݤΥ����ɤ�񤤤Ƥ����ޤ���
���̤Ǥ�����ޤ����Ϥ��Ƥ�����֤ˤʤäƤ��ޤ��Τǡ�Ʊ���褦�˼��ιԤ����Ϥ��Ƥ�����������IME��Off�ˤ��Ƥ������ɤ��Ǥ���
Dim MyInDesign AS InDesign
�����Ϥ������.�٥����򲡤��Ʋ����������̤��Ѳ����ޤ������줬����ƥꥻ�󥹤��Ƥ����Ǥ������Τޤ�³���ơ�App�٤����Ϥ���Ȥ�����ʬ�ޤǰ�ư���Ƥ���ޤ���Application���ϥ��饤�Ȥ����顢��Enter�٥����򲡤��Ʋ�������
���ιԤ˥������뤬��ư���ޤ��Τǡ����Τ褦�����Ϥ��Ƥ���������
Set MyInDesign = CreateObject("InDesign.Application.CS")
�����Ϥ��������InDesign��Version�ˤ�äƽñ¤´ï¿½ï¿½ï¿½ï¿½Æ²ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½
�ޤ��Ť��Ķ�����������ä���뤫�⤷��ޤ���Τǡ�Version2�������񤤤Ƥ����ޤ���
Set MyInDesign = CreateObject("InDesign.Application.2.0J")
InDesignCS�ʤ�Set MyInDesign = CreateObject("InDesign.Application.CS")
InDesignCS2�ʤ�Set MyInDesign = CreateObject("InDesign.Application.CS2_J")
InDesignCS3�ʤ�Set MyInDesign = CreateObject("InDesign.Application.CS3_J")
�ǣϣˤǤ������Ĥ�Version�������󥹥ȡ��뤷�Ƥ��ʤ��ΤǤ���С����Τ褦�˽񤯤��Ȥ�Ǥ��ޤ���
Set MyInDesign = CreateObject("InDesign.Application")
�ǿ���Version��InDesign����ư��ư���ޤ�������ޤǽ񤤤Ƥ���InDesign�򥳥�ȥ����뤹�뵻�Ѥ�ActiveX/Com�ȸƤӤޤ��������ȥ᡼�����ޤ��ϥ��å���ư�ʤɤȤ�ƤӤޤ���
���ơ�Sub�ץ������㡼��Dimʸ��Setʸ�Σ��Ԥ����Ϥ��ޤ����������줬InDesign�򥳥�ȥ����뤹�����¤�����Ǥ�������ϴ��ܤǤ��Τǡ����ԥڤ������ϡ��Ѥ路���Ƥ��Ǥ�����dzФ��Ʋ������͡��Ǥ���®�����դ��򤷤Ƥ����ޤ��礦�������ܤ˼��Τ褦�����Ϥ��ޤ���
MyInDesign.Documents.Add
�����ܤ˼��Τ褦�����Ϥ��ޤ���
Set MyInDesign = Nothing
���̤Ǥ����Ϥ�����ä����֤򼨤��Ƥ��ޤ���
�ʾ��Script���������ޤ�������®�¹Ԥ��ƥƥ��Ȥ��Ƥߤ뤳�Ȥˤ��ޤ��礦��
���̤Τ褦�˱����ѤΥ�������򥯥�å����뤫���ץ������㡼��˥���������֤����ޤޡ�F5�٥����򲡤��ƥޥ����μ¹Ԥ򤷤Ƥ�����������꤯InDesign����ư���ƿ���ʸ�񤬺�������Ƥ���������Ǥ���
���ǽ�κ��ϼ��Ԥ�Ϣ³�ǡ��ޥ˥奢�뤬����Ǥ��ʤ����ºݤ�ư�����Ƥ⥨�顼Ϣȯ������������⡼�������Ȥ������֤Ǥ�����
����ʻ䤬���ͤˤ�����ĺ�����Τ�������Í̾�ʡ�PageMaker & InDesign Scripting�פȤ��������ȤǤ��������Υ����Ȥˤϼ������ץȤ�������Ǿ���������Ƥ������ˤ��ɤ��夤���ΤǤ������ºݤ�InDesign�ò¥³¥ï¿½È¥ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Æ¤ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½VB�dz�ȯ���줿���ʤɤ��Τäơ�������뵤�ˤʤä��Τ�פ��Ф��ޤ���
�ٶ����Ƥ�˥���ץ�Script��CD-ROM���饳�ԡ����Ƥ��ơ���ʸ���ɤ߲ò¤¤Þ¤ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Ë¡ï¿½ï¿½ï¿½ï¿½Î¥ï¿½ï¿½ï¿½×¥ï¿½Ë½ï¿½ï¿½ï¿½ï¿½Ë¥ï¿½ï¿½ï¿½ï¿½É¤ï¿½Ñ¤ï¿½Â���ơ��̤ε�ǽ��Script�˻�Ω�Ƥ������⤷�ޤ�����
����ʤ���ʤǼ��ѤȤϸ����ʤ�����ɤ⡢��������ˤ���֥���ץ�Script������Ƥ����Τǡ�Script�Υ����Ȥ�Ω���夲�ޤ�����
����Ū�ʴĶ������ˤ��InDesign2����InDesignCS�˰ܹԤ��������ܳ�Ū��Script�˥ϥޤ뤳�Ȥˤʤ�ޤ���������Script���äƤϺ����ô�ò¸º¤é¤»ï¿½ï¿½è¤¦ï¿½Ë¤Ê¤ê¡¢ï¿½ï¿½ï¿½Ç¤ï¿½ï¿½ï¿½Í��ΰƷ�˺ǽ餫��Script���ä��б��Ǥ����٥�ޤ���ޤ�����
Google���θ������󥸥�ˡ�InDesign Script�פ�����Ƹ�������ȡ��䤬�Ϥ��Scripting��������������̤˾��󤬽ФƤ��ޤ�������ˤϴ���������Τ�����ޤ����ޤ������δ����̤��Ƥ����Web�����Ⱦ��Í�פʾ�������ѤǤ���褦�����ʤ��Ƥޤ���ޤ��Τǡ��ɤ������ͤ���������ꤤ�������ޤ���