Activate/ select ContentControl

czsti · #1 08-14-2013, 07:03 AM

Hi,

how can I activate my created 'ContentControl' (cursor blinking in this one)?

I need something like this (marked by red color):

Code:

 
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)
    End If 
Next
 
myContentControl.Activate

Please help me

gmaxey · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
check box will not activate	survivo01	Word	1	10-04-2012 03:34 PM
Activate Office XP for the 4th time?	bert2	Office	1	02-24-2012 10:22 PM
Cannot Activate Office XP Pro (2003)	wdare	Office	3	02-13-2012 05:21 PM
Activate Office XP on Windows 7?	scradock	Office	1	02-12-2012 09:01 PM
how do I activate office basic?	madyfb	Office	1	05-21-2009 11:18 AM