Option Button selected will display text

gmaxey · #1 07-03-2014, 10:33 AM

Yes you are on the right track, but ActiveX controls are not ideal for use in Word documents.

You need a range target for the text. It could be a table cell, a paragraph, a bookmark, a content control, a variables (and use a DocVariable field), etc.

Here I have created a bookmark "bmText" to serve as the target range.

Code:

Option Explicit
Dim oBM As Bookmark
Dim oRng As Range
Private Sub OptionButton111_Click()
If Me.OptionButton111.Value = True Then
   Set oRng = ActiveDocument.Bookmarks("bmText").Range
   oRng.Text = "User will email form"
   ActiveDocument.Bookmarks.Add "bmText", oRng
End If
End Sub
 
Private Sub OptionButton211_Click()
If Me.OptionButton211.Value = True Then
  Set oRng = ActiveDocument.Bookmarks("bmText").Range
   oRng.Text = "User will mail form via FedEx"
   ActiveDocument.Bookmarks.Add "bmText", oRng
End If
End Sub

ksigcajun · #2 07-03-2014, 10:42 AM

Quote:

Originally Posted by gmaxey

Yes you are on the right track, but ActiveX controls are not ideal for use in Word documents.

You need a range target for the text. It could be a table cell, a paragraph, a bookmark, a content control, a variables (and use a DocVariable field), etc.

Here I have created a bookmark "bmText" to serve as the target range.

Code:

Option Explicit
Dim oBM As Bookmark
Dim oRng As Range
Private Sub OptionButton111_Click()
If Me.OptionButton111.Value = True Then
   Set oRng = ActiveDocument.Bookmarks("bmText").Range
   oRng.Text = "User will email form"
   ActiveDocument.Bookmarks.Add "bmText", oRng
End If
End Sub
 
Private Sub OptionButton211_Click()
If Me.OptionButton211.Value = True Then
  Set oRng = ActiveDocument.Bookmarks("bmText").Range
   oRng.Text = "User will mail form via FedEx"
   ActiveDocument.Bookmarks.Add "bmText", oRng
End If
End Sub

This works great Greg! Thank you so much. Very helpful.

Quick question, is there a way to remove the text if someone changes their mind and wants to chose the other option button? I noticed when I do that now, it leaves the text.

Thanks!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Display paragraph of text based on value selected in combo	WordWaza	Word	0	08-09-2013 06:30 AM
Can you create a button that indicates the status of markup display?	New Daddy	Word	1	01-25-2013 12:35 AM
Recent file display option at MS word	Patrick Lau	Word	0	08-16-2010 11:22 PM
Help on option button active X	aligahk06	Excel	0	11-03-2009 11:39 PM
Option Button ( ACtive X Control )	aligahk06	Excel	0	11-03-2009 06:36 AM