• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

FORMTEXT verschijnt in de bestandsnaam

Status
Niet open voor verdere reacties.

wiebeww

Gebruiker
Lid geworden
5 mei 2006
Berichten
38
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.

Code:
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

Code:
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

Code:
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!
 
Je zit in de verkeerde groep, denk ik zo.
Dit is een Word-macro! Zal hier niet werken.
 
Gebruik in dit geval documentvariabelen.
te vinden bij velden : docvariable.
{DOCVARIABLE naam}
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan