將我作為段落標註
申請。ScreenUpdating = False
對於ActiveDocument中的每個I。段落
選擇。查找.清除格式
選擇。Find.Text = "包含的關鍵字"
選擇。查找.執行
如果選擇。Text & lt& gt”“那麽
選擇。HomeKey單位:=wdLine
選擇。EndKey單位:=wdLine，Extend:=wdExtend
選擇。刪除單位:=wdCharacter，計數:=1
如果…就會結束
然後
末端接頭
只需將代碼中包含的關鍵字更改為您想要的即可。