Bom dia,

Preciso copiar os dados e substituir no word, porém, no word a referência aparece várias vezes (até no rodapé).
Como eu substituo os dados da P10 à P14 no word.
Além disso, no relatório, preciso só dos últimos 2 dígitos do ano (2017 excel -> 17 word).

Testei um código para substituir todas as referências,mas não consegui a do rodapé e está sem as referências da posição da célula.
.
.
.

'Inserindo documento
Set Doc = OBJWORD.Documents.Open(ThisWorkbook.Path & "Relatório Base MacroRelatorio teste 127.docx")
With Doc
    .Application.Selection.Find.ClearFormatting
    .Application.Selection.Find.Replacement.ClearFormatting
    With .Application.Selection.Find
        .Text = "XX"
        .Replacement.Text = "AA"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    .Application.Selection.Find.Execute Replace:=wdReplaceAll
        End With
End Sub

coloquei em anexo imagens dos arquivos.

Obrigado!