Check box values to text

wpryan · #3 10-14-2013, 10:04 AM

Thanks for the response, but I guess I'm not getting it. I copied and pasted into the Click command, and changed some of the terminology to match what's in my document. Not working. Here's what I changed (in red):

Code:

Dim oCtr As Control
Dim oRng As Word.Range
  For Each oCtr In Me.Controls
    Select Case TypeName(oCtr)
      Case "Checkbox"
        Select Case oCtr.Name
          Case "ckLasik"
            If Controls(oCtr.Name).Value = True Then
              Set oRng = ActiveDocument.Bookmarks("bmCourse").Range
              oRng.Text = "CheckBox1 is Checked"
              ActiveDocument.Bookmarks.Add "bmCourse", oRng
            End If
        End Select
        
    End Select
  Next oCtr

Of course I have 8 other "cases", for which I should repeat the code, right?:

Code:

Case "Checkbox"
        Select Case oCtr.Name
          Case "ckLasik"
            If Controls(oCtr.Name).Value = True Then
              Set oRng = ActiveDocument.Bookmarks("bmCourse").Range
              oRng.Text = "CheckBox1 is Checked"
              ActiveDocument.Bookmarks.Add "bmCourse", oRng
            End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Generate chart from list of text values	knownunknown	Excel	6	04-24-2013 01:56 AM
Check box and text box in same document ? cant edit / enter text	KennyG	Word	6	04-08-2013 10:59 AM
Assigning Values to content control checkboxes and calculating results	creative cathy	Word Tables	13	10-07-2012 08:52 PM
Handle Text / Numeric values in SSRS while Export To Excel	achuki	Excel	5	02-07-2012 02:14 PM
How Do I Put Text Values Into A CSV That Excel Will Leave Along?	eBob.com	Excel	2	05-04-2011 07:01 AM