Hallo Fred,
hier ein Vorschlag: Zum Testen sollte es mit weinigen Dateien im Ordner "c:\temp\" geprüft werden, da es "ewig" dauert, viele Dateien auf einem Laufwerk zu konvertieren. Wenn alles passt, die erste Zeile mit "ar" wieder scharf schalten und die Testvariante als Kommentar setzen. Der Code kommt in ein Word-Dokument und sollte als *.docm gespeichert werden.
Good luck und viel Kaffee während der Wartezeit.
Sub alle_Doc()
Dim Dc As Document
'ar = Split(CreateObject("wscript.shell").exec("cmd /c Dir D:\*.doc /b/s").stdout.readall, vbCrLf)
'zum Testen
ar = Split(CreateObject("wscript.shell").exec("cmd /c Dir C:\temp\*.doc /b/s").stdout.readall, vbCrLf)
For Each a In ar
Debug.Print a, UBound(ar)
If a <> "" Then
Set Dc = Documents.Open(FileName:=a, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="")
Dc.SaveAs2 FileName:=Split(a, ".")(0) & ".docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=15
Dc.Close 0
End If
Next a
|