Application.OrganizerCopy 方法

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

语法

表达式.OrganizerCopy(Source, Destination, Name, Object)

表达式 必选。一个代表 Application 对象的变量。

参数

名称	必选/可选	数据类型	说明
Source	必选	String	含有要复制的条目的文档或模板的名称。
Destination	必选	String	要向其复制条目的文档或模板的名称。
Name	必选	String	要复制的“自动图文集”词条、工具栏、样式或宏的名称。
Object	必选	WdOrganizerObject	要复制的项目的类型。

示例

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

示例代码

示例代码
`let atEntry = ActiveDocument.AttachedTemplate.AutoTextEntries for(let i=1; i <= atEntry.Count; i++) { Application.OrganizerCopy(ActiveDocument.AttachedTemplate.FullName,NormalTemplate.FullName,atEntry.Item(i).Name,wdOrganizerObjectAutoText) }`

let atEntry = ActiveDocument.AttachedTemplate.AutoTextEntries
for(let i=1; i <= atEntry.Count; i++) {
    Application.OrganizerCopy(ActiveDocument.AttachedTemplate.FullName,NormalTemplate.FullName,atEntry.Item(i).Name,wdOrganizerObjectAutoText)
}

如果活动文档中含有名为“SubText”的样式，本示例将该样式复制到 C:\Templates\Template1.dot 中。

示例代码

示例代码
`let styleLoop = ActiveDocument.Styles for(let i=1; i <= styleLoop.Count; i++) { if(styleLoop.Item(i) == "SubText") { Application.OrganizerCopy(ActiveDocument.Name,"C:\\Templates\\Template1.dot","SubText",wdOrganizerObjectStyles) } }`

let styleLoop = ActiveDocument.Styles
for(let i=1; i <= styleLoop.Count; i++) {
    if(styleLoop.Item(i) == "SubText") {
	Application.OrganizerCopy(ActiveDocument.Name,"C:\\Templates\\Template1.dot","SubText",wdOrganizerObjectStyles)
    }
}

请参阅