Sub AutoOpen() 'Dovidka_pro_dohodi()

Dim MyFile, MyPath, MyName As String
Dim Array_Name()
Dim Array_Date()

'MsgBox ("1")
'выход из макроса, если он запущен не из файла dov_pro_doh.docx
If ActiveDocument.Name <> "dov_pro_doh.docx" Then
End
End If
'MsgBox ("2")
i = 0
MyPath = "\\Ira\e\drfo\" ' Set the path.
MyMaskaFile = "f00*.rtf"

MyName = Dir(MyPath & MyMaskaFile)
If MyName <> "" Then
myStamp = FileDateTime(MyPath & MyName)
End If
Do While MyName <> "" ' Start the loop.
ReDim Preserve Array_Name(i + 1)
ReDim Preserve Array_Date(i + 1)
'MsgBox (MyName)
'MsgBox (MyStamp)
Array_Name(i) = MyName
Array_Date(i) = myStamp
i = i + 1
MyName = Dir() ' Get next entry.
If MyName <> "" Then
myStamp = FileDateTime(MyPath & MyName)
End If
Loop

n = 0 ' индекс элемента с наибольшей датой создания файла
Date_Time = Array_Date(0)
For i = 1 To UBound(Array_Date)
If Array_Date(i) > Date_Time Then
Date_Time = Array_Date(i)
n = i
End If
Next i

'MsgBox ("Array_Name(n) = " & Array_Name(n) & " [Режим ограниченной функциональности]")
Documents.Open FileName:="\\Ira\e\drfo\" & Array_Name(n)
Windows(Array_Name(n) & " [Режим ограниченной функциональности]").Activate
Setting_Sleep_Without_Sleep_Function
MsgBox ("Array_Name(n) = " & Array_Name(n))

MsgBox ("ActiveDocument.Name = " & ActiveDocument.Name)

'установка 8 шрифту, книжної орієнтації, полів та друк довідки
Selection.WholeStory
Selection.Font.Size = 8
If Selection.PageSetup.Orientation = wdOrientPortrait Then
Selection.PageSetup.Orientation = wdOrientLandscape
Else
Selection.PageSetup.Orientation = wdOrientPortrait
End If
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0.5)
.BottomMargin = CentimetersToPoints(0.5)
.LeftMargin = CentimetersToPoints(1)
.RightMargin = CentimetersToPoints(0.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.27)
.FooterDistance = CentimetersToPoints(1.27)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = True
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

'закрыть документ и ворд
ActiveDocument.Close False
Application.Quit
End Sub