Word VBA教程:OrganizerCopy方法

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

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

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

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

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

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

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

WdOrganizerObject 可以是下列 WdOrganizerObject 常量之一:
wdOrganizerObjectAutoText
wdOrganizerObjectCommandBars
wdOrganizerObjectProjectItems
wdOrganizerObjectStyles

VBA示例

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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号