Procurando anexar uma linha separada por tabulação de word para excel com uma macro

Question

Ou algo ...
O Word é integrado ao nosso software para que ele faça apenas uma conta por vez.

Cada linha separada por tabulação é formatada como: nome endereço acct # dob amtdue

Para cada conta eu tenho que carregar um novo documento do Word, copie e cole os valores em uma planilha do Excel existente e envie-a em seu caminho.

Este é um monte de botão empurrando para mim, alguma maneira de automatizar isso? Eu fiz algumas macros simples sem ter que programar nada.

Eu tenho as seguintes versões de ... coisas

Excel 2002 10.6501.6714 SP3
Word 2002 10.6612.6714 SP3
Editor do Visual Basic: VB 6.3 v.9969 VBA varejo 6.4.8869
Editor de Scripts MS 10.0

    

Answer 1

Você pode adaptar algo assim. No momento, ele seleciona todo o documento do Word em uma nova pasta de trabalho. Você poderia colar em uma pasta de modelos, ou em sua localização de planilha existente, e ser mais seletivo também, mas você tem a idéia.

Sub paste2excel()
Selection.WholeStory
Selection.Copy
Dim excelObj As Object
Set excelObj = CreateObject("excel.application")
excelObj.Visible = True
excelObj.Workbooks.Add
excelObj.Range("a1").Select
excelObj.ActiveSheet.Paste
End Sub

isto funciona no Office 2003 e provavelmente ficará bem na sua versão