Sub 替換下劃線()Selection.HomeKey wdStorySelection.Find.ClearFormattingSelection.Find.Font.Underline = wdUnderlineThickSelection.Find.Replacement.ClearFormatting'Selection.Find.Replacement.Font.Underline = wdUnderlineThickWith Selection.Find.Text = "[!^13^l]".Replacement.Text = "__".Forward = True.Wrap = wdFindContinue.Format = True.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = TrueEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.HomeKey wdStorySelection.Find.ClearFormattingSelection.Find.Font.Underline = wdUnderlineSingleSelection.Find.Replacement.ClearFormatting'Selection.Find.Replacement.Font.Underline = wdUnderlineThickWith Selection.Find.Text = "[!^13^l]".Replacement.Text = "__".Forward = True.Wrap = wdFindContinue.Format = True.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = TrueEnd WithSelection.Find.Execute Replace:=wdReplaceAll End Sub

?

總結

以上是生活随笔為你收集整理的word VBA_替换下划线的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。