学科网格式修正 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

 

posted @ 2023-01-31 23:28  沭水之虾  阅读(20)  评论(0)  编辑  收藏  举报