MS-Wordの文章を検索して行頭に一致した文字がある段落を削除するマクロを作りたいと思いチャレンジしています。 たとえば，文章を頭から順に検索して，行頭にある文字が検索文字と一致した場合，その段落を削除して，次の行を検索し続け，文書が終わったら終了するようなマクロです。 小生，WordVBAを２日ほど前から学び始めたばかりで，ネットや参考書を探しまして，"@"マークが行頭にある段落を削除するというサンプルを作るところまでは何とかできたのですが，これを文章全体に一括して実行できるマクロにするにはどうすればよいかに手こずっています。 このマクロがあると仕事の効率がぐんとアップしますので，何とかしたいと思っています。 是非ご教いただければ大変ありがたく思います。 ＜サンプル＞ Sub test_DeleteParagraph() Selection.HomeKey Unit:=wdStory, Extend:=wdMove With Selection.Find .Forward = True .ClearFormatting .MatchWholeWord = True .MatchCase = False .Wrap = wdFindContinue If .Execute(FindText:="@", Forward:=True, Format:=True) = True Then Selection.HomeKey Unit:=wdLine, Extend:=wdMove Selection.MoveDown Unit:=wdParagraph, Extend:=wdExtend lVal = Selection End If Selection.Delete End With Selection.Find.ClearFormatting End Sub
↧