Microsoft Office Forums - View Single Post - [Solved] Run Code on all files and save files as .docx

macropod · 06-03-2016, 10:27 PM

You could simply change:
.Close SaveChanges:=True
to:

Code:

    .SaveAs2 FileName:=strFolder & "\" & Split(strFile, ".")(0) & ".docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False
    .Close SaveChanges:=False

PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.

PPS: I can't see the point of:

Code:

If Selection.PageSetup.Orientation = wdOrientPortrait Then
  Selection.PageSetup.Orientation = wdOrientLandscape
Else
  Selection.PageSetup.Orientation = wdOrientPortrait
End If

since a few lines later you have:
.Orientation = wdOrientLandscape