为整个word文档设置字体样式-VBA

Question

我试图找出如何设置整个word文档的字体样式，完全是通过选择菜单中预设的样式来完成的：

因为我已经制作了一个宏来逐字转换整个文档，所以我试图用它来完成的是更改所有预设磁贴（正常、无间距、标题、标题1等）。）以匹配现有的预设，而不是旧的预设（旧字体）。

这可能吗？我要修改什么对象来实现这一点？

Answer 1

您在屏幕截图中显示的是Office主题。这与单词样式不同，尽管某些设置会“过滤”到基于这些设置的内置样式和自定义样式。

如果以编程方式定义自定义主题是一个问题，那么主题是一个复杂的主题。如果您只想应用现有主题，则：

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