Bookmark content controls

macropod · #1 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

silverspr · #2 06-12-2016, 05:55 AM

Thank you again! This worked swimmingly! I neglected to mention I have a "label" in front of the content control i.e. rating: or score: The control content is being displayed with the words rating or score and the value of the content control as they are both in the same cell. I suppose I could remove the label!

I presume I can set this with the .end property? I haven't played with it yet...

thanks again

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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