Wie speichere ich eine geöffnete Word-Datei als PDF mit VBA und spezifischem Dateinamen?

Um eine geöffnete Word-Datei als PDF zu speichern und den Dateinamen anzugeben, kann folgender VBA-Code verwendet werden:

```vba
Sub SaveAsPDF()
Dim fileName As String
' Setze den gewünschten Dateinamen (inklusive Pfad)
fileName = "C:\Pfad\zu\deiner\Datei.pdf"

' Speichere das aktive Dokument als PDF
ActiveDocument.ExportAsFixedFormat OutputFileName:=fileName, _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=wdExportCreateHeadingBookmarks, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End Sub
```

Dieser Code speichert das aktuell geöffnete Dokument als PDF unter dem angegebenen Dateinamen. Der Pfad und der Dateiname müssen entsprechend angepasst werden.