Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Word in PDF
zurück: Userform: Standart-Texte dauerhaft in Word hinterlegen weiter: Index per Makro mit Hyperlinks versehen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
03. Nov 2010, 14:45
Rufname:

Word in PDF - Word in PDF

Nach oben
       Version: Office 2007

Hallo,
ich habe ein Makro die in excel 100% läuft.
Wie kann das unter Word laufen?

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Sub Speichern()
Const cstrCreator = "C:\programme\pdfcreator\pdfcreator.exe"
Dim strPDFPath As String

strPDFPath = "D:\Daten\test\probe.pdf"

ActiveSheet.PrintOut ActivePrinter:="PDFCreator", PrintToFile:=True, PrToFileName:="D:\Daten\test\probe.ps"
Sleep 2000
Shell cstrCreator & " /IF""D:\Daten\test\probe.ps"" /OF""" & strPDFPath & """ /DeleteIF"
End Sub
KeepCoolMan
VBA-NonExpert ;) Office 2010


Verfasst am:
03. Nov 2010, 15:43
Rufname: Thomas
Wohnort: Celle


AW: Word in PDF - AW: Word in PDF

Nach oben
       Version: Office 2007

Mal 'ne blöde Frage: Was macht der Code genau? (Ich kenne den PDFCreator nicht)
Wozu ist die PS-Datei da? Wozu brauchst du Sleep?

_________________
Gruß Thomas

Ich freue mich über Feedback, Kritik und Verbesserungsvorschläge...
Wer will, findet Möglichkeiten; wer nicht will, findet Gründe! :: Unt wär Rächdshraibfela fint, daaf sie behaltn!
Gast



Verfasst am:
03. Nov 2010, 15:52
Rufname:

AW: Word in PDF - AW: Word in PDF

Nach oben
       Version: Office 2007

der Code erstellt beim speichern eine pdf kopie und läuft mit excel 100%.
ich brauche das auch in Word.
wie kann ich beim abspeichern ein makro starten?
z.b

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Modul1.PDFDruck
End Sub

das funktioniert nicht.
sternkrabbe
aufgestiegen in: Zweite Liga


Verfasst am:
03. Nov 2010, 16:21
Rufname:

AW: Word in PDF - AW: Word in PDF

Nach oben
       Version: Office 2007

Word benutzt Document_ statt Workbook_
_________________
"Kleine Fehler im Code erhöhen den Lerneffekt."
aktuell am Start: Office 2004(Mac), 2007, 2008, 2011
KeepCoolMan
VBA-NonExpert ;) Office 2010


Verfasst am:
03. Nov 2010, 16:45
Rufname: Thomas
Wohnort: Celle


AW: Word in PDF - AW: Word in PDF

Nach oben
       Version: Office 2007

Ich habe leider nur 2010 und da würde man wohl einfach
Code:
ActiveDocument.SaveAs2 FileName:="D:\Daten\test\probe.pdf", FileFormat:=wdFormatPDF
nehmen, aber versuch mal statt
Zitat:
ActiveSheet.PrintOut ActivePrinter:="PDFCreator", PrintToFile:=True, PrToFileName:="D:\Daten\test\probe.ps"

Code:
Application.ActivePrinter = "PDFCreator"
ActiveDocument.PrintOut PrintToFile:=True, OutputFileName:="D:\Daten\test\probe.ps"


Das zweite Problem ist etwas schwieriger zu lösen (auch hier kann ich leider nur 2010 testen und hoffe, es gilt für 2007 auch so)

Zuerst muss eine Klasse, hier: DocEvents, erstellt werden. In dieser Klasse werden zuerst die EventHandler "aktiviert" und dann die Events behandelt:
Code:
Public WithEvents appWord As Word.Application

Private Sub appWord_DocumentBeforeSave(ByVal doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    Call Modul1.PDFDruck
End Sub


Im "normalen" Code (einem Standard-Modul oder z.B. im AutoOpen) muss dann eine Klasseninstanz gebildet werden und die Events verfügbar gemacht werden. Ich nenne die Sub hier InitClassEvents, aber dieses Set kann auch in einer anderen Sub zu Beginn aufgerufen werden.

Code:
' Klasseninstanz für Eventhandler
Dim thisApp As New DocEvents

' dies muss aufgerufen werden, um die Events verfügbar zu machen
Sub InitClassEvents()

    ' Verbindung zum deklarierten Objekt im Klassenmodul herstellen
    Set thisApp.appWord = Word.Application

End Sub


Nach dem Set werden die in der Klasse definierten Events behandelt. In diesem Beispiel führt also
Code:
ActiveDocument.Save
zum Aufruf von Modul1.PDFDruck...
_________________
Gruß Thomas

Ich freue mich über Feedback, Kritik und Verbesserungsvorschläge...
Wer will, findet Möglichkeiten; wer nicht will, findet Gründe! :: Unt wär Rächdshraibfela fint, daaf sie behaltn!
alex-fw
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Nov 2010, 08:45
Rufname:

AW: Word in PDF - AW: Word in PDF

Nach oben
       Version: Office 2007

KeepCoolMan danke für deine hilfe!

erlich gesagt habe ich bahnhof verstanden! Razz

Modul1.PDFDruck läuft.

was soll ich in klassenmodul klasse1 einfügen?
ThisDokument was kommt hier rein?

ich bin Anfänger in VBA programmierung un wenn es geht bitte schritt für schritt erklären.
danke voraus!
Gast



Verfasst am:
04. Nov 2010, 10:22
Rufname:

AW: Word in PDF - AW: Word in PDF

Nach oben
       Version: Office 2007

ich habe problem gelöst.

Sub AutoClose()
Call Modul1.PDFDruck
End Sub
alex-fw
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Nov 2010, 11:46
Rufname:

Re: AW: Word in PDF - Re: AW: Word in PDF

Nach oben
       Version: Office 2007

Anonymous - 04. Nov 2010, 09:22 hat folgendes geschrieben:
ich habe problem gelöst.

Sub AutoClose()
Call Modul1.PDFDruck
End Sub



es funktioniert nicht 100%
es gibt bestimmt ein andere Lösung.
in Word gibt schon Möglichkeit Datei in PDF Format abspeichern, ich will das automatisieren, z.b wenn man Datei speichert oder schlisst wird gleich zeitig eine PDF Kopie in bestimmten Ordner eingelegt.
und dass alles ohne PDF Creator, wer kann mir weiter helfen?
alex-fw
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Nov 2010, 13:16
Rufname:


AW: Word in PDF - AW: Word in PDF

Nach oben
       Version: Office 2007

ein Lösung habe gefunden

Sub PDFsave()
'
' PDFsave Makro
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"D:\Daten\test\Probe.pdf", 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

dauert 3-4 Minuten ganze Prozess.
eins finde ich nicht raus, wie kann ich Name Original Dokument übernehmen, ohne vorschreiben "\Probe.pdf"
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbriefdruck in pdf MAC 2 Tanatos 105 04. März 2014, 13:29
fridica Serienbriefdruck in pdf MAC
Keine neuen Beiträge Word Serienbriefe: Serienbrief als PDF in Anlage mit personalisierter EMail 1 che.tux 695 13. Sep 2013, 17:24
Gast Serienbrief als PDF in Anlage mit personalisierter EMail
Keine neuen Beiträge Word Serienbriefe: PDF mit Mouse - Over - Effekt aus Word erzeugen 0 tzentel 298 07. Aug 2013, 11:22
tzentel PDF mit Mouse - Over - Effekt aus Word erzeugen
Keine neuen Beiträge Word Formate: Einzelne Grafik in PDF exportieren 3 Patrick H 197 17. Jun 2013, 15:27
Ute-S Einzelne Grafik in PDF exportieren
Keine neuen Beiträge Word Serienbriefe: Serienbrief als PDF abspeichern - will nicht so recht 0 mrniceguy1977 295 30. Jan 2013, 09:27
mrniceguy1977 Serienbrief als PDF abspeichern - will nicht so recht
Keine neuen Beiträge Word Formate: Wie drucken/speichern als seitenloses pdf? 2 Rakshasa 393 09. Aug 2012, 11:27
Gast Wie drucken/speichern als seitenloses pdf?
Keine neuen Beiträge Word Formate: Wie Markieren für PDF 2 hestan 496 13. Jul 2012, 13:21
hestan Wie Markieren für PDF
Keine neuen Beiträge Word Formate: Dokument Legacyformulare (Kontrollkästchen) PDF umwandeln 2 Lothar_Flieger 701 17. Jun 2012, 14:22
Lothar_Flieger Dokument Legacyformulare (Kontrollkästchen) PDF umwandeln
Keine neuen Beiträge Word Formate: Kopfzeilen verrutschen bei Umwandlung in PDF 0 Detsen 498 15. Apr 2012, 21:39
Detsen Kopfzeilen verrutschen bei Umwandlung in PDF
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit PDF Anhang, Adressquelle Excel 0 Gast 1411 27. Jul 2011, 08:40
Gast Serienbrief mit PDF Anhang, Adressquelle Excel
Keine neuen Beiträge Word Serienbriefe: Serienemail mit personalisiertem anhang als pdf 2 Gast 4851 10. Jan 2011, 16:52
j.kamikatze Serienemail mit personalisiertem anhang als pdf
Keine neuen Beiträge Word Formate: Probleme beim speichern des Word-Dokuments in PDF 1 Suslllll 914 20. Dez 2010, 21:35
Wolfgang 1958 Probleme beim speichern des Word-Dokuments in PDF
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen