Code to find a specific word and insert a Content control

[scopley]

I'm trying to write a macro that will search my word document for a specific word and when found will either replace the word with a content control drop down list or insert the content control after the specific word. Is this possible?

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim oCC As ContentControl
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "Kafilterfish"
While .Execute
oRng.Delete
Set oCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList, oRng)
oRng.Collapse wdCollapseEnd
Wend
End With
lbl_Exit:
Exit Sub

End Sub

[scopley]

Thank you! Thank you!

[scopley]

Ok, one last question... how can I highlight the text in the content control list after creating it?