title image


Smiley Re: Doc zu PDF
Hallo StefanIch gehe davon aus, dass Adobe auch die entsprechenden Export-Filter mit liefert. Dieser Filter müsste (technisch) registriert sein/werden. Du kannst dies Überprüfen, wenn Du Dich in der Registry zum Schlüssel:HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word\Text Converters\Exportvorarbeitest.Dort suchst Du den entsprechenden Konverter und schreibst Dir den registrierten Namen raus und trägst diesen im untenstehenden VBA-Code in der Konstanten "ExportFormatName" ein.Weiter solltest Du die Konstanten "Verzeichnis", "Filter", "UnterverzeichnisseEinbeziehen" und Targetverzeichnis im Kopf des Codes nach Deinen Bedürfnissen anpassen.Die Routine ermmittelt dann die ID des Export-Konverters und nach einer Abfrage an den Benutzer, geht es los mit der Konvertierung.GrussSilviaNachfolgend zweimal der identische Code zuerst HTLM-formatiert und dann vanillaPrivate Const Verzeichnis = "C:\Eigene Dateien"Private Const Filter = "*.doc"Private Const UnterverzeichnisseEinbeziehen = FalsePrivate Const TargetVerzeichnis = "C:\Acrobat"Private Const ExportFormatName = "Was weiss ich"Private ExportFormatID As LongPrivate ExportExtentions As StringSub DateiSchleife() ExportFormatErmitteln Dim oDoc As Document If Documents.Count > 0 Then Dokument = ActiveDocument.FullName With Application.FileSearch .LookIn = Verzeichnis .FileName = Filter .SearchSubFolders = UnterverzeichnisseEinbeziehen .Execute SortBy:=msoSortByFileName Anzahl = .FoundFiles.Count Antwort = MsgBox(Anzahl & " Dateien werden nun konvertiert.", vbOKCancel) If Antwort = 2 Then End Application.ScreenUpdating = False For Each aDok In .FoundFiles If aDok Dokument Then On Error Resume Next Documents.Open aDok Fehler = Err.Number On Error GoTo 0 If Fehler = 0 Then Set oDoc = ActiveDocument oDoc.SaveAs FileName:=TargetVerzeichnis & "\" & oDoc.Name & "." & ExportExtentions, FileFormat:=ExportFormatID oDoc.Close End If End If Next End With StatusBar = "Konvertiere Dokument " & aDok.FullName DoEvents Application.ScreenUpdating = TrueEnd SubPrivate Sub ExportFormatErmitteln() Dim Konverter As FileConverter For Each Konverter In Application.FileConverters If Konverter.CanSave = True Then If Konverter.FormatName = ExportFormatName Then ExportFormatID = Konverter.SaveFormat ExportExtentions = Konverter.Extensions Exit For End If End If Next If ExportFormatID = 0 Then Dummy = MsgBox("Die ID des Export-Konvertes konnte nicht ermittelt werden.") End End IfEnd SubPrivate Const Verzeichnis = "C:\Eigene Dateien"Private Const Filter = "*.doc"Private Const UnterverzeichnisseEinbeziehen = FalsePrivate Const TargetVerzeichnis = "C:\Acrobat"Private Const ExportFormatName = "Was weiss ich"Private ExportFormatID As LongPrivate ExportExtentions As StringSub DateiSchleife() ExportFormatErmitteln Dim oDoc As Document If Documents.Count > 0 Then Dokument = ActiveDocument.FullName With Application.FileSearch .LookIn = Verzeichnis .FileName = Filter .SearchSubFolders = UnterverzeichnisseEinbeziehen .Execute SortBy:=msoSortByFileName Anzahl = .FoundFiles.Count Antwort = MsgBox(Anzahl & " Dateien werden nun konvertiert.", vbOKCancel) If Antwort = 2 Then End Application.ScreenUpdating = False For Each aDok In .FoundFiles If aDok Dokument Then On Error Resume Next Documents.Open aDok Fehler = Err.Number On Error GoTo 0 If Fehler = 0 Then Set oDoc = ActiveDocument oDoc.SaveAs FileName:=TargetVerzeichnis & "\" & oDoc.Name & "." & ExportExtentions, FileFormat:=ExportFormatID oDoc.Close End If End If Next End With StatusBar = "Konvertiere Dokument " & aDok.FullName DoEvents Application.ScreenUpdating = TrueEnd SubPrivate Sub ExportFormatErmitteln() Dim Konverter As FileConverter For Each Konverter In Application.FileConverters If Konverter.CanSave = True Then If Konverter.FormatName = ExportFormatName Then ExportFormatID = Konverter.SaveFormat ExportExtentions = Konverter.Extensions Exit For End If End If Next If ExportFormatID = 0 Then Dummy = MsgBox("Die ID des Export-Konvertes konnte nicht ermittelt werden.") End End IfEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: