Solved: Get data from documents from a table to create spreadsheet

Hello all,
(Another beginer)
I am trying to write code that will search through all .doc files in a directory, get data from tables every other field in the table, create an excel file with the data.

Does this sound easy? The code I have so far asks the user for the folder the docs are in then, search each file in that folder. I am not sure how to go into each file, access the data I want and then write it to a spreadsheet.

Sub TrackMST2()
Dim appExcel As Object
Dim objSheet As Object
Dim tab2, tab4, tab6, tab8, tab10, tab12, tab14, tab16, tab18, tab20 As String
Dim tab22, tab24, tab26, tab28, tab30, tab32, tab34, tab36, tab38, tab40 As String
Dim GetFolderName As String
Dim Prompt As String
Dim Title As String
Dim Path As String
Dim FileName As String
Dim MyResponse As VbMsgBoxResult
Dim WrkFile As Document

'SELECT FOLDER TO USE
Prompt = "Lets start by selecting the folder containing the word docs we will use."
Title = "Select a Folder"
MsgBox Prompt, vbInformation, Title

With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = OpenAt
.Show
For lCount = 1 To .SelectedItems.Count
GetFolderName = .SelectedItems(lCount)
Next lCount
End With

'Loop through all word documents
FileName = Dir(GetFolderName & "\*.doc", vbNormal)
Do Until FileName = ""
On Error Resume Next
Set aRange = FileName.Range
With aRange.Table(1)
Do
Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
Selection.MoveRight Unit:=wdCell, Count:=2
tab2 = Selection

On Error GoTo 0
FileName = Dir()
Loop
End With
Loop
End Sub