次の方法で共有

Application.OrganizerCopy メソッド (Word)

  • [アーティクル]

指定された定型句、ツールバー、スタイル、またはマクロ プロジェクト項目を、コピー元の文書またはテンプレートからコピー先の文書またはテンプレートにコピーします。

構文

expression. OrganizerCopy( _Source_ , _Destination_ , _Name_ , _Object_ )

expression 必須です。 Application オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
Source 必須 String コピーする項目を含む文書またはテンプレート ファイルの名前を指定します。
Destination 必須 String 項目のコピー先の文書またはテンプレート ファイルの名前を指定します。
Name 必須 String コピーする定型句、ツールバー、スタイル、またはマクロの名前を指定します。
Object 必須 WdOrganizerObject コピーする項目の種類を指定します。

例

次の使用例は、作業中の文書に添付されたテンプレートのすべての定型句を標準テンプレートにコピーします。

Dim atEntry As AutoTextEntry 
 
For Each atEntry In _ 
 ActiveDocument.AttachedTemplate.AutoTextEntries 
 Application.OrganizerCopy _ 
 Source:=ActiveDocument.AttachedTemplate.FullName, _ 
 Destination:=NormalTemplate.FullName, Name:=atEntry.Name, _ 
 Object:=wdOrganizerObjectAutoText 
Next atEntry

次の使用例は、作業中の文書に "SubText" という名前のスタイルが存在する場合、このスタイルを C:\Templates\Template1.dot にコピーします。

Dim styleLoop As Style 
 
For Each styleLoop In ActiveDocument.Styles 
 If styleLoop = "SubText" Then 
 Application.OrganizerCopy Source:=ActiveDocument.Name, _ 
 Destination:="C:\Templates\Template1.dot", _ 
 Name:="SubText", _ 
 Object:=wdOrganizerObjectStyles 
 End If 
Next styleLoop

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。