OK, cool, so your trying to get to the table right??
----------------------------
Easy way. One time, manual.
Highlight all the cells. Copy. Start Excel. Paste
---------------------------------------------------
Hard Way, Programatically. (If you'll be doing this on a regular basis)
The table is an object in word. It has rows and columns and properties.
You can get all the cells in the table like this:
Set oTable = ActiveDocument.Tables(1)
For Each aCell In oTable.Rows(1).Cells
Set myRange = aCell.Range
myRange.MoveEnd Unit:=wdCharacter, Count:=-1
MsgBox myRange.Text
Next aCell
Just expand on that, looping thorugh each row.
For i = 1 to activedocument.Tables(1).rows.count
'code above...
Next i
Then, instanciate an excel object and start shoving stuff into it.
Dim objexcel As Excel.Application
Set objexcel = New Excel.Application
With objexcel
.Visible = False 'Hide the workbook
.Workbooks.Add
.ScreenUpdating = False ' No screen update, speeds up processing
.Application.Calculation = xlManual ' Manula calculate,speeds up processing
.cells(x,y).value = myrange.txt
End With
You'll have to combine the three examples given above into one big workable piece of code.... Tyrone Lumley
augerinn@gte.net