Findで検索された文字列の取得

Question

　With ActiveDocument.Range(0, 0)
　　.Find.Font.StrikeThrough = True
　　Do While .Find.Execute = True
　　　ここで検索された文字列の処理
　　Loop
　End With

excelのvbaでwordの取り消し線がついている文字列を取得したいです。ご教示お願いします。

Answer 1

Dim Rng As Range
Set Rng = ActiveDocument.Range
With Rng
    .Find.Font.StrikeThrough = True
    Do While .Find.Execute = True
        [Find成功時、見つかった箇所が Rng に入ってます]
        [なので、.Text 、.Start、.End 等を使って対処してください]
    Loop
End With

Comments

[sobue]

With rng
.Find.Font.Strikethrough =true

の箇所でエラーになります。引数は省略できませんとでます。

[ExcelVBAer]

こちらの環境では起きていません。
ご提示のコードも動かないのでしょうか？
「Set Rng = ActiveDocument.Range」をしていますか？

[sobue]

Rangeの型があってなかったみたいです。

[ExcelVBAer]

そうでした！ExcelでWordを動かしてるんでしたね！ 失念してました。。。
解決済ですが、Dim Rng As Word.Range で解決できるかと。
失礼しました！