INTERAÇÕES COM WORD

50. Exportar seleção para o Microsoft Word

Esta macro exporta automaticamente a seleção atual do Excel para o arquivo
em Word aberto.

Obs: Dentro do editor VBA, clicar em ferramentas, referências e então
procurar por Microsoft Word Object Library, marcar a caixa de seleção e
pressionar OK.

Sub CopyRangetoWord()
Dim WodAPP As Word.Application
Dim WordDOC As Word.Document
If Not TypeName(Selection) = "Range" Then
MsgBox "Erro de seleção, tente novamente.", vbExclamation, "Range
Error"
Else
Set WodAPP = GetObject(, "Word.Application")
Set WordDOC = WodAPP.ActiveDocument
Selection.Copy
WodAPP.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
Placement:=wdInLine, DisplayAsIcon:=False
Set WordDOC = Nothing
Set WodAPP = Nothing
End If
End Sub