スナックelve 本店

バツイチ40代女の日記です

おまけ・現在のページの住所の空白を改行に置換するマクロ

excelじゃなくてwordのマクロです
条件

  • 郵便番号の前に〒マークが入っている
  • 住所の区切りたい位置にスペースが入っている
  • 名前の最後は様<改ページ>

f:id:elve:20210606142851p:plain
↑の丸の部分を改行に置換する。1回実行で先頭から最初のスペース1つ置換
(住所入力のルールも徹底されてなくてなぁ・・・(´;ω;`))

Sub 現在のページの住所の空白を改行に置換()
  Dim par As Paragraph
  '現在のページのparagraph分ループ
  For Each par In ActiveDocument.Bookmarks("\Page").Range.Paragraphs
        Dim l As Long: l = par.Range.Characters.Count  'paragraphの文字列長
        If l > 1 And par.Range.Characters(1) <> "〒" Then
        '住所 or 名前
            If par.Range.Characters(l - 2) <> "様" Then
               '住所置換
                With par.Range.Find
                    .Text = " "
                    .Replacement.Text = vbCr
                    .Execute Replace:=wdReplaceOne  '1回だけ
                End With
            End If
        End If
  Next
End Sub

参考サイト