置換

久しぶりに Word で法令文を読んでいるとやはり読みにくいので、

いろいろと体裁を整えたくなってきます。

久しぶりに VBA ですが、まったくコードなど覚えてないので、

まずはマクロの記録コードを元に復習してます。

まずは「置換」その１、

Sub JL01章節款の後ろにコロン()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
      .text = "条の(??)　"
      .Replacement.text = "条の\1；　"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchFuzzy = False
      .MatchWildcards = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub