12/02/07 21:11:34.07
>>97-98 ありがとう、ダメ元ですがエクセル場合はこーする、でも構わないので聞いてみます。
検索対象文字列の手前に改行を入れる、というVBAをつくろうとしています。
物：いちご物：みかん物：バナナ
となってる文章を
物：いちご
物：みかん
物：バナナ
と整形したいため、「物：」を検索し、その手前で改行を入れる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
エクセルならこーする、ワードは知らん。でも構いませんのでご教示頂けると幸いです。