Thread: [Solved] How to insert bookmarks for content or Text of ContentControl
View Single Post
 
Old 12-11-2017, 11:48 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,340
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
You could use code like:
Code:
Dim Rng As Range
With ActiveDocument
  Set Rng = .ContentControls(1).Range
  With Rng
    .End = .End + 1
    .Start = .Start - 1
  End With
  .Bookmarks.Add Name:="Bookmark", Range:=Rng
End With
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote