Copy Word content into Excel spreadsheet using Excel VBA

Question

I have a set of word documents which contains evaluation forms. I can manually copy and paste these along with their formatting into an excel spreadsheet, but I am interested in automating this using VBA since I have about 400 of these.

How can I open each of these and copy and paste the data into excel while retaining all of the formatting?

Answer 1

I would get the text from clipboard with:

Dim DataObj As New MSForms.DataObject
DataObj.GetFromClipboard
myString = DataObj.GetText

and then parse that text. You can check out this link https://excelmacromastery.com/vba-string-functions/#Extracting_Part_of_a_String

Answer 2

The first stage is to set a reference to Microsoft Word in the vb editor in Excel. You can then open a word document like this

Dim wd as new Word.application
dim doc as word.document
set doc = wd.documents.open("path and mame of word document")

'working with a table is like this 'Assume target is a pointer to an excel cell

Dim t As Word.Table
Set t = doc.Tables(1)
t.Cell(3, 2).Range.Copy    'this copies the cell at row 3, column 2
target.PasteSpecial xlPasteValues

That should get you started