сделать выбор в целом документе

Question

в файле MS WORD Я хочу выбрать «/» и сделать жирным шрифтом все символы до следующего ^ p.Следующий код работает хорошо только для первого появления.В файле у меня много вхождений, и я не могу применить это во всем файле.Я пытался несколько раз с «для ... следующий» и другие, к сожалению, безуспешно.

Большое спасибо за вашу помощь!Джанлука

Sub bold_title()

Set myRange = ActiveDocument.Content

Selection.Find.ClearFormatting
With Selection.Find
 .Text = "/"
  .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Extend
Selection.Find.ClearFormatting
With Selection.Find
    .Text = "^p"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False

End With
Selection.Find.Execute
Selection.Font.Bold = True

End Sub

Answer 1

Хитрость заключается в том, чтобы «свернуть» Selection - думать об этом, как о нажатии клавиши со стрелкой вправо - так, чтобы следующий поиск начинался после «найденного» текста:

Selection.Collapse wdCollapseEnd

Обычно конструкция Do While...Loop используется для повторения Find до конца документа.Вы найдете множество примеров, если будете искать здесь и в других местах в Интернете.

Чтобы это работало успешно, убедитесь, что для Wrap установлено wdFindStop (а не для wdFindContinue как есть.в настоящее время в коде показано).