Microsoft Office Forums - View Single Post

gmaxey · 01-15-2015, 01:36 PM

If you are using a content control (e.g., one titled "TextCC") then you don't need a bookmark for this:

Code:

Option Explicit
Private strVal As String
Private Sub OptionButton1_Click()
  If Me.OptionButton1.Value = True Then
    ActiveDocument.SelectContentControlsByTitle("TextCC").Item(1).Range.Text = strVal
  End If
End Sub
 
Private Sub OptionButton2_Click()
  If Me.OptionButton2.Value = True Then
    strVal = ActiveDocument.SelectContentControlsByTitle("TextCC").Item(1).Range.Text
    ActiveDocument.SelectContentControlsByTitle("TextCC").Item(1).Range.Text = vbNullString
  End If
End Sub