Word => speichern unter => PDF Fensteroptionen => Dateinamen statt Dokumententitel

Hallo,

vielen Dank für deine Anfrage.

Wenn man einen Titel im Worddokument hat, wird diesen Titel beim Speichern unter automatisch als Dateiname angeboten. Ich finde keine Option, das zu manipulieren. Man kann noch die Datei drucken und Microsoft Print to PDF verwenden. Dabei wird auch eine PDF Datei generiert, aber der Titel wird nicht als Name angeboten.




Man kann gern Verbesserungsideen den Entwicklern direkt im Office App abgeben oder im Word Feedback Portal präsentieren, sodass andere Mitglieder auch zustimmen und kommentieren können. Wenn viele die Idee mögen und zustimmen, werden die Entwickler offiziell antworten und möglicherweise die Idee implementieren.

Mit freundlichen Grüßen
Alexander Petrov
Microsoft Office 365 Business Support Engineer

Mit Word kenne ich mich nicht so gut aus. Ich dachte, der Pfad zur PDF würde in ActiveDocument.Fullname stehen, das ist aber nicht der Fall.

Dann must Du das Speichern als pdf auch über das Script machen.
Dieses Beispiel zeigt, wie das geht. Der gewählte Dateiname/Pfad steht nach Klick auf OK in dlgSaveAs.SelectedItems(1). Der Wert muss an Attachments.Add übergeben werden.

Wenn Du die Datei abschließend nicht mehr brauchst, kannst Du die mit

Kill Dateiname

löschen.

Hallo,

Seit 4 Tagen kann ich Briefe über Word 2007 nicht mehr als PDF - Datei speichern. Ich bekomme immer diese Meldung:

Diese Datei wird gerade von einer anderen Anwendung oder einer anderen Person verwendet.

zu welchem Zeitpunkt kommt die Meldung?

Nach"Speichern unter" kannst du einen Ordner als Speicherort auswählen? Du kannst auch einen Dateinamen eintippen? Doch der Speichervorgang lässt sich nicht abschließen?

Basieren deine "Briefe" auf einer bestimmten Dokumentvorlage? Kannst du anderen Dokumente als PDF-Datei speichern?

Viele Grüße

Lisa

Hey

Genau: ich gehe auf "Speichern Unter" und gebe an als PDF statt word.

Bei dem Dokument handelt es sich um meine Bachelorarbeit. Daher habe ich einige Querverweise auf Tabellen und Graphiken am Ende des Dokuments (im Anhang) in den Fußnoten.

Ich hoffe Sie können mir helfen

Sophia

Wenn ich das jetzt wie folgt mache:
<br />Sub PDF_Datei()
<br />Dim Dateiname As String
<br />Dateiname = InputBox("Dateiname eingeben", "Datei speichern unter", _
<br />".pdf")
<br />With Application.FileDialog(msoFileDialogSaveAs)
<br /> .FilterIndex = 26
<br /> .Title = "Als PDF exportieren unter"
<br /> .InitialFileName = ThisWorkbook.Name
<br /> If Not .Show Then Exit Sub
<br /> Dateiname = .SelectedItems(1)
<br /> End With
<br />ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, _
<br />Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
<br />OpenAfterPublish:=True
<br />End Sub
<br />Dann will er das immer als xps abspeichern und nicht als PDF. Also muss ja noch irgendwo ein Fehler sein?
<br />