素人がExcelVBAによる「一人働き方改革」に挑むブログ

改行・改段落の怪 前回 akashi-keirin.hatenablog.com の続き。 前回のリスト１を再掲する。 前回のリスト１ 'テキストの置換' Private Sub replaceText(ByVal str1 As String, _ With Selection.Find Call .ClearFormatting Call .Replacement.ClearFormatting End With With Selection.Find Call .Execute(FindText:=str…