To find word in Microsoft Word Table and copy Offsets to Excel Cells

[johngalvin]

Hi Paul,


I activated Word 16 Reference from Tools, I pointed to the Folder where the Word Document (.docx) is, I ran it, but yields this: "Run time error '1004' Unable to set the Text property of the Range class", pointing to this line:

 WkSht.Cells(r, c).Text = Split(strFile, ".docx")(0)

I tried changing from .Text to .Value, but it won't output anything

I guess I'm doing something wrong, I checked the .Text and seems to be fine though.

Other than that, indeed

Split(WrdDoc.Tables(Cnt).Cell(TblCell.RowIndex, TblCell.ColumnIndex + 1), vbCr)(0)

now fills in that Cell, but it still take some time like 10-15 seconds, like before, just that it doesen't display the symbol, so I guess the above code with .Text can be a bit faster?

Many thanks,
John