Sub макрос1()
     ChangeFileOpenDirectory "d:\новая папка\"
      Documents.Open FileName:="документ1", ConfirmConversions:=False, ReadOnly:= _
          False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
          "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
          Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=1251
      Selection.WholeStory
      Selection.Font.Size = 8
      WordBasic.TogglePortrait Tab:=3, PaperSize:=0, TopMargin:="2.35", _
          BottomMargin:="2.35", LeftMargin:="2", RightMargin:="2", Gutter:="0", _
          PageWidth:="29.7", PageHeight:="21", Orientation:=1, FirstPage:=0, _
          OtherPages:=0, VertAlign:=0, ApplyPropsTo:=0, FacingPages:=0, _
          HeaderDistance:="1.25", FooterDistance:="1.25", SectionStart:=2, _
          OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
          StartingNum:=1, FromText:=wdAutoPosition, CountBy:=0, NumMode:=0, _
          TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, CharsLine:=41, LinesPage:= _
          40, CharPitch:=220, LinePitch:=360, DocFontName:="Основной текст", _
          DocFontSize:=11, PageColumns:=1, TextFlow:=0, FirstPageOnLeft:=0, _
          SectionType:=1, FolioPrint:=0, ReverseFolio:=0, FolioPages:=1
      ActiveDocument.SaveAs FileName:="документ1.docx", FileFormat:= _
          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
          SaveAsAOCELetter:=False

   ChangeFileOpenDirectory "d:\новая папка\"
      Documents.Open FileName:="документ2", ConfirmConversions:=False, ReadOnly:= _
          False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
          "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
          Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=1251
      Selection.WholeStory
      Selection.Font.Size = 8
      WordBasic.TogglePortrait Tab:=3, PaperSize:=0, TopMargin:="2.35", _
          BottomMargin:="2.35", LeftMargin:="2", RightMargin:="2", Gutter:="0", _
          PageWidth:="29.7", PageHeight:="21", Orientation:=1, FirstPage:=0, _
          OtherPages:=0, VertAlign:=0, ApplyPropsTo:=0, FacingPages:=0, _
          HeaderDistance:="1.25", FooterDistance:="1.25", SectionStart:=2, _
          OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
          StartingNum:=1, FromText:=wdAutoPosition, CountBy:=0, NumMode:=0, _
          TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, CharsLine:=41, LinesPage:= _
          40, CharPitch:=220, LinePitch:=360, DocFontName:="Основной текст", _
          DocFontSize:=11, PageColumns:=1, TextFlow:=0, FirstPageOnLeft:=0, _
          SectionType:=1, FolioPrint:=0, ReverseFolio:=0, FolioPages:=1
      ActiveDocument.SaveAs FileName:="документ2.docx", FileFormat:= _
          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
          SaveAsAOCELetter:=False
       End Sub