Sub 学科网格式修正() '删除第二节内容 MsgBox ActiveDocument.Sections.Count MsgBox ActiveDocument.Sections(2).Range.Delete '删除节符号"^b",用替换功能实现 Set wd = ActiveDocument.Content wd.Find.ClearFormatting wd.Find.MatchWildcards = False rp = wd.Find.Execute(findtext:="^b", replacewith:="", Replace:=wdReplaceAll) End Sub
标签:wd,Sub,Sections,Find,ActiveDocument,格式,sections,find From: https://www.cnblogs.com/sharer/p/17081176.html