Edit the path and file name for the Word document containing all the tables
and see if this does what you want.

Sub ScanWdTables()
Dim strTitle As String
Dim strAuthor As String

' Start Word and open document containing tables
Set oWd = CreateObject("Word.Application")
oWd.Visible = False
Set oDoc = oWd.Documents.Open("C:\Test\TestTables.doc")

' Process through each of the tables
For T = 1 To oDoc.Tables.Count

' Optain text from Word table cells
strTitle = oDoc.Tables(T).Cell(1, 2).Range.Text
strAuthor = oDoc.Tables(T).Cell(2, 2).Range.Text

' Trim End of Cell markers from text extracted
strTitle = Left(strTitle, Len(strTitle) - 2)
strAuthor = Left(strAuthor, Len(strAuthor) - 2)

' Populate Excel Cells with text from Word tables
Cells(T, 1).Value = strTitle
Cells(T, 2).Value = strAuthor
Next T

oDoc.Close
oWd.Quit
Set oWd = Nothing

End Sub



Steve
"Ctech" wrote in
message ...

Forget the "Source: PDF - 9502013412.pdf" its for my own use... so I
can know where the file the referene above links to.


What I want exactly is to get the data which you see in word
"printscreen / jpg) to be converted into excel format.

"Title" info is pasted into "column A" in excel
"Author" info is pasted into "column B" in excel
and so on..


--
Ctech


------------------------------------------------------------------------
Ctech's Profile:
http://www.excelforum.com/member.php...o&userid=27745
View this thread: http://www.excelforum.com/showthread...hreadid=503675