如何在word文档中使用VBA宏更改字体大小(不包括标题、副标题、TOC、标题)

您所在的位置：网站首页 › word中字体大小排序怎么设置 › 如何在word文档中使用VBA宏更改字体大小(不包括标题、副标题、TOC、标题)

如何在word文档中使用VBA宏更改字体大小(不包括标题、副标题、TOC、标题)

2024-07-06 04:58| 来源: 网络整理| 查看: 265

我的方案是使用VBA宏更改内容体(不包括标题、标题、子标题、TOC )的字体大小，只需使用宏更改字体实际内容体(普通样式应用于实际内容)。

这是我的VBA代码：

代码语言：javascript复制Private Sub Document_Open() With ActiveDocument.Content.Find .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Text = "" .Replacement.Text = "" .Execute Replace:=wdReplaceAll .ClearFormatting .Replacement.ClearFormatting .Font.Name = "Arial" .Replacement.Font.Name = "Calibri" .Execute Replace:=wdReplaceAll .ClearFormatting .Replacement.ClearFormatting .Font.Name = "Times New Roman" .Replacement.Font.Name = "Calibri" .Execute Replace:=wdReplaceAll .ClearFormatting .Replacement.ClearFormatting .Font.Size = 11 .Replacement.Font.Size = 10 .Execute Replace:=wdReplaceAll End With End Sub

使用此代码，整个文档的字体大小都在变化，但字体名称仅更改实际内容，仅使用上面的宏。

是否可以使用VBA宏更改文档的实际内容？

你能告诉我用VBA宏怎么做吗？

【本文地址】

如何在word文档中使用VBA宏更改字体大小(不包括标题、副标题、TOC、标题)

如何在word文档中使用VBA宏更改字体大小(不包括标题、副标题、TOC、标题)

今日新闻

推荐新闻