と整形したいため、「物：」を検索し、その手前で改行を入れるVBAを作りたいです。 以下は自分で作ってみたものの、物：そのものを消して改行を３発入れてしまう駄作です。 Sub 検索() With Selection.Find .Text = "物：" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWildcards = True Do While .Found = True If .Execute(FindText:="物：", Forward:=True, Format:=True) = True Then Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Else End If Exit Do Loop End With エクセルならこーする、ワードは知らん。でも構いませんのでご教示頂けると幸いです。
