Pode um Macro do MS Word copiar uma tabela do Word para o Excel?

Eu encontrei exemplos de macros para copiar dados do excel, mas preferiria ter uma Macro do Word - já que é onde a tabela será criada pela primeira vez.

Obrigado

Resposta

Sim...Você pode, mas você terá que fazê-lo no estilo de VB.

Em primeiro lugar, Adicionar referência do Excel no Word VBA

Ferramentas - referências...

Agora encontrar e verificar

Biblioteca de objetos do Microsoft Excel 12.0 (ou 14,0 ou 10.0)

Clique em Ok

Agora começar a codificação

Dim XL As Excel. Application
Dim WB Excel.Workbook
Dim WS As Excel. Worksheet

Public Sub Export2XL()
Definir XL = New Excel. Application
Definir WB = XL.Workbooks ("c:\Meus Files.xls") ' para abrir um arquivo existente
Definir WB = XL.Workbooks.Add ' para criar uma nova pasta de trabalho no Excel
Definir WS = WB.Worksheets(1) ' Selecione a primeira planilha

WS.Range("a1").PasteSpecial xlPasteAll
End Sub

Public Sub WriteXL()
Selection.Copy
Chamada Export2XL
End Sub

Espero que isso irá ajudá-lo.

(.)a