vba - ユーザーが選択した検索テキストのみ

Question

私は Selection.WholeStory での作業に慣れていますが、今では多くの検索と置換操作を行うマクロがあります。マクロを実行する前に、ユーザーが選択した選択範囲でモジュールを検索して置換するだけです。

これどうやってするの？Selection.Text を試してみましたが、Word から、これは Text プロパティの無効な使用であると表示されます。

追加: 私のモジュールはこのように始まります

Sub Bibliography()

With ActiveDocument
        .TrackRevisions = False
        .PrintRevisions = False
        .ShowRevisions = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

選択オブジェクトを指定しないことで、マクロを実行する前にユーザーが既に行った選択のみを取得する必要があります。しかし、これはうまくいかないようです。たとえば、以下のコードは、ユーザーが行った選択だけでなく、ドキュメント全体の出現箇所を変更します。

With Selection.Find
    .Text = "%"
    .Replacement.Text = " %"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll