Thread: [Solved] Word 2007 - Drop Box Issue
View Single Post
 
Old 09-13-2012, 10:33 AM
skusekd skusekd is offline Windows 7 32bit Office 2007
Novice
 
Join Date: Sep 2012
Posts: 5
skusekd is on a distinguished road
Default Macro

Thank you for the help!

Now I'm having a new issue, probably b/c I've never used macros, and may be getting in a little over my head.

My code seems to be faulty, can you find the error, please? :S

-----------------------------------------------------------------------
Code:
Sub OnExitDDListA()
Dim oDD As DropDown
Dim oFFs As FormFields
Dim StrNew As String
Set oDD = ActiveDocument.FormFields("NAME").DropDown
'Clear previous list
oDD.ListEntries.Clear
'Repopulate list based on user selection
Select Case ActiveDocument.FormFields("TYPE").Result
  Case "Hotels"
    With oDD.ListEntries
      .Add "Best Western Hotel"
      .Add "BonAir Hotel"
      .Add "Econo Lodge"
      .Add "Elect Inn"
      .Add "Glenmore Inn"
      .Add "HoBo Lodge"
      .Add "Holiday Inn"
      .Add "Howard Johnson Inn"
      .Add "Travellers Inn"
      .Add "Other"
    End With
    With ActiveDocument.FormFields("TYPE").DropDown
      If .Value = 10 Then
        StrNew = Trim(InputBox("Input your text", "Free text input"))
        If StrNew = vbNullString Then
          .ListEntries(10).Delete
          .ListEntries.Add StrNew
          .Value = 10
        End If
    End With
  Case "Air Fare"
  Case "Certificates"
    With oDD.ListEntries
      .Add "Aerial Platform"
      .Add "Fall Protection"
      .Add "WHMIS"
      .Add "Other"
    End With
  End Select
lbl_Exit:
Exit Sub
End Sub

Last edited by macropod; 09-13-2012 at 03:29 PM. Reason: Added code tags & formatting
Reply With Quote