word批量替换正文样式宏代码
一个word文档中的正文样式有非常多，所以采用查找段落正文的形式进行替换采用录制宏的形式得到的代码，方便使用，宏代码如下； Sub改正文样式() ' '改正文样式宏' ' Selection.Find.ClearFormatting With Selection.Find.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .OutlineLevel = wdOutlineLevelBodyText .WordWrap = True End With Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Style = ActiveDocument.Styles("自用正文") With Selection.Find .Text = "" .Replacement.Text
文件大小：928B
评论区