OrganizerCopy 方法

将指定的“自动图文集”词条、工具栏、样式或宏方案项从源文档或模板中复制到目标文档或模板上。

expression   必需。该表达式返回一个 Application 对象。

Source   String 类型，必需。为含有需要复制的条目的源文档或模板的名称。

Destination   String 类型，必需。为需要复制条目的目标文档或模板的名称。

Name   String 类型，必需。为需要复制的“自动图文集”词条、工具栏、样式或宏的名称。

Object   WdOrganizerObject，必需。需要复制的项类型。

示例

本示例将与活动文档相关的模板中的所有“自动图文集”词条复制到 Normal 模板中。

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