
Signature
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
Hi Jay,
Thanks for the details. Unfortunately I haven't got very far with this apart
from creating the fields and values - that's where what little ability I had
has run out...
The fields themselves are named Q3a, Q3b, Q4a etc and the available answers
are either Yes/No or All Locations/Some Locations/None. It would therefore
help users of the form that if they answer 'None' to Q3a for example, 3b, 3c
are skipped (as they're no longer applicable) and Q4a is the next to be
answered.
Thanks for your help.

Signature
MattB
> Hi Matt,
>
[quoted text clipped - 22 lines]
> > Word knowledge now.
> > TIA
Jay Freedman - 21 Nov 2006 15:50 GMT
Hi Matt,
This is the macro from the web page, modified to work with your dropdowns.
Assign this macro as the exit macro for each dropdown that needs this kind
of redirection, and create a case for each dropdown following the models I
show:
Sub TabOrder()
Dim StrCurFFld As String, StrFFldToGoTo As String
'First get the name of the current formfield
If Selection.FormFields.Count = 1 Then
'No textbox but a check- or listbox
StrCurFFld = Selection.FormFields(1).Name
ElseIf Selection.FormFields.Count = 0 And _
Selection.Bookmarks.Count > 0 Then
'Textbox
StrCurFFld = _
Selection.Bookmarks(Selection.Bookmarks.Count).Name
End If
'Then find out which formfield to go to next ...
Select Case StrCurFFld
Case "Q3a"
' the dropdown's "value" is the number
' of the selected item, starting from 1
If Selection.FormFields(1).DropDown.Value = 3 Then
' selected "None", the 3rd item
' so skip to next dropdown
StrFFldToGoTo = "Q4a"
Else
' selected something else, so
' continue to next text field in this group
StrFFldToGoTo = "Q3b"
End If
Case "Q4a"
If Selection.FormFields(1).DropDown.Value = 2 Then
' selected "No", the 2nd item
StrFFldToGoTo = "Q5a"
Else
StrFFldToGoTo = "Q4b"
End If
Case Else
' any other field that doesn't need redirection
StrFFldToGoTo = ""
End Select
' ... and go to it
' or just go to the next field if StrFFldToGoTo = ""
If StrFFldToGoTo <> "" Then
' if the destination is a text formfield,
' use the more complicated selection method
If ActiveDocument.FormFields(StrFFldToGoTo).Type = _
wdFieldFormTextInput Then
ActiveDocument.Bookmarks(StrFFldToGoTo).Range _
.Fields(1).Result.Select
Else
ActiveDocument.FormFields(StrFFldToGoTo).Select
End If
End If
End Sub
In testing this macro, I found that the .Select statement at the end of the
original version will select only a text formfield. If you want the
selection to jump to the next dropdown, you need the other .Select statement
shown here.

Signature
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
> Hi Jay,
>
[quoted text clipped - 44 lines]
>>> Word knowledge now.
>>> TIA