※excelじゃなくてwordのマクロです
条件
- 郵便番号の前に〒マークが入っている
- 住所の区切りたい位置にスペースが入っている
- 名前の最後は様<改ページ>
↑の丸の部分を改行に置換する。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
参考サイト