Push-Nachrichten von MacTechNews.de
Würden Sie gerne aktuelle Nachrichten aus der Apple-Welt direkt über Push-Nachrichten erhalten?
Forum>Software>Automatisch *.doc Files in *.pdf wandeln

Automatisch *.doc Files in *.pdf wandeln

Richardt31.12.1112:10
Hallo,

Ich habe auf der Festplatte einen Ordner mit unter Ordner (Test/test1/ *.doc und Test/test2/*.doc usw.)
In diesen sind eine große Anzahl von *.Doc. Ich suche ein Programm oder Möglichkeit diese *.doc in einem Scan zu *.pdf zu Wandeln.

Kennt jemand eine Lösung oder hat einen Vorschlag?

Richardt

Guten Rutsch ins 2012
0

Kommentare

_mäuschen
_mäuschen31.12.1112:33

http://aseriesoftubes.com/articles/how-to-batch-convert-doc-files-to-pdf-format-using-mac-osx-automator/

0
Richardt03.01.1214:33
Hallo _mäuschen,

ich habe es mal mit der Seite versucht.
Hat leider nicht Funktioniert. Der Automator schaut nicht in die Unterordner.



Richardt
0
Richardt03.01.1214:36
Hallo _mäuschen,

ich habe es mal mit der Seite versucht.
Hat leider nicht Funktioniert. Der Automator schaut nicht in die Unterordner.



Richardt
0
_mäuschen
_mäuschen03.01.1216:03

0
Richardt03.01.1216:55
Ich bekomme die Fehlermeldung

"Bei der Aktion "Format von Word Dokumenten konvertieren" ist ein Fehler aufgetreten.
Überprüfen Sie die Aktionseigenschaften und versuchen Sie, den Arbeitsablauf erneut auszuführen.

Word macht ein *.Doc auf, Speichert was, dann kommt diese Meldung.
Das gespeicherte *.pdf von Word lässt sich nicht Öffnen.

Acrobat sagt "Acrobat konnte "*.pdf" nicht öffnen, da der Dateityp nicht unterstützt wird oder die Datei beschädigt ist (z. B. wenn sie als E-Mail-Anhang geschickt und nicht korrekt dekodiert wurde).

Richardt
0
Res
Res03.01.1220:59
Dies ist bei mir auch, interessant ist, dass es aber mit Excel geht (Funktion Excel > PDF).
0
_mäuschen
_mäuschen04.01.1210:05

Auf die Schnelle

ev. noch
window "Print",
menu item "Save as PDF…",
window "Save",
button "Go",
button "Save",
button "Replace"

an Deutsch anpassen


global kFileList

tell application "Finder"
    set sourceFolder to choose folder with prompt "Please select directory."
    set kFileList to {}
    my createList(sourceFolder)
end tell

set itemCount to (get count of items in kFileList)

tell application "Microsoft Word" to activate

repeat with i from 1 to itemCount
    
    set myDoc to item 2 of item i of kFileList
    set pdfSavePath to item 1 of item i of kFileList
    
    set pdfName to name of (info for (POSIX file myDoc)) as string
    set extLen to length of name extension of (info for (POSIX file myDoc))
    
    if extLen is 4 then
        set pdfName to (characters 1 thru -6 of pdfName) as string
    else
        set pdfName to (characters 1 thru -5 of pdfName) as string
    end if
    
    tell application "Microsoft Word" to open myDoc
    
    tell application "System Events"
        tell process "Microsoft Word"
            -- Press command+p to open our print dialog
            keystroke "p" using command down
            
            -- Let's make sure our print dialog is up
            repeat until exists window "Print"
            end repeat
            
            -- Click the PDF menu button
            click menu button "PDF" of window "Print"
            
            -- Make sure the menu is up
            repeat until exists menu item "Save as PDF…" of menu 1 of menu button "PDF" of window "Print"
            end repeat
            -- Select the "Save as PDF" menu item
            click menu item "Save as PDF…" of menu 1 of menu button "PDF" of window "Print"
            
            -- Make sure the save dialog is visible
            repeat until exists window "Save"
            end repeat
            
            -- Press command+shift+g to show the "Go" drop down sheet
            keystroke "g" using {command down, shift down}
            -- Set our location field to our pdfSavePath
            set value of text field 1 of sheet of window "Save" to pdfSavePath
            -- Now click the Go button
            click button "Go" of sheet of window "Save"
            
            -- Now that we are in our desired folder, set the file name and save
            set value of text field 1 of window "Save" to pdfName & ".pdf"
            
            click button "Save" of window "Save"
            
            if exists sheet 1 of window "Save" then
                click button "Replace" of sheet 1 of window "Save"
            end if
            
            delay 1
            keystroke "w" using {command down}
        end tell
    end tell
    
end repeat

on createList(mSourceFolder)
    set itemList to ""
    
    tell application "System Events"
        set itemList to get the name of every disk item of mSourceFolder
    end tell
    
    set itemCount to (get count of items in itemList)
    
    repeat with i from 1 to itemCount
        set theItem to item i of the itemList
        set theItem to ((mSourceFolder & theItem) as string) as alias
        
        tell application "System Events"
            set fileInfo to get info for theItem
        end tell
        
        if extension hidden of fileInfo is true then
            tell application "Finder" to tell item theItem to set extension hidden to false
        end if
        
        if name extension of fileInfo contains "doc" then
            set end of kFileList to {mSourceFolder, POSIX path of theItem}
        else
            if folder of fileInfo is true then
                my createList(theItem)
            end if
        end if
    end repeat
end createList

0
Richardt04.01.1221:38
Jetzt verstehe ich nix mehr.
Was muss ich den mit dieser Liste machen?

Richardt
0
Lyhoo
Lyhoo04.01.1222:09
Richardt
Jetzt verstehe ich nix mehr.
Was muss ich den mit dieser Liste machen?

Richardt

Den gelb unterlegten Text im Applescript-Editor einsetzen. Danach auf "Ausführen" klicken.

Ich habe das Script vom _mäuschen nicht getestet. Eine ähnliche Lösung nutze ich auch.
0
Richardt06.01.1215:46
So ich habe es mal eben getestet.

Kommt leider eine Fehlermeldung.
error "„System Events“ hat einen Fehler erhalten: Der Zugriff für Hilfsgeräte ist deaktiviert." number -25211

Richardt
0
Res
Res06.01.1215:48
Habe zwar den Zugriff auf Hilfsgeräte aktiviert, trotzdem bleibt das Script stehen und liefert leider keine Ergebnisse.
0
_mäuschen
_mäuschen06.01.1218:59

Richardt,

in den Systemeinstellungen einschalten.

0
_mäuschen
_mäuschen06.01.1219:00

Res,

Sag, wo genau das Script stehen bleibt.

0
Lyhoo
Lyhoo06.01.1220:38
_mäuschen

Res,

Sag, wo genau das Script stehen bleibt.

Res wollte ein Script für Excel. Das Mäuschen hat es aber für Word programmiert
Pauschal würde ich an allen Stellen "Microsoft Word" durch "Microsoft Excel" und "doc" durch "xls" ersetzen. Und es dann versuchen.
0
Richardt06.01.1220:56
_mäuschen ich habe den Zugriff Aktiviert.

Wenn ich den Script Starte komm ich bis zu den Punkt wo Word Drucken möchte.
Ich möchte nicht Drucken, es sollen in den Ordner/ Unterordner nach .Doc / .docx durchsucht werden, dann in .pdf gespeichert werden.

Richardt
0
_mäuschen
_mäuschen06.01.1222:44

Richardt,

Stell das System auf Englisch

oder im Script

window "Print",
menu item "Save as PDF…",
window "Save",
button "Go",
button "Save",
button "Replace"

an Deutsch anpassen

Hab leider keine deutsche Word Version





0
_mäuschen
_mäuschen06.01.1222:52

Ungefähr so

window "Print" window "Drucken"
menu item "Save as PDF…", menu item "Als PDF sichern ..."
window "Save", window "Sichern"
button "Go", button "Start" oder "Öffnen"
button "Save", button "Sichern"
button "Replace" button "Ersetzen"

0
Richardt06.01.1223:47
_mäuschen in etwa so


global kFileList

tell application "Finder"
set sourceFolder to choose folder with prompt "Please select directory."
set kFileList to {}
my createList(sourceFolder)
end tell

set itemCount to (get count of items in kFileList)

tell application "Microsoft Word" to activate

repeat with i from 1 to itemCount

set myDoc to item 2 of item i of kFileList
set pdfSavePath to item 1 of item i of kFileList

set pdfName to name of (info for (POSIX file myDoc)) as string
set extLen to length of name extension of (info for (POSIX file myDoc))

if extLen is 4 then
set pdfName to (characters 1 thru -6 of pdfName) as string
else
set pdfName to (characters 1 thru -5 of pdfName) as string
end if

tell application "Microsoft Word" to open myDoc

tell application "System Events"
tell process "Microsoft Word"
-- Press command+p to open our print dialog
keystroke "p" using command down

-- Let's make sure our print dialog is up
repeat until exists window "Drucken"
end repeat

-- Click the PDF menu button
click menu button "PDF" of window "Drucken"

-- Make sure the menu is up
repeat until exists menu item "Als PDF Sichern" of menu 1 of menu button "PDF" of window "Drucken"
end repeat
-- Select the "Save as PDF" menu item
click menu item "Als PDF sichern" of menu 1 of menu button "PDF" of window "Drucken"

-- Make sure the save dialog is visible
repeat until exists window "Sichern"
end repeat

-- Press command+shift+g to show the "Go" drop down sheet
keystroke "g" using {command down, shift down}
-- Set our location field to our pdfSavePath
set value of text field 1 of sheet of window "Save" to pdfSavePath
-- Now click the Go button
click button "Start" of sheet of window "Sichern"

-- Now that we are in our desired folder, set the file name and save
set value of text field 1 of window "Save" to pdfName & ".pdf"

click button "Sichern" of window "Sichern"

if exists sheet 1 of window "Sichern" then
click button "Ersetzen" of sheet 1 of window "Sichern"
end if

delay 1
keystroke "w" using {command down}
end tell
end tell

end repeat

on createList(mSourceFolder)
set itemList to ""

tell application "System Events"
set itemList to get the name of every disk item of mSourceFolder
end tell

set itemCount to (get count of items in itemList)

repeat with i from 1 to itemCount
set theItem to item i of the itemList
set theItem to ((mSourceFolder & theItem) as string) as alias

tell application "System Events"
set fileInfo to get info for theItem
end tell

if extension hidden of fileInfo is true then
tell application "Finder" to tell item theItem to set extension hidden to false
end if

if name extension of fileInfo contains "doc" then
set end of kFileList to {mSourceFolder, POSIX path of theItem}
else
if folder of fileInfo is true then
my createList(theItem)
end if
end if
end repeat
end createList

geht leider immer noch nicht.

„System Events“ hat einen Fehler erhalten: Fehler in der AppleEvent-Routine.

error "„System Events“ hat einen Fehler erhalten: Fehler in der AppleEvent-Routine." number -10000


Richardt
0
_mäuschen
_mäuschen07.01.1210:03


-- Make sure the menu is up
repeat until exists menu item "Als PDF Sichern" of menu 1 of menu button "PDF" of window "Drucken"



-- Make sure the menu is up
repeat until exists menu item "Als PDF sichern …" of menu 1 of menu button "PDF" of window "Drucken"


&

-- Select the "Save as PDF" menu item
click menu item "Als PDF sichern" of menu 1 of menu button "PDF" of window "Drucken"



-- Select the "Save as PDF" menu item
click menu item "Als PDF sichern …" of menu 1 of menu button "PDF" of window "Drucken"


&

-- Set our location field to our pdfSavePath
set value of text field 1 of sheet of window "Save" to pdfSavePath



-- Set our location field to our pdfSavePath
set value of text field 1 of sheet of window "Sichern" to pdfSavePath


&

-- Now that we are in our desired folder, set the file name and save
set value of text field 1 of window "Save" to pdfName & ".pdf"



-- Now that we are in our desired folder, set the file name and save
set value of text field 1 of window "Sichern" to pdfName & ".pdf"

0
Richardt07.01.1220:41
_mäuschen

Nun habe ich es fast Geschaft.
ich hoffe der Letzte Fehler.

error "„Microsoft Word“ hat einen Fehler erhalten: Fehler in der AppleEvent-Routine." number -10000

Richardt
0
_mäuschen
_mäuschen07.01.1223:51

Bitte poste die "Antwort" von AppleScript, sodass man sieht
bei welchem Word Befehl dieser Fehler auftritt.

0
Richardt08.01.1200:25
Bitte

0
_mäuschen
_mäuschen08.01.1210:37

Events | Antworten nicht Ergebnis

0
Richardt09.01.1215:11
_mäuschen

Ist ein wenig lang das Fehler Protokoll.
Hier ein kleiner teil.


tell application "Finder"
choose folder with prompt "Please select directory."
alias "Macintosh HD:Users:xx:Downloads:Parzellen:"
end tell
tell application "System Events"
get name of every disk item of alias "Macintosh HD:Users:xx:Downloads:Parzellen:"
{".DS_Store", "In", "ordner.joboptions", "Out", "PZ 121", "Pz. 24", "Pz. 37", "Pz.100", "Pz.106", "Pz.107", "Pz.108", "Pz.112", "Pz.117", "Pz.118", "Pz.120", "Pz.123 u. 123a", "Pz.124", "Pz.125", "Pz.126", "Pz.127", "Pz.130", "Pz.131", "Pz.133", "Pz.134", "Pz.136", "Pz.137", "Pz.137", "Pz.138", "Pz.140", "Pz.143 + 144", "Pz.147", "Pz.148", "Pz.151", "Pz.153 + 154", "Pz.155", "Pz.16", "Pz.162", "Pz.163", "Pz.165", "Pz.165", "Pz.167", "Pz.169", "Pz.17", "Pz.170", "Pz.172", "Pz.173", "Pz.174", "Pz.175", "Pz.177", "Pz.178", "Pz.178 15.04.2009", "Pz.181-182", "Pz.186", "Pz.190", "Pz.193", "Pz.194", "Pz.195", "Pz.196", "Pz.197", "Pz.198", "Pz.199", "Pz.200", "Pz.202", "Pz.202", "Pz.203", "Pz.204", "Pz.205", "Pz.22", "Pz.23", "Pz.28", "Pz.31", "Pz.33", "Pz.34", "Pz.36", "Pz.40", "Pz.42", "Pz.43", "Pz.46a", "Pz.49", "Pz.5", "Pz.51", "Pz.55", "Pz.56-57", "Pz.59", "Pz.6", "Pz.61", "Pz.68", "Pz.69a", "Pz.71", "Pz.72", "Pz.74", "Pz.76", "Pz.8 u.8a", "Pz.81", "pz.82", "Pz.83", "Pz.84", "Pz.86", "Pz.87", "Pz.9", "Pz.91", "Pz.93", "Pz.96", "Pz.98"}
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:.DS_Store"
error number -1708
«event ascrgdut»
error number -1708
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:.DS_Store"
error number -10004
end tell
tell current application
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:.DS_Store"
{name:".DS_Store", creation date:date "Dienstag, 3. Januar 2012 13:53:43", modification date:date "Samstag, 7. Januar 2012 23:16:24", size:15364, folder:false, alias:false, package folder:false, visible:false, extension hidden:false, name extension:missing value, displayed name:".DS_Store", kind:"Dokument", file type:" ", file creator:" ", type identifier:"dyn.agk8wakbaea", locked:false, busy status:false, short version:"", long version:""}
end tell
tell application "System Events"
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:In:"
error number -10004
end tell
tell current application
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:In:"
{name:"In", creation date:date "Dienstag, 3. Januar 2012 15:37:43", modification date:date "Dienstag, 3. Januar 2012 15:37:43", size:0, folder:true, alias:false, package folder:false, visible:true, extension hidden:false, name extension:missing value, displayed name:"In", default application:alias "Macintosh HD:System:Library:CoreServices:Finder.app:", kind:"Ordner", folder window:{0, 0, 0, 0}, file type:"file creator:"
end tell
tell application "System Events"
get name of every disk item of alias "Macintosh HD:Users:xx:Downloads:Parzellen:In:"
{}
info for alias "Macintosh HD:Users:xxDownloads:Parzellen:ordner.joboptions"
error number -10004
end tell
tell current application
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:ordner.joboptions"
{name:"ordner.joboptions", creation date:date "Mittwoch, 4. Januar 2012 21:12:39", modification date:date "Mittwoch, 4. Januar 2012 21:12:44", size:31218, folder:false, alias:false, package folder:false, visible:true, extension hidden:false, name extension:"joboptions", displayed name:"ordner.joboptions", default application:alias "Macintosh HD:Applications:Adobe Acrobat X Pro:Acrobat Distiller.app:", kind:"Adobe PDF Settings file", file type:"file creator:"type identifier:"dyn.age80y55cr72hk4ptr33u", locked:false, busy status:false, short version:"", long version:""}
end tell
tell application "System Events"
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:Out:"
error number -10004
end tell
tell current application
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:Out:"
{name:"Out", creation date:date "Dienstag, 3. Januar 2012 15:37:43", modification date:date "Dienstag, 3. Januar 2012 15:37:43", size:0, folder:true, alias:false, package folder:false, visible:true, extension hidden:false, name extension:missing value, displayed name:"Out", default application:alias "Macintosh HD:System:Library:CoreServices:Finder.app:", kind:"Ordner", folder window:{0, 0, 0, 0}, file type:"file creator:"
end tell
tell application "System Events"
get name of every disk item of alias "Macintosh HD:Users:xx:Downloads:Parzellen:Out:"
{}
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:"
error number -10004
end tell
tell current application
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:"
{name:"PZ 121", creation date:date "Sonntag, 9. Oktober 2011 12:39:45", modification date:date "Montag, 9. Januar 2012 14:47:20", size:468995, folder:true, alias:false, package folder:false, visible:true, extension hidden:false, name extension:missing value, displayed name:"PZ 121", default application:alias "Macintosh HD:System:Library:CoreServices:Finder.app:", kind:"Ordner", folder window:{0, 0, 0, 0}, file type:"file creator:"
end tell
tell application "System Events"
get name of every disk item of alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:"
{".DS_Store", "Parzellenzusammenlegung 121 122.docx", "Parzellenzusammenlegung 121 122.pdf"}
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:.DS_Store"
error number -10004
end tell
tell current application
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:.DS_Store"
{name:".DS_Store", creation date:date "Dienstag, 3. Januar 2012 15:15:04", modification date:date "Samstag, 7. Januar 2012 23:17:37", size:6148, folder:false, alias:false, package folder:false, visible:false, extension hidden:false, name extension:missing value, displayed name:".DS_Store", kind:"Dokument", file type:" ", file creator:" ", type identifier:"dyn.agk8wakbaea", locked:false, busy status:false, short version:"", long version:""}
end tell
tell application "System Events"
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:Parzellenzusammenlegung 121 122.docx"
error number -10004
end tell
tell current application
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:Parzellenzusammenlegung 121 122.docx"
{name:"Parzellenzusammenlegung 121 122.docx", creation date:date "Samstag, 17. September 2011 11:46:32", modification date:date "Samstag, 17. September 2011 11:46:32", size:415015, folder:false, alias:false, package folder:false, visible:true, extension hidden:false, name extension:"docx", displayed name:"Parzellenzusammenlegung 121 122.docx", default application:alias "Macintosh HD:Applications:Microsoft Office 2011:Microsoft Word.app:", kind:"Microsoft Word-Dokument", file type:"file creator:"type identifier:"org.openxmlformats.wordprocessingml.document", locked:false, busy status:false, short version:"", long version:""}
end tell
tell application "System Events"
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:Parzellenzusammenlegung 121 122.pdf"
error number -10004
end tell
tell current application
info for alias "Macintosh HD:Users:xx:Downloads:Parzellen:PZ 121:Parzellenzusammenlegung 121 122.pdf"
{name:"Parzellenzusammenlegung 121 122.pdf", creation date:date "Montag, 9. Januar 2012 14:47:20", modification date:date "Montag, 9. Januar 2012 14:47:22", size:47832, folder:false, alias:false, package folder:false, visible:true, extension hidden:false, name extension:"pdf", displayed name:"Parzellenzusammenlegung 121 122.pdf", default application:alias "Macintosh HD:Applications:Preview.app:", kind:"PDF (Portable Document Format)", file type:"file creator:"type identifier:"com.adobe.pdf", locked:false, busy status:false, short version:"", long version:""}
end tell


Richardt
0
_mäuschen
_mäuschen09.01.1215:46

please send the whole in a private message

0

Kommentieren

Diese Diskussion ist bereits mehr als 3 Monate alt und kann daher nicht mehr kommentiert werden.