Hi there,

I've been working on an Access database to import Word documents from
formfield-based templates. As some of the form fields don't have names,
I've used some code I found on here to name them - however the contents
of the dropdowns are then reset to their defaults. I've tried to
capture the dropdown's value in a variable, but I get error messages
with everything I do to insert the variable's value back into the
field.

I've spent a day trying to capture the actual value rather than just a
rectangle; the best I seem to be able to manage now is overwriting the
formfield itself with the variable, which really doesn't help!

Please can someone help? I'm new to Word VBA (specifically the object
model!), I'm used to Access VBA!!

It seems to be using Word 2002; the code is stored in an Access 2002
database (2000 file format).

Before this, the document is identified, opened and unprotected.

For Each oFormfield In doc.FormFields
 oFormfield.Select
 If Selection.Bookmarks.Count = 0 Then
   tmp = oFormfield.Result
   oFormfield.Range.Fields.Locked = True
   With Dialogs(wdDialogFormFieldOptions)
     i = i + 1
     .Name = "Formfield" & i

     .Execute

   End With
   End If

'these are all the things I've tried and the error messages with each
   'Selection.Collapse Direction:=wdCollapseEnd (deleted the previous
line, didn't work anyway).
   'oFormfield.Result = tmp (application-defined or object-defined
error)
   'oFormfield.Range.InsertAfter tmp (server throws an exception)
   'MsgBox tmp (this is the only ducking thing which works!)
   'doc.FormFields("oFormfield").Result = tmp (error 5941 - field not
found)
   'doc.FormFields(oFormfield).Result ('bad parameter')
   'Selection.TypeText tmp (this one overwrites the formfield)
   'oFormfield.Range.Text = tmp (server throws an exception with this
one)
   
Next

Huge thanks!!

Chantal