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:\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