Yet another Multi-Select Listbox in Userform question

[Javir]

Hi,
I've been through most of the posts related to Multi-Select Listbox in a Userform.

I have a simple letter that triggers a Userform asking for a surname and a Multi-Select Listbox (called services).

In the word doc I assigned Doc Variable var1 for the name and Doc Variable var2 to include the options chosen in the Listbox.

The problem is I can't seem to make it work.

My Ok button code is:
Private Sub cmdOK_Click()
Set oVars = ActiveDocument.Variables
Hide
oVars("var1").Value = surname.Value
ActiveDocument.Fields.Update
Set oVars = Nothing
Dim i As Long
Dim StrOut As String
For i = 0 To Me.services.ListCount - 1
If Me.services.Selected(i) Then
StrOut = StrOut & Me.services.List(i) & vbCr
End If
Next i
oVars("var3") = StrOut
Unload Me
End Sub

If I change oVars("var3") to MsgBox, the code works. But it doesn't insert the options in the document, of course, as it's a MsgBox.



Any help?

Thanks!

Javier

[gmaxey]

So what happens if you:

Msgbox oVars("var3")


You are updating the fields before defining the docvariable.

[Guessed]

Why are you using oVars again after setting it to Nothing?

[gmayor]

You should also declare all your variables and update the fields when the processing is completed.

If you have fields that are not in the body of the document you will need to ensure that they are updated also.

Private Sub cmdOK_Click()
Dim i As Long
Dim StrOut As String
Dim oVars As Variables
    Set oVars = ActiveDocument.Variables
    Hide
    oVars("var1").value = Surname.value
    For i = 0 To Services.ListCount - 1
        If Services.Selected(i) Then
            StrOut = StrOut & Services.List(i) & vbCr
        End If
    Next i
    oVars("var3").value = StrOut
    UpdateAllFields
    Set oVars = Nothing
    Unload Me
End Sub

Private Sub UpdateAllFields()
Dim oStory As Range
    For Each oStory In ActiveDocument.StoryRanges
        oStory.Fields.Update
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                oStory.Fields.Update
            Wend
        End If
    Next oStory
    Set oStory = Nothing
lbl_Exit:
    Exit Sub
End Sub

[Javir]

Hi everyone,

thank you for the quick reply!
Yes, @gmayor, that worked perfect.
My code was wrong from the start!

Thank you again,

javier