Microsoft Office Forums - View Single Post

gmaxey · 08-14-2013, 08:32 AM

Select the range.

Code:

Sub ScratchMacro()
Dim i As Long
Dim myContentControl As ContentControl
  For i = 1 To ActiveDocument.ContentControls.Count
    If ActiveDocument.ContentControls(i).Title = "test" Then
      Set myContentControl = ActiveDocument.ContentControls(i)
      Exit For
    End If
  Next
  myContentControl.Range.Select
End Sub

why do you want to loop through all of the ccs to do this though? Why not:

Code:

Sub ScratchMacroII()
ActiveDocument.SelectContentControlsByTitle("test").Item(1).Range.Select
End Sub