Help with Drop Down Box

Loss1003 · #1 04-02-2015, 08:12 AM

The following code is not working as I'm trying to Expand or Collapse with Drop Down Box in Word 2010

Code:

Sub Dropdown4()
If FormFields("Dropdown4").DropDown.Value = "Observed" Then
ActiveDocument.Bookmarks("RiskTData").Range.Font.Hidden = False
End If
 
If FormFields("Dropdown4").DropDown.Value = "Not Applicable" Then
ActiveDocument.Bookmarks("RiskTData").Range.Font.Hidden = True
End If 
 
If FormFields("Dropdown4").DropDown.Value = "Not Observed" Then
ActiveDocument.Bookmarks("RiskTData").Range.Font.Hidden = True
End If
End Sub

Please assist with any errors per the above code. Thank you.

gmayor · #2 04-03-2015, 02:38 AM

The dropdown values are numeric values which represent the positions of the texts in the list. So you would use

Code:

Sub Dropdown4()
    Select Case ActiveDocument.FormFields("Dropdown4").Dropdown.Value
        Case 1
            ActiveDocument.Bookmarks("RiskTData").Range.Font.Hidden = False
        Case 2, 3
            ActiveDocument.Bookmarks("RiskTData").Range.Font.Hidden = True
        Case Else
    End Select
End Sub

gmaxey · #3 04-03-2015, 04:55 AM

There are alternative ways other than hiding text. See: http://gregmaxey.com/word_tip_pages/toggle_data_display.html

Ditto to Graham's advise on cross posting.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using Check Boxes and how to expand them	SPT	Word	3	02-25-2015 05:04 AM
How not disable expand/collapse	LVP	Word	3	12-21-2014 12:12 PM
Drop-Down Menu, show-hide, expand-collapse???	300zxmuro	Word	1	02-27-2011 03:02 PM
How to expand one column into two columns?	Jamal NUMAN	Excel	1	01-12-2011 07:59 PM
Grouping - expand all	ejohns	Excel	0	07-17-2009 07:15 AM