时间戳

首页 > 解决方案 > 为整个word文档设置字体样式 - VBA

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

问题描述

我试图弄清楚如何为整个 word 文档设置字体样式，就像通过在菜单中选择样式预设来完成的那样：

更改字体样式预设

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

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

标签： vbams-word

解决方案

试试这个 ...

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

推荐阅读