Este fórum está sendo desativado

[jfmssilva91]

Boa tarde Galera!!!

Tenho um formulário no Word onde preciso que as informações contidas no mesmo vá para uma planilha especifica em Excel via macro onde posso usa-las com mais precisão, segue anexo.

Formulário onde as informações estão.


Como ficaria no Excel



Att
Jefferson

[alexandrevba]

Bom dia!!

O código abaixo, não faz exatamente o que precisa...
favor postar seu arquivo modelo.

Código: Selecionar todos

Sub AleVBA_5116()
'favor postara seu arquivo modelo!!
    j = 1
    For Each tb In GetObject("C:\Users\aleVBA\Downloads\ArqWord.docx").tables
        tb.Range.Copy
        Sheets("GuiaEspecifica").Paste Cells(1, j)
        j = j + 1
    Next
End Sub

Att