Este fórum está sendo desativado

[fernandoreus]

Boa noite,

Estive olhando no fórum e não consegui encontrar nada parecido, estou precisando de um VBA para pegar dados de um arquivo excel .xlsm que vai estar em várias planilhas e células distintas, e jogar isso para o arquivo word em específico micro.docx [que dentro desse arquivo ja vai ter os forms pré estabelecidos para preenchimento].

Exemplo:

Excel. - Word
A1 Plan01 > WDcliente
A4 Plan01 > WDnum
D7 Plan01 > WDtipo

e assim segue para a plan02 e coloca na forms no mesmo word, segue arquivos para exemplo.

[fcarlosc2018]

Boa noite

Veja se é dessa forma.

Att,
Francisco

[fernandoreus]

Seria isso, mas ao eu executar ainda está dando erro, bem nessa linha Set wod1 = New Word.Application
estou usando o word e excel para macOS, acredito que não tenha problema.

[fcarlosc2018]

Boa noite

No VBA vai em "Ferramentas", "Referências". Os que tem que estar marcados são:

Visual Basic For Aplications
Microsoft Excel 14.0 Object Library ..... Office 2010 no meu caso
OLE Automation
Microsoft Office 14.0 Object Library ..... Office 2010 no meu caso
Microsoft Word 14.0 Object Library ..... Office 2010 no meu caso

Se não estiverem marcados, procure na lista abaixo e selecione.

Att,
Francisco

[fcarlosc2018]

Caso seu Office seja 2013/2016/2019 as Referências serão 15.0

[fernandoreus]

Fiz isso as referências são 16.0, mas ainda continua dando o erro -2146959355 (80080005), e dai quando vou depurar mostra que é nessa linha " Set wod1 = New Word.Application", então se conseguir me ajudar, agradeço

[fcarlosc2018]

Bom dia

Manda imagem das Referências e da mensagem de erro

[fernandoreus]

Segue imagens

[fcarlosc2018]

Boa noite

Esses eu testei no Office 2019 as "Referências" são (16.0) e rodou sem problemas.
Testa ai...

Att,
Francisco