die neueste Version:
Option Explicit
Sub alle_Doc()
Dim Dc As Document
Dim ar
Dim a As Variant
'ar = Split(CreateObject("wscript.shell").exec("cmd /c Dir C:\*.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
Selection.Text = a
Selection.Paragraphs.Add
Selection.MoveDown
If Right(a, 4) = ".doc" 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:=Left(a, InStrRev(a, ".")) & "docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=15
Dc.Close 0
If Right(a, 1) <> "x" Then Kill a
End If
Next a
End Sub
|