VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   3210
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   4710
   OleObjectBlob   =   "userform.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim word As Application
Private Sub CommandButton1_Click()
    Dim DocWord As Document
    Set DocWord = word.Documents.Add
    DocWord.SaveAs "C:\tmp\zzz.doc" 'сохраняем созданный файл отчета trGSM
'--- форматирование документа Word ---
    DocWord.Application.Selection.PageSetup.LeftMargin = CentimetersToPoints(2)  'отступ слева 2 см
    DocWord.Application.Selection.PageSetup.RightMargin = CentimetersToPoints(1.5)  'отступ справа 1.5 см
    DocWord.Application.Selection.PageSetup.TopMargin = CentimetersToPoints(2)  'отступ сверху 2 см
    DocWord.Application.Selection.PageSetup.BottomMargin = CentimetersToPoints(2)  'отступ снизу 2 см
    DocWord.Save
    DocWord.Close
    Set DocWord = Nothing
    MsgBox "Clicked"
End Sub


Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
    Set word = New Application
    MsgBox "Initialized"
End Sub

Private Sub UserForm_Terminate()
    word.Quit (False)
    Set word = Nothing
    MsgBox "Terminated"
End Sub