geöffnetes Word-Dokumen zu pdf
#1
Hallo, ich habe ein kleines Probelm Confused 

ich möch ein geöffnetes Word-Dokument per VBA zu pdf konvertieren.

das klappt auch ganz gut:

Sub zu_pdf()
ActiveDocument.ExportAsFixedFormat OutputFileName:=("C:\DE\Bremen\Garden\Front Office\Module\Test\") & "Anschriftenänderung" & ".pdf", _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close

End Sub

ich möchte allerdings, das dieser Vorgang im Hintergrund abläuft, da heißt, das pdf.Dokument soll gar nicht geöffnet werden.

Als Alternative suche ich eine Möglichkeit das pdf.Dokument per vba zu schließen.


kann mir jemand weiter helfen?

Lieben Gruß Frank
Antworten Top
#2
Hallo Frank,

OpenAfterExport:=False

Gruß Uwe
Antworten Top
#3
Danke, das klappt super !

genauso wollte ich es haben.

Jetzt suche ich noch nach einer Möglichkeit das Word-Programm komplett zu beenden.

Dazu muß zuerst die noch offene Word-Datei angesteuert werden und dann Word beendet.

Hast du hierfür auch einen Tip?

Vielen Dank und Gruß Frank
Antworten Top
#4
Hallo Frank,

Application.Quit

als letzte Anweisung vor End Sub.

Gruß Uwe
Antworten Top
#5
Super,

vielen Danke Uwe, wieder ein Problem gelöst. 19

Lieben Gruß Frank
Antworten Top
#6
Hallo Uwe,

vieleicht kannst du mir auch hierbei helfen.

ich brauche eine Prüfung ob Word bereits gestartet ist oder nicht.

Wenn es gestartet ist, dann soll es geschlossen werden.
Wenn noch nicht geöffnet, dann soll nicht weiter passieren und das Programm weiterlaufen
Antworten Top
#7
Hallöchen,

im Prinzip reicht eine Zeile

If CreateObject("WScript.Shell").Run("taskkill /f /im Winword.Exe", 0, True) = 0 Then MsgBox "Word beendet" Else MsgBox "Word lief nicht"
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#8
Vielen Dank Andre,

klappt wunderbar.

Lieben Gruß Frank
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste