You are currently viewing the Word VBA section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
Dim oTable As Table
Dim i1 As Integer
If ActiveDocument.Tables.Count = 0 Then Exit Sub
Set oTable = ActiveDocument.Tables(1)
For i1 = 1 To oTable.Rows.Count
ActiveDocument.Bookmarks.Add "Alpha" & i1, oTable.Rows(i1)