Найти по шаблону и выполнить процедуру) Возможно ли?

[CacheLot]

Имею большой текст, в ктором нужно отыскать по следующему шаблону

"\[*\]"

Значение этого нечто (*) - поместить в массив.. или куда угодно возможно скопировать определённое место списком.. вобщем как то получить доступ к найденному..

Юзаю метод Find... пока не получается ничего.. Подскажите полз..

Set myRange = ActiveDocument.Content
With myRange.Find
    '.ClearFormatting
    '.Replacement.ClearFormatting
    '.MatchWildcards = True
    .Text = "\[" & "*" & "\]"
    '.Replacement.Text = "бла бла бла"
    '.Execute Replace:=wdReplaceOne  'wdReplaceAll
End With

[garik64]

Dim Clip As String
Dim MyData As New DataObject

***

Selection.Find.Execute
Selection.Copy

***

MyData.GetFromClipboard
Clip = MyData.GetText

***

With Selection.Find
.Text = Clip


и т.д.

[shanemac51]

  .Text = "\[*\]"
    .Replacement.Text = "mmm"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True

[garik64]

Пардон. Не туда ответил

[garik64]

Сообщение от shanemac51

  .Text = "\[*\]"
    .Replacement.Text = "mmm"

Это не даёт доступа к найденному. Надо вводить переменную, присваивать ей значение из буфера и потом подставлять в другие операции.

[Aent]

    Dim MyCol As New Collection
    Dim MyItem As Range
    ActiveDocument.Content.Select
    With Selection.Find
        .ClearFormatting
        ' Коллекционируем ранги с найденным текстом
        Do While (.Execute(FindText:="\[*\]", MatchWildcards:=True, Forward:=True))
            MyCol.Add Selection.Range
        Loop
    End With
    'Добавляем + в начало и конец найденного текста
    For Each MyItem In MyCol
        MyItem.Text = "+" & MyItem.Text & "+"
    Next MyItem

Надо работать именно с объектом Selection - смотрите в HELP Word VBA замечание по разнице использования Range и Selection в топике по объекту Find.
Если ставится задача подстановки текста, то коллекция не нужна.
Просто модифицируйте в цикле Selection.Range.Text