Wordの検索結果を、前後5文字を含めてExcelに抽出したい

Question

VBA初心者です。
Excelの用語リストをWordで検索をかけ、検索結果の前後5文字を含めてExcelに抽出したいです。

◆実現したいこと
・Wordの本文・表・テキストボックスを対象に、用語リストの単語を検索にかける
・検索してヒットした前後８文字を含めた分を抽出（表・テキストボックスは前後の文字が5文字ない場合もあります）
・該当のページ番号も抽出
・できれば抽出結果は新規Workbookに作成し、シート名は対象のWordファイル名にしたい
・できれば前後の文字数は都度設定できるようにしたい
・できればWordを複数ファイル対象にしたい
・できればWordの検索してヒットした単語を蛍光ペンでマークしたい

◆仕上がりの理想像
Word例文：
7/28PMまでに、6TBの外付けハードディスクを、TBSDXビジネス局の鈴木PM様宛に送って下さい。

Excel用語リスト例：

用語	意味
PM	プロジェクトマネージャー
SD	SDカード
TB	テラバイト

希望の抽出結果例：

用語	使用部分	ページ番号
PM	7/28PMまでに、1	1
PM	ス局の鈴木PM様宛に送っ	1
SD	クを、TBSDXビジネス	1
TB	カードと6TBの外付けハ	1
TB	ィスクを、TBSDXビジ	1

発生している問題・エラーメッセージ

実行時エラー’438
オブジェクトは、このプロパティまたはメソッドをサポートしていません

該当のソースコード

Sub 用語検索()

Dim wdApp As Word.Application
Set wdApp = GetObject(, "Word.Application")

Dim i, MaxR, iRow As Integer
MaxR = Sheets("用語リスト").Cells(Rows.Count, 1).End(xlUp).Row
iRow = 2

Dim wd As Variant
Dim Page  As Variant
Dim wdStart, wdEnd As Variant
Dim myRange As Range

For i = 10 To MaxR
    wd = ThisWorkbook.Worksheets("用語リスト").Range("A" & i + 1).Value
    With wdApp.Selection
        .Move unit:=wdStory, Count:=-1 '文章の先頭にカーソルを移動
        .Find.Text = wd
        .Find.Forward = True
        .Find.MatchWholeWord = True
        .Find.MatchCase = True
        .Find.Wrap = wdFindContinue
        Do While .Find.Execute
            myRange = Selection.Range(Start:=Selection.Character.Start - 5, End:=Selection.Character.End + 5)
            Page = .Information(wdActiveEndPageNumber)
            With ThisWorkbook.Worksheets("結果")
                .Range("A" & iRow) = wd
                .Range("B" & iRow) = myRange
                .Range("C" & iRow) = Page
            End With
            iRow = iRow + 1
        Loop
    End With
Next
    
Application.ScreenUpdating = True
Set wdApp = Nothing

MsgBox "完了しました"

End Sub

試したこと

myRange = Selection.Range(Start:=Selection.Character.Start - 5, End:=Selection.Character.End + 5)
ここでひっかかるので、おかしいのだと思いますが、どうすればよいかわからず、、

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

Selection.CharacterじゃなくてSelection.Charactersのはずです、
とはいえSelection.Charactersだとしても使い方まちがってるっぽいですが(Start,Endプロパティは存在しない)
しかもwdApp.Selectionのwithの中なのにSelection.Rangeしてるあたり
そのSelectionはExcelのSelectionのような気がしますが、意図としてはWordのほうな気がします。