Bookmark content controls

macropod · #8 06-12-2016, 04:30 AM

Assuming the content controls to be bookmarked are all in table cells, you could use:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim CCtrl As ContentControl, Rng As Range
For Each CCtrl In ActiveDocument.ContentControls
  With CCtrl
    If .Range.Information(wdWithInTable) = True Then
      Set Rng = .Range.Cells(1).Range
      With Rng
        .End = .End - 1
        .Bookmarks.Add CCtrl.Title, Rng
      End With
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA for content controls	ciresuark	Word VBA	1	03-10-2015 03:14 PM
Calculate Age From Content Controls	kintap	Word VBA	10	07-02-2014 09:25 AM
Content Controls in Headers	ejungk99	Word	2	06-16-2014 04:02 PM
Content Controls	Sammie0Sue	Word	6	11-06-2013 10:56 PM
Grouping Content Controls	cksm4	Word VBA	2	03-01-2011 12:46 PM