Замена меток в документе WORD данными из EXCEL

Sub MREPL(N_WORD, N_EXCEL)
    Dim FindText As String ' что ищем
    Dim ReplaceText As String ' на что меняем
 wdDoc.Select
 ReplaceText = "" & N_EXCEL
 FindText = "{" & N_WORD & "}"
metka1:
  With wdDoc.Range.Find
   If Len(N_WORD) > 0 Then
   .Text = FindText
        If Len(ReplaceText) > 255 Then 'поскольку Find.ReplaceText не может принимать строку больше 255 символов,
'           пришлось в "цикле" подставлять строку по кусочкам, каждый раз добавляя в нее FindText,
'           чтобы в дальнейшем не потерять место, куда вставляем "хвостик" длинной строки
            .Replacement.Text = Left(ReplaceText, 255 - Len(FindText)) & FindText
            ReplaceText = Right(ReplaceText, Len(ReplaceText) - (255 - Len(FindText)))
            .Forward = True
            .Wrap = 1
            .Execute Replace:=2
            GoTo metka1
        Else
            .Replacement.Text = ReplaceText 'текст на который меняем
        End If
        .Forward = True
        .Wrap = 1
        .Execute Replace:=2
   
'    .Text = "{" & N_WORD & "}"
'    .Replacement.Text = "" & N_EXCEL
'    .Execute Replace:=2
   End If
  End With
End Sub