ワード vba

質問

ワードの文書内に、文字があるかどうかをvbaで確認したいのですが
エクセルのコードを張り付けてみましたが、
もちろんエラーになります。

Sub Macro()

If Not Cells.Find(What:="test", MatchByte:=False) Is Nothing Then
Debug.Print "testはあります"
End If

End Sub

Cellsで、エラーになります。
このようなコードをワードで使う場合はどう書き換えればいいでしょうか？
よろしくお願いします。

回答No.1

misatoanna · ベストアンサー

次のような内容ではいかがでしょう。

Sub TEST()
　　With Selection
　　　　.HomeKey UNIT:=wdStory　　'いったん文頭へ
　　　　.Find.Execute findtext:="検索文字列", Format:=False　　'検索開始
　　　　Select Case .Find.Found　　'結果別の処理
　　　　　　Case True: MsgBox "ありました"
　　　　　　Case False: MsgBox "ありませんでした。"
　　　　End Select
　　End With
End Sub

お礼

できました～
ありがとうございました。