Excel macro do excel para word, com vinculo e formatação

vicente barcelos · 18 de março

criei um macro abaixo e está dando erro, Como posso consertar?

sendo que copiei de outro macro que funciona, modifiquei apenas "("proposmac")"

Sub proposmac()
Dim app     As Word.Application
Dim doc     As Word.document
Dim table   As Word.table
Dim excelapp As ListObject

Set app = New Word.Application
    app.Visible = True
    app.Activate
    

Set doc = app.documents.Add

Set excelapp = Motor.ListObjects("proposmac")
    excelapp.Range.Copy


With app.Selection
    .PasteExcelTable linkedToExcel:=True, WordFormatting:=False, RTF:=True

End With

Set table = doc.Tables(doc.Tables.Count)
    table.allowAutoFit = False
    table.AutoFitBehavior (wdAutoFitWindow)
Application.CutCopyMode = False

Set table = Nothing
Set excelapp = Nothing
Set app = Nothing
Set doc = Nothing

End Sub

conforme imagem:

Edson Luiz Branco · 18 de março

Boa noite, @vicente barcelos.

No VBA, marque referência à biblioteca do Word como indicado na figura abaixo para poder usar Early Binding dos objetos do Word.

O número 16.0 corresponde à versão instalada no PC que no meu caso é do Office 2016. No seu caso possivelmente seja outro número.

vicente barcelos · 19 de março

Agora deu esse erro

Edson Luiz Branco · 19 de março

O que é "Motor"? Esse objeto não está definido em seu código. Qual a mensagem de erro?

O ideal seria você disponibilizar seu arquivo aqui mesmo para sermos mais assertivos.

Limpe ou distorça quaisquer informações confidenciais antes de anexar.

vicente barcelos · 19 de março

Pronto arquivo enviado. agradeço antecipadamente.

COMPOSIÇÃO GERAL VEÍCULOS macro.zip

vicente barcelos · 19 de março

Obrigado por está me ajudando.

Edson Luiz Branco · 19 de março

Há várias divergências entre o que está no código e a realidade de seu arquivo, pois provavelmente o arquivo original do qual você copiou tinha outra estrutura (uma planilha cujo CodeName era Motor onde havia uma Tabela = ListObject nomeada "proposmac" e não um Intervalo = Range com esse nome), talvez por isso seu código não mais tenha funcionado no novo arquivo.

Faça um teste com o código abaixo:

Sub proposmac()
  With New Word.Application
    .Visible = True
    .Activate
     With .Documents.Add
       Excel.Application.Range("proposmac").Copy
       .Application.Selection.PasteExcelTable LinkedToExcel:=True, WordFormatting:=False, RTF:=True
       With .Tables(.Tables.Count)
         .AllowAutoFit = False
         .AutoFitBehavior wdAutoFitWindow
       End With
     End With
  End With
  Excel.Application.CutCopyMode = False
End Sub

vicente barcelos · 19 de março

Muitíssimo obrigado, Edson Luiz Branco.

ficarei mais, ainda, se puderes fazer com que, o arquivo do word (novo), seja em um ja existente, tipo: timbrado.doc

Edson Luiz Branco · 19 de março

14 minutos atrás, vicente barcelos disse:

...fazer com que, o arquivo do word (novo), seja em um ja existente, tipo: timbrado.doc

O ideal em seu caso seria você criar um Modelo do Word (.dot ou .dotx) e não um Documento (.doc ou .docx) já com todos os campos que são variáveis posicionados nos locais apropriados.

Dê uma pesquisada no assunto "Mala Direta" do Word usando como base um intervalo de planilha do Excel.