Help.. 'Opslaan als' met bestandsnaam eerste zin uit de brief.

[jpotter]

Hallo..

Ik ben bezig met een aantal brieven in word die uitgeprint en digitaal gearchiveerd moeten worden.
Nu was ik van plan een knop in word te zetten die de brief automatisch als PDF opslaat in een map.
De bestandsnaam van de PDF moet de eerste zin zijn van mijn brief en deze veranderd dus per brief "(vb van naam "D01235_B789456")

Nu heb ik het volgende gedaan:

' Jack Macro
'
'
    Selection.HomeKey Unit:=wdStory
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.Cut
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "\\Nlfsprdcs00001.Bestanden\Werkgroep Jack\TEST BRIEVEN DAAN\D1234_.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 _
        "\\Nlfsprdcs00001.Werkgroep Jack\TEST BRIEVEN DAAN\"
   Selection.Cut

End Sub

Het word bestand komt mooi als PDF in de map waar ik hem wil hebben. Helaas lukt het me niet met het opslaan onder de juiste naam Hij blijft steeds hangen onder de eerste naam die ik in het potlood bestand invoer.
Dit is de eerste keer dat ik met macro werk dus wie kan mij helpen met het probleem.