学科网格式修正 sections find

Sub 学科网格式修正()
'删除第二节内容
 'MsgBox ActiveDocument.Sections.Count
 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