Sub
alle_Doc()
Dim
Dc
As
Document
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