将现有样式的创建代码添加到 VBA Word答案

【问题标题】：Adding creating code of existing style to VBA Word将现有样式的创建代码添加到 VBA Word
【发布时间】：2022-07-12 06:20:11
【问题描述】：

我想制作一个 Word 模板。我还想使用 VBA 宏来编辑文档的样式。我在造型上挣扎。我想检查样式是否已经存在，如果不存在，则创建它并稍后应用它。但是，我在定义新样式时遇到了很多困难。我想从不同的文档中复制一个样式并在我的 VBA 代码中放置一个创建代码。有没有比用记录重新创建旧的更快的方法？我不确定我是否能够重新创建所有细节的样式，而且我还有很多样式要重写。我试图找到我的问题的任何线索或答案，但找不到任何线索。我很乐意提供线索或答案，如果需要更多信息，我当然会尽我所能。

【问题讨论】：

如果您在用户界面的样式上苦苦挣扎，那么在代码中尝试会更难，而不是更容易。要重用其他文档的样式，请在线搜索 Word 样式管理器。要了解如何使用样式，请搜索如何使用文字样式。

标签： vba ms-word word-style

【解决方案1】：

您可以检查样式是否存在，如果不存在，则通过以下代码创建它：

With ActiveDocument
  .Styles.Add Name:="MyStyle", Type:=wdStyleTypeParagraph
  On Error GoTo 0
  With .Styles("MyStyle").ParagraphFormat
    .Alignment = wdAlignParagraphCenter
    .SpaceAfter = 0
    .SpaceBefore = 0
  End With
End With

最好还是使用管理器从源文件中传输样式。对于使用 Organizer 的独立 Style 复印机，请参阅：https://www.msofficeforums.com/28497-post34.html。

而且，如果您想更新现有文档样式，只需确保更新位于文档所基于的模板中并应用“自动更新文档样式”属性（请参阅开发人员|文档模板>模板）。这也可以自动化。

【讨论】：