Excel VBA 質問スレ Part23

Excel VBA 質問スレ Part23at TECH

Excel VBA 質問スレ Part23 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

100:デフォルトの名無しさん
 12/02/07 17:51:41.95 
>>95 
>おっぱい見せて  
さろんへ行け。

101:デフォルトの名無しさん
 12/02/07 17:51:42.53 
VBEで入力した全角文字が片っ端から自動で確定されて日本語入力できないんですが、仕様ですか？

102:デフォルトの名無しさん
 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 
エクセルならこーする、ワードは知らん。でも構いませんのでご教示頂けると幸いです。

次ページ