JE McGimpsey,
Thank you for your reply to my Bookmark question. It has been so long since
I worked with VB that I could not get the copy/pasted version of your code
inserted properly into Excel. I will keep trying to get the code in
properly. Thanks again for your help.
Glen

"JE McGimpsey" wrote:

one way:

Dim oWord As Word.Application
Dim oDoc As Word.document
Dim vBkMarks As Variant
Dim vRecord
Dim rRecord As Range
Dim nFields As Long
Dim i As Long

vBkMarks = Array("Bookmark1", "Bookmark2", "Bookmark3") 'etc...
ReDim vRecord(LBound(vBkMarks) To UBound(vBkMarks))
nFields = UBound(vBkMarks) - LBound(vBkMarks) + 1
On Error Resume Next
Set oWord = GetObject(, "Word.Application")
On Error GoTo 0
If oWord Is Nothing Then _
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.ActiveDocument
For i = LBound(vBkMarks) To UBound(vBkMarks)
vRecord(i) = oDoc.Bookmarks(vBkMarks(i)).Range.Text
Next i
With Sheets("DataTable")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize( _
1, nFields).Value = vRecord
End With


In article ,
Glen wrote:

I would like to create an Excel database by importing information for each
record (row) from about 30 different bookmarks in each Word document
populating designated columns at the next available row at the bottom of the
data table. I anticipate that the data base will contain a record (row) for
each of about 50 different Word documents.

Take a look he

http://www.mvps.org/dmcritchie/excel/getstarted.htm


In article ,
Glen wrote:

Thank you for your reply to my Bookmark question. It has been so long since
I worked with VB that I could not get the copy/pasted version of your code
inserted properly into Excel. I will keep trying to get the code in
properly.

JE McGimpsey
I am making progress. I got an error message. The message was "Compile
error: User-defined type not defined".

"JE McGimpsey" wrote:

Take a look he

http://www.mvps.org/dmcritchie/excel/getstarted.htm


In article ,
Glen wrote:

Thank you for your reply to my Bookmark question. It has been so long since
I worked with VB that I could not get the copy/pasted version of your code
inserted properly into Excel. I will keep trying to get the code in
properly.

Yup - forgot to state that you need to set a reference to the Word
object library. With your project selected in the VBE, choose
Tools/References... and select the Word XX Object library from the
dialog.


In article ,
Glen wrote:

I am making progress. I got an error message. The message was "Compile
error: User-defined type not defined".