1 Тема от Spare

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1

Тема: VBA метод Find c символами подстановки

Добрый день, уважаемые форумчане.
Пытаюсь в документе найти текст с символами подстановки "[звездочка]"
В документе он должен находить к примеру [1tr96]
Подскажите пожалуйста как это можно реализовать?

Sub ups()
Set myRange = ActiveDocument.Content
With myRange.Find
    .ClearFormatting
    .Text = "["
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchFuzzy = False
    '.MatchWholeWord = True
    .MatchWildcards = True
    .Execute Format:=False, Forward:=True
    If .Found = True Then
    MsgBox myRange
    End If
End With
End Sub

2 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243
  • За сообщение: 1

Re: VBA метод Find c символами подстановки

Вот макрос который ищет текст заключенный в квадратные скобки.

Sub Find1()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "[[]?*[]]"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
        .Execute
            Do While .Found = True
                MsgBox Selection.Range
                .Execute
            Loop
    End With
End Sub

Цикл Do While .Found = True продолжается до тех пор, пока находится текст.

3 Ответ от Spare

  • Spare
  • сержант
  • Неактивен
  • Зарегистрирован: 17.09.2012
  • Сообщений: 19
  • Поблагодарили: 1

Re: VBA метод Find c символами подстановки

Большое спасибо, очень выручили