如何在word文档中使用VBA宏更改字体大小(不包括标题、副标题、TOC、标题) | 您所在的位置:网站首页 › vb字体大小调整代码 › 如何在word文档中使用VBA宏更改字体大小(不包括标题、副标题、TOC、标题) |
我的方案是使用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宏怎么做吗? |
CopyRight 2018-2019 实验室设备网 版权所有 |