Только поиск текста пользователь выбрал

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 

Answer 1

На мой взгляд вам нужно изменить только одну строку:

.Wrap = wdFindContinue 

в это один:

.Wrap = wdFindStop 

Но имейте также в виду, что, если ничего не выбрано (один курсор мигает), чем ваш код будет выполняться для всего документа. Чтобы избежать такого, что вы могли бы попробовать либо решение Mehow (не уверен, если он будет работать), или вы можете добавить простой if statement в начале:

If Selection.Range.Start = Selection.Range.End Then 
    MsgBox "Select something, please!" 
    Exit Sub 
End If