Question

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

expression.OrganizerCopy(Source,Destination,Name,Object)

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

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

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

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

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

WdOrganizerObject 可以是下列 WdOrganizerObject 常量之一：

wdOrganizerObjectAutoText

wdOrganizerObjectCommandBars

wdOrganizerObjectProjectItems

wdOrganizerObjectStyles

示例

本示例将与活动文档相关的模板中的所有“自动图文集”词条复制到 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