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
