Как сделать документ на основание заявления VBA

Public Sub DocWrite(sPovod As String, sFio As String, sOtvIsp As String)
    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Set oWord = CreateObject("Word.Application")
    Set oDoc = oWord.Documents.Add()
    oWord.Visible = True
    oDoc.Activate
    With oWord.Selection
    .TypeText "Директору" & Space(100)
    .TypeText "Иванову Иван Ивановичу" & Space (100)
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText "Заявление"
    .Style = " Заголовок 1"
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    .TypeText vbCrLf
    .Style = "обычный"
    .TypeText vbCrLf
    .TypeText "" & Space(150) & Date
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText "Я " & sFio & _
    " Обнаружил(а) " & sPovod & ":"
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText "Директор" & vbTab & _
    vbTab & "Иванов И.И."
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    .TypeParagraph
    .TypeText vbCrLf
    .TypeText vbCrLf
    .ParagraphFormat.Alignment = wdAlignParagraphLeft
    .TypeText Text:=("Отв.исполнитель " & sOtvIsp)
    .TypeParagraph
    End With
 
End Sub

Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim otbl As Word.Table
 
Dim j1, j1k, s1, s2
Sub W21()
DocWrite "жалоба", "Петрова М.М.", "Семин Д.Д."
End Sub
Public Sub DocWrite(sPovod As String, sFio As String, sOtvIsp As String)
 
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add()
oWord.Visible = True
oDoc.Activate
tab58 4, "80,10,80"
With otbl
With .Cell(1, 3).Range
    .Bold = True
    .Font.Size = 16
    .Text = "Директору"
End With
.Cell(2, 3).Range.Text = "Иванову Иван Ивановичу"
 
.Cell(4, 1).Select
oWord.Selection.MoveDown Unit:=5, Count:=4
''wdLine=5
End With
With oWord.Selection
    .TypeText vbCrLf
    .TypeText vbCrLf
    
    .TypeText "Заявление"
    .Style = " Заголовок 1"
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
    .TypeText vbCrLf
    .Style = "обычный"
    .TypeText vbCrLf
    .TypeText "" & Space(150) & Date
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText "Я " & sFio & _
    " Обнаружил(а) " & sPovod & ":"
    .Font.Size = 12
    .TypeText vbCrLf
    .TypeText vbCrLf
    .TypeText vbCrLf
    .Select
End With
tab58 4, "50,20,90"
 
With otbl
    .Cell(1, 1).Range.Text = "Директор"
    .Cell(1, 2).Range.Text = "__________"
    .Cell(1, 3).Range.Text = "Иванов И.И."
    .Cell(3, 1).Range.Text = "Отв.исполнитель "
    .Cell(3, 2).Range.Text = "__________"
    .Cell(3, 3).Range.Text = sOtvIsp
    .Cell(4, 1).Range.Text = "мп"
End With
 
 
 
End Sub
Sub tab58(strok, stolb)
Dim xm, x1, x1k
xm = Split(stolb, ",")
x1 = LBound(xm, 1)
x1k = UBound(xm, 1)
 
Set otbl = oDoc.Tables.Add(oWord.Selection.Range, strok, x1k + 1, 1, 0)
With otbl
    .TopPadding = 0
    .BottomPadding = 0
    .LeftPadding = 0
    .RightPadding = 0
    .Spacing = 0
    .AllowPageBreaks = True
    .AllowAutoFit = False
End With
 
With otbl
    .AutoFitBehavior (wdAutoFitFixed)
    If .Style <> "Сетка таблицы" Then
    .Style = "Сетка таблицы"
    End If
    .ApplyStyleHeadingRows = True
    .ApplyStyleLastRow = False
    .ApplyStyleFirstColumn = False ''True
    .ApplyStyleLastColumn = False
    .ApplyStyleRowBands = False ''True
    .ApplyStyleColumnBands = False
End With
 
Do While x1 <= x1k
    otbl.Columns(x1 + 1).Select
    With oWord.Selection.Columns
        .PreferredWidthType = 3
        .PreferredWidth = xm(x1) * 72 / 25
    End With
    x1 = x1 + 1
Loop
With otbl
''   .Borders(wdBorderTop).LineStyle = 0
''   .Borders(wdBorderLeft).LineStyle = 0
''   ''wdLineStyleNone
''   .Borders(wdBorderBottom).LineStyle = 0
''   .Borders(wdBorderRight).LineStyle = 0
''   .Borders(wdBorderHorizontal).LineStyle = 0
''   .Borders(wdBorderVertical).LineStyle = 0
''   .Borders(wdBorderDiagonalDown).LineStyle = 0
''   .Borders(wdBorderDiagonalUp).LineStyle = 0
For j1 = 1 To 8
.Borders(-j1).LineStyle = 0
Next j1
End With
End Sub

'Кнопка Отмена
Private Sub btnEscape_Click()
Unload Me 'закрытие формы
End Sub
'Кнопка Напечатать приказ
Private Sub CommandButton1_Click()
'Объявляем глобальных перемен
    Dim sPovod As String
    Dim sFio As String
    Dim sOtvIsp As String
    'Подставить данные из формы
    If optOcvoenie.Value = True Then sPovod = " не известную мне причину неполадок с компьютером "
    If optDrugoe.Value = True Then sPovod = txtDrugoe.Value
    sFio = cbFIO.Value
 
    
    
    
    sOtvIsp = "Куртлацков Д.А."
    'Конец подстановки данных
    Call ЭтаКнига.DocWrite(sPovod, sFio, sOtvIsp)
End Sub
Private Sub optDrugoe_Change()
    If optDrugoe.Value = True Then 'Если выбор другое, то
    txtDrugoe.Visible = True 'Появляется строчка ввода
    Else 'иначе
    txtDrugoe.Visible = False 'txtDrugoe нет на форме
    End If 'конец если
End Sub
'Инициализация
Private Sub UserForm_Initialize()
    optOcvoenie.Value = True
    txtDrugoe.Visible = False
    'Объявляем переменные
    Dim oColumn As Range
    Dim oCell As Range
    Set oColumn = Columns("A")
    For Each oCell In oColumn.Cells
        If oCell.Value <> "" Then
            cbFIO.AddItem oCell.Value
        End If
    Next
    cbFIO.ListIndex = 0
End Sub