Auto select drop down value

On document.new, I am pre-loading fields with info from our host system.
I need to auto select a drop down value based on a value in text1.

For example let's say the drop down list contains
WNA
WNI
PMI

if text1 = '1' then I want to auto select WNI in the drop down

Thanks in advance,
Bryan

Graham
Sat Nov 24 06:11:22 PST 2007

You would need something like

Sub OnExitText1()
Dim oFld As FormFields
Set oFld = ActiveDocument.FormFields
Select Case oFld("Text1").Result
Case Is = "1"
oFld("DropDown1").Result = "WNA"
Case Is = "2"
oFld("DropDown1").Result = "WNI"
Case Is = "3"
oFld("DropDown1").Result = "PMI"
Case Else
'Do nothing
End Select
End Sub

with a case statement for each value of Dropdown1 that you wish to load

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

bryan wrote:
> On document.new, I am pre-loading fields with info from our host
> system. I need to auto select a drop down value based on a value in
> text1.
>
> For example let's say the drop down list contains
> WNA
> WNI
> PMI
>
> if text1 = '1' then I want to auto select WNI in the drop down
>
> Thanks in advance,
> Bryan