Option Explicit
Dim WithEvents doc As Word.Document
Dim lID As Long

Public Sub OpenFile(id As Long, Optional file As String)
Dim xxx As String
xxx = Form1.Combo1
Dim wrd As Word.Application
    lID = id
    On Error Resume Next
    Set wrd = GetObject(, "Word.Application")
    On Error GoTo  0 
    If wrd Is Nothing Then Set wrd = New Word.Application
    If id =  0  Then
        Set doc = wrd.Documents.Add
            wrd.Visible = True
                       If Form1.Combo2 = "Письмо" Then
                                With ActiveDocument.PageSetup
                                    .LineNumbering.Active = False
                                    .Orientation = wdOrientPortrait
                                    .TopMargin = CentimetersToPoints( 0 . 6 )
                                    .BottomMargin = CentimetersToPoints( 0 . 6 )
                                    .LeftMargin = CentimetersToPoints( 1 . 5 )
.......................

With ActiveDocument.Styles(wdStyleNormal).Font