Makro für PDF-Konvertierung mit Dateinamen aus Formularfeld Word 2013 [gelöst]

[Nerephes]

Hi Leute,

ich hab mir ein VB-Makro geschrieben das mir mein Word 2013 Dokument als PDF an einem definierten Speicherort ablegt und dabei als Dateinamen den Inhalt eines Formularfeldes des Dokuments verwendet.

Aktuell sieht das so aus:

[src=vb]Sub PDF()
'
' PDF Makro
' Umwandlung und Speicherung als PDF
'
ChangeFileOpenDirectory "XXX"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"XXX\Herstellbarkeitsbewertung" & ActiveDocument.Bookmarks("Materialnummer").Range.Text _
, 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
End Sub[/src]

Funktioniert auch alles nur das eben der Ausgegebene Dateiname nicht nur aus "Herstellbarkeitsbewertung" und *Variable* "Materialnummer" besteht ,sondern das zwischen diesen beiden Elementen das Wort "FORMTEXT" steht.

Wenn ich nur die Variable Mat.-Nr. als Namen wähle dann steht halt "FORMTEXT *Materialnummer*" als Dateiname.

Irgendeine Idee wie ich das "FORMTEXT" da wieder wegbekomme?

 

[Nerephes]

Re: Makro für PDF-Konvertierung mit Dateinamen aus Formularfeld Word 2013

Ich Vollpfosten... beim Durchlesen ist es mir aufgefallen.

Das sind keine Bookmarks sondern FormFields.

Das richtige Marko lautet also:

[src=vb] Sub PDF()
'
' PDF Makro
' Umwandlung und Speicherung als PDF
'
ChangeFileOpenDirectory "XXX"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"XXX\Herstellbarkeitsbewertung" & ActiveDocument.Formfields("Materialnummer").Range.Text _
, 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
End Sub
[/src]

Ist also schon erledigt...