Option Button help

[ksigcajun]

I have two option buttons for users to select one or the other.



I currently have some text with content control fields in a paragraph (bookmarked BM4) below the buttons. If a user chooses OptionButton1, it would do nothing, but keep the text present. If OptionButton2 is chosen, it would delete the text which is in Bookmark BM4.

I would like OptionButton1 to not only do nothing if chosen first, but Id love for it to undo the deletion in case a user chooses OptionButton2 first and decided it wanted to keep the text and chose OptionButton1.

My code in OptionButton1 isnt working properly. Any help?

PHP Code:

Private Sub OptionButton1_Click()
If Me.OptionButton1.Value = True Then
ActiveDocument.Undo
End If
End Sub
 
Private Sub OptionButton2_Click()
If Me.OptionButton2.Value = True Then
  ActiveDocument.Bookmarks("BM4").Select
Selection.Delete
End If
End Sub 


[gmaxey]

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

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