Application.OrganizerCopy 方法 (Word)
将指定的“自动图文集”词条、工具栏、样式或宏方案项从源文档或模板中复制到目标文档或模板上。
语法
expression。 OrganizerCopy( _Source_ , _Destination_ , _Name_ , _Object_ )
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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。