Fieldcodes in bestandsnaam zonder "FORMTEXT"

[wiebeww]

Goedemorgen,

Ik ben voor de lokale voetbalclub bezig om brieven te maken voor de leden en deze wil ik per lid opslaan. Nu leek het me handig om automatisch de waarden LIDCODE en NAAM in de bestandsnaam te krijgen.

Nu heb ik onderstaande code maar verschijnt er steeds FORMTEXT voor elk resultaat uit de form-fields.

Sub FileSave()
    If ActiveDocument.Path = "" Then
        ' If the document has never been saved, the
        ' value of its .Path is an empty string; otherwise
        ' it has the file's path and name.
        With Dialogs(wdDialogFileSaveAs)
            .Name = MakeDocName  ' call the function below
            .Show                ' the suggested name will be in the dialog
        End With
    Else
        ' The document has already been saved with a name
        ' so just save it there.
        ActiveDocument.Save
    End If
End Sub

Function MakeDocName() As String
    Dim theName As String
    Dim uscore As String
    uscore = "_"
    
    With ActiveDocument.Bookmarks
        ' Use any combination of bookmarks and
        ' document properties to assemble the
        ' suggested name.
        theName = theName & ("Brief Lidcode-")
        theName = theName & Trim(.Item("LIDCODE").Range.Text)
        theName = theName & uscore & Trim(.Item("NAAM").Range.Text)
    End With
    
    MakeDocName = theName  ' return the assembled name
End Function

Sub FileSaveAs()

FileSave

End Sub

Kort samengevat wil ik het volgende bereiken:
Huidig resultaat: Vrijwilligersbrief LIDCODE-FORMTEXT BFYKXXX FORMTEXT Jan Janssen.docx
Gewenst resultaat: Vrijwilligersbrief LIDCODE-BFYKXXX Jan Janssen.docx

Heeft iemand enig idee hoe dit er uit te halen is? Ik heb op meerdere fora gezocht maar veel verder dan de formfields opnieuw definiëren kwam ik niet.
Alvast ontzettend bedankt!

 

[OctaFish]

Wat ben je precies aan het doen? En waar heb je die code vandaan? Ik vermoed dat je de code hebt geplukt van een voorbeeldje waarbij gebruik wordt gemaakt van een enkel document waarin m.b.v. Bladwijzers velden zijn gedefinieerd, en dat jij gebruik maakt van een samenvoeg document. En dat is een andere tak van sport.

 

[wiebeww]

OctaFish,

Ontzettend bedankt. Ik ging er vanuit dat de code geschikt was voor formuliervelden. Ik heb er nu een bladwijzer van gemaakt en nu werkt het wel. Ontzettend bedankt voor de hulp, super!

De code heb ik inderdaard op internet gevonden.

Bedankt nogmaals!