PDF Einstellungen

[koter]

Hallo mvm,

Der Name wird automatisch in jedes neue Dokument eingefügt.

Gruß

koter

[koter]

Gibt es irgendwo die Einstellung, dass das PDF nach generieren automatisch angezeigt wird?

Hallo Baerber,

Eine solche Einstellung kenne ich nicht, aber falls Du die PDF über ein Makro erzeugst, kann man diese Funktion mit einbauen.

Code:

Sub PDFexp()
    'Dateiname erzeugen
    Dateiname = ActiveDocument.FullFileName
    Dateiname = Left(Dateiname, Len(Dateiname) - 4)
    Dateiname = Dateiname & ".pdf"
    'Als PDF Freigeben
    ActiveDocument.PublishToPDF Dateiname
    
    'Pfad zum PDFReader
    PDFReader = "C:\Programme\SumatraPDF\SumatraPDF.exe"
    
    'Datei öffnen
    Befehl = PDFReader & " " & Dateiname
    Antwort = MsgBox("PDF-Datei öffnen?", vbYesNo + vbQuestion, "Öffnen")
    If Antwort = vbYes Then
        Shell Befehl, vbMaximizedFocus
    End If
End Sub

Unter 'Pfad zum PDFReader musst Du den Pfad zu Deinem PDF Reader eingeben. Also z.B.:
PDFReader = "C:\Programme\Adobe\Reader 10.0\Reader\AcroRd32.exe"

Gruß

koter

[norre]

Hallo Koter, du bist er Beste :sei_gepriesen: Wenn ich darf werde ich gleich mal morgen schaun ob ich den Code in das PDF-Macro reinbekomme.

[mvm]

Der Name wird automatisch in jedes neue Dokument eingefügt.

Hallo Koter,
ich weiß zwar nicht warum, aber Dein Makro funktioniert. 1.000 Dank für diese Erleichterung.

[koter]

Wenn ich darf werde ich gleich mal morgen schaun ob ich den Code in das PDF-Macro reinbekomme.

Hallo norre,

sicher darfst Du, aber das Makro hat einen Haken, es funktioniert nicht wenn im Pfad oder im Dateinamen Leerzeichen vorkommen.
Wenn Du die Zeile unter 'Datei öffnen, durch die folgende ersetzt, geht es auch wenn Leerzeichen im Pfad oder Dateinamen vorkommen:

Code:

Befehl = PDFReader & " " & Chr(34) & Dateiname & Chr(34)

Aus alten MS-DOS Zeiten bin ich noch daran gewöhnt, keine Leerzeichen in Dateinamen zu verwenden. Deshalb war mir das beim testen nicht aufgefallen.

Gruß

koter

[Unkraut]

Pssst, nicht so laut, sonst wird Unkraut eifersüchtig.
Mit ihr hat das auch schon geklappt.

hach, auch flüstern hilft nicht, ich höre es doch.
Norre, bei uns hat es aber schon mehr als einmal geklappt, daher.....

einen schönen Sonntag