1
resposta

Controlar word, utilizando VBA no excel

Bom dia, galera, estou tentando fazer uma macro que pega as informações de uma célula no Excel, cole no Word e depois formate o que foi colado no word. Porém, não sei como referenciar direito. O seguinte erro aparece: "erro em tempo de execução 4605. este método ou propriedade não está disponível porque o objeto está vazio." Obs.: A parte do código que pega as informações de uma célula no Excel já ta feita, por isso não coloquei aqui.

Set wrdApp = CreateObject("Word.Application")
 'Dim DOC As Word.Document
wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Add

With wrdDoc

.Range.Paste



End With

With wrdApp 'aqui é a parte que eu tento formatar e dá erro!
    .Application.Selection.Cut
    .Application.Selection.TypeParagraph
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.Cut
    Selection.TypeParagraph
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End With

Set wrdDoc = Nothing
Set wrdApp = Nothing

Application.CutCopyMode = False
Range("A1").Select
1 resposta

Bom dia Vinicius!

Testa assim:

Public Sub ControlarWord()

Range("A1").Copy

Set wrdApp = CreateObject("Word.Application")
'Dim DOC As Word.Document
wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Add

With wrdDoc
    .Range.Paste
End With

Set wrdDoc = Nothing
Set wrdApp = Nothing

End Sub

Quer mergulhar em tecnologia e aprendizagem?

Receba a newsletter que o nosso CEO escreve pessoalmente, com insights do mercado de trabalho, ciência e desenvolvimento de software