Замена текста в колонтитулах Word при создании документа из Excel

Ну если вы приспособились к работе с этим макросом, то откройте файл эксель, редактор VBA в модуль CreatingNewDocs вставьте вот такой код после 45-й строки:

For j = 6 To 11
    On Error Resume Next
    With WD.StoryRanges.Item(j).Find
        .Text = FindText
        .Replacement.Text = ReplaceText
        .Forward = True
        .Wrap = 1
        .Format = False: .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=2
   End With
   If Err.Number <> 0 Then Err.Clear
Next

Не будь это макрос EducatedFool'а я бы не стал его и смотреть, но Игорь мне не раз помогал, когда возникали трудности с екселем

Опять вынужден обращаться к Вам уважаемые эксперты. Теперь немогу заменить данные внутри поля, к пимеру есть поле {= 147 \*CardText} через ручной поиск 147 заменяеться, а макросом никак неполучаеться.