vba - 使用 Microsoft Word 导入样式

Question

我有一个宏，可以在给定文件夹中的所有文件中运行。我的 Normal.dotm全局模板具有宏使用的 3 种字体样式，但是宏停止，因为它反复找不到宏调用的样式。最简单的方法是创建一个宏(或添加到我当前的)，它会自动将这 3 种样式从全局模板导入到事件文档中。

这是我到目前为止所拥有的:

Application.OrganizerCopy Source:= _
    "C:\Users\Inu\AppData\Roaming\Microsoft\Templates\Normal.dotm", _
    Destination:= _
    ActiveDocument _
    , Name:="DO_NOT_TRANSLATE", Object:=wdOrganizerObjectStyles
Application.OrganizerCopy Source:= _
    "C:\Users\Inu\AppData\Roaming\Microsoft\Templates\Normal.dotm", _
    Destination:= _
    ActiveDocument _
    , Name:="tw4winExternal", Object:=wdOrganizerObjectStyles
Application.OrganizerCopy Source:= _
    "C:\Users\Inu\AppData\Roaming\Microsoft\Templates\Normal.dotm", _
    Destination:= _
    ActiveDocument _
    , Name:="tw4winInternal", Object:=wdOrganizerObjectStyles

这有什么帮助吗？我有大约一百个文件需要格式化，因此单独导入是不可能的。

Answer 1

如果您准备了具有所需样式的模板，则可以使用以下命令将它们全部复制:

ActiveDocument.CopyStylesFromTemplate("C:\Temp\FullPathToTemplate.dotx")

或者你已经用其他方式解决了？