Expand or Collapse with Drop Down Box in Word 2010

[Loss1003]

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


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.

[Loss1003]

anyone have any ideas or suggestions??

[gmayor]

Look at your similar thread at http://www.msofficeforums.com/word-vba/25605-help-drop-down-box-expand-collapase.html
Please cross post messages correctly to avoid unneccessary duplication of effort.

[gmaxey]

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