View Single Post
  #2 (permalink)  
Old November 12th, 2008, 04:35 AM
Shasur Shasur is offline
Friend of Wrox
Points: 3,060, Level: 23
Points: 3,060, Level: 23 Points: 3,060, Level: 23 Points: 3,060, Level: 23
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Sep 2005
Location: , , .
Posts: 812
Thanks: 1
Thanked 53 Times in 49 Posts
Default

Hi

Here is a hint:

Code:
Sub Bkmk_Tables()

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)
Next i1

End Sub
Cheers
Shasur

C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)
Reply With Quote