OrganizerCopy メソッド

OrganizerCopy メソッド

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

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:\\Program Files\\Microsoft Office\\Template\\MyTemplate.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