| |
Executeメソッドは検索成功時にTrueを返し、失敗時にFalseを返します。
ですので、以下のような形で判定できます。
If Word.Application.Selection.Find.Execute FindText:="文字列A", Replace:="文字列B" = True Then
'成功時の処理
Else
'失敗時の処理
End If
※Ifの中で=Trueはなくても動きますが、わかりやすくするためにあえて入れています。
また、FindオブジェクトのFoundプロパティも同様の値を返すので、以下のようにしてもOKです。
With Word.Application.Selection.Find
.Execute FindText:="文字列A", Replace:="文字列B"
If .Found = True Then
'成功時の処理
Else
'失敗時の処理
End If
End With
ht tps://msdn.microsoft.com/ja-jp/vba/word-vba/articles/find-execute-method-word
ht tps://msdn.microsoft.com/ja-jp/vba/word-vba/articles/find-found-property-word
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
