#1
|
|||
|
|||
Activate/ select ContentControl
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 |
#2
|
|||
|
|||
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 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 |