Export From Word To Spreadsheet

alexedit · Apr 26th 2008

I want to create a macro to automatically export data from a Word document to an excel spreadsheet. I will be exporting 8 separate pieces of information from fields in word to predetermined cells in the spreadsheet.

What code do I need to get started? Thanks!

daniel.c · Apr 28th 2008

Re: Export From Word To Spreadsheet

I don't know how to work with fields. Could you put an example doc ? Here is a clumsy way to do. I work with one bookmark (you have to put as many as you need).

Code

' Create an instance of Excel
    Set xlobj = CreateObject("Excel.Application")
    ' Add a new workbook (you can open an existing workbook
    xlobj.Workbooks.Add
    xlobj.Visible = True
    ' Go to bookmark "s1"
    Selection.GoTo What:=wdGoToBookmark, Name:="s1"
    ' Select the entire paragraph containing the bookmark
    Selection.Expand wdParagraph
    ' Eliminate the paragraph mark
    Texte = Left(Selection.Text, Len(Selection.Text) - 1)
    'put the value in cell A1
    xlobj.Range("A1") = Texte

Display More

Daniel

Export From Word To Spreadsheet

Participate now!

Share