Navngiv PDF fil ud fra reference i Word

Jeg har en database og en brevfletningsfil, i denne brevfletningsfil har jeg en makro som gemmer den i PDF-format,

Det jeg gerne vil er at PDF filen skal navngives efter en reference i word "et sted i word" (nationality - cert - ID)

Sub PDF_Safer()
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "I:\17 folder\next folder\next folder PDF\"FILNAVN.pdf" _
        , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    ChangeFileOpenDirectory _
        "I:\17 Conference & Facilities\Reception\Maersk Line PDF\"
End Sub


any one with a solution?