设置整个Word文档的字体样式-VBA

Question

我试图找出如何为整个word文档设置字体样式的方法，确切地说是通过在菜单中选择一种预设样式来实现：

由于我已经制作了一个宏，可以将整个文档逐字转换，因此我要完成的工作是将所有预设图块（“正常”，“无间距”，“标题”，“标题1”等）更改为匹配此现有预设，而不匹配旧预设（使用旧字体）。

这有可能吗？我要修改哪个对象来实现此目的？

Answer 1

您在屏幕快照中显示的是 Office主题。这与Word样式不同，尽管某些设置确实“过滤”了内置样式和基于这些样式的自定义样式。

主题是一个复杂的主题，如果它是通过编程定义自定义主题的问题。如果您只想应用现有主题，则：

Dim sThemePath as String
sThemePath = "C:\Program Files\Microsoft Office\Document Themes 14\Equity.thmx"
ActiveDocument.ApplyDocumentTheme sThemePath

必须指定整个路径。在示例代码中，这是Office 2010内置Office主题的默认路径。

Answer 2

尝试一下...

Sub ChgFontInAllStyles()
Dim sty As Word.Style
For Each sty In ActiveDocument.Styles
    If sty.InUse And sty.Type = wdStyleTypeParagraph Then
        sty.Font.Name = "Arial"
    End If
Next
End Sub