Problemas c/ wordbookmark pelo excel

[Gabriel_02]

Olá povo inteligente! preciso de ajuda

Estou desenvolvendo uma planilha do Excel muito automática para um condomínio e estou na parte de fazer os recibos dos pagamentos. Nessa parte (o que eu pensei) ela deve fazer uma copia de um recibo "modelo" na área de trabalho do síndico e depois preencher as informações dos valores da planilha, no texto base e salvar. Com a ajuda da internet desenvolvi esse código utilizando indicadores no word nos pontos de inserção dos valores! Contudo, estou encontrando dificuldade pois cada vez que eu vou executar aparece o erro 424 (O objeto é obrigatório) apontando a linha em negrito! já tentei varias versões mas estou sem ideias de como consertar este problema!  

__________________________________________________________________________________________________________________________________________________________________________________________________

Sub recibo()

'Determinar nome do desktop'
Dim caminho_recibo As String
caminho_recibo = VBA.Environ("USERPROFILE")

'Copiar modelo em novo documento (para preservar o outro e ser usado novamente)'
VBA.FileCopy caminho_recibo & "\Documents\Modelos Personalizados do Office\Recibos.docx", _
     caminho_recibo & "\DESKTOP\Recibos Janeiro.docx"

'Abrir o novo documento'
Dim Word As Object
Set Word = CreateObject("Word.Application")
    Word.Documents.Open caminho_recibo & "\DESKTOP\Recibos Janeiro.docx"
    Word.Visible = True

'Declarações de objetos'
Dim sindico As String
Dim proprietário As String
Dim cpf As String
Dim valor As String
Dim valorext As String
Dim mes_ano As String
Dim dia_mes_ano As String

'Declaração de valor do objeto'
sindico = ThisWorkbook.Sheets(1).Range("H5").Value
proprietário = ThisWorkbook.Sheets(1).Range("D6").Value
cpf = ThisWorkbook.Sheets(1).Range("E6").Value
valor = ThisWorkbook.Sheets(1).Range("G26").Value
valorext = ThisWorkbook.Sheets(1).Range("H26").Value
mes_ano = ThisWorkbook.Sheets(1).Range("F23").Value
dia_mes_ano = ThisWorkbook.Sheets(1).Range("F24").Value

    'Mandar valores para word'
    Copy2word "SindicoField", sindico
    Copy2word "PropField", proprietário
    Copy2word "CpfField", cpf
    Copy2word "ValorFiel", valor
    Copy2word "ValorExtField", valorext
    Copy2word "Mês_e_anoField", mes_ano
    Copy2word "dia_mês_e_anoField", dia_mes_ano

doc.Close

wd.Quit

End Sub

Sub Copy2word(BookMarkName As String, Text2Type As String)

'Determinar função copy2word'
wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName
wd.Selection.TypeText Text2TypeSub

End Sub

__________________________________________________________________________________________________________________________________________________________________________________________________

*A biblioteca do word está conectada 

*E também se alguém conhecer uma maneira melhor de transmitir dados que estão no excel para word, sou todo ouvidos (os dados não estão na mesma lista, tabela e alguns não estão nem na mesma planilha e no word é um formato de texto com os valores no meio)

Desde já, Muito Obrigado!!!

 

[Alyson Ronnan Martins]

Eu não vi a variável "wd" declarada nem configura.

O que é "wd"?

Editado Agosto 26, 2020 por Alyson Ronnan Martins
Erro no texto