Ajuda, por favor!

[Leonardo Cipriano]

Boa tarde a todos! gostaria de uma ajuda com um código, estou tentando gerar um documento Word através do VBA, o codigo roda todo lindamente, sem problemas, só que no momento que ele tem que encontrar e substituir determinadas palavras do documento Word, por umas do banco de dados do excel ele não faz isso.

 

poderiam ver se existe algum erro no código por favor!?!

 

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set arqDEGA = objWord.Documents.Open("C:\Users\ADM\Desktop\DEGA.docx")
Set conteudoDoc = arqDEGA.Application.Selection

For coltab = 1 To 31

conteudoDoc.Find.Text = cells(1, coltab).Value
conteudoDoc.Find.replacement.Text = cells(2, coltab).Value
conteudoDoc.Find.Execute Replace:=wdreplaceall

Next

arqDEGA.saveAs2 ("C:\Users\ADM\Desktop\DEGA - " & cells(2, 1).Value & ".docx")

arqDEGA.Close
objWord.Quit

Set arqDEGA = Nothing
Set conteudoDoc = Nothing
Set objWord = Nothing

MsgBox ("Procuração gerada com sucesso!")

eu fiz basicamente o que diz nesse vídeo.

 

[kwhite]

Leonardo,

Você precisa ativar a "Referências" do word para que ele possa funcionar, não sei se esses caras da Hashtag ensinaram isso.

No Visual Basic clica em Ferramentas >> Referências >> procura pelo "Microsoft Word 16.0 Object Library" e flega ele e da "ok"

Depois desse ajuste vai rodar normalmente.