Dim oWord As Object, oDoc As Object 

Set oWord = CreateObject("Word.Application" 
oWord.Visible = True 
 Set oDoc = oWord.Documents.Add() 
 oDoc.Activate 

oWord.Selection.PageSetup.TopMargin = oWord.CentimetersToPoints(1.5) 
 oWord.Selection.PageSetup.BottomMargin = oWord.CentimetersToPoints(1.5) 
 oWord.Selection.PageSetup.LeftMargin = oWord.CentimetersToPoints(2.5) 
 oWord.Selection.PageSetup.RightMargin = oWord.CentimetersToPoints(2) 
 oWord.Selection.PageSetup.Gutter = oWord.CentimetersToPoints(0) 
 oWord.Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ 
 wdAlignPageNumberRight, FirstPage:=True 

 With oWord.Selection 
 .Font.Bold = True 
 .ParagraphFormat.Alignment = wdAlignParagraphCenter 
 .Font.Size = 11.5 
 .TypeText Text:="Текст" 
 .TypeParagraph 
 .TypeText Text:="Текст" 
 .TypeParagraph 
 .TypeText Text:="Текст" 
 .TypeParagraph 
 .TypeParagraph 
 .Font.Size = 11.5 
 .ParagraphFormat.Alignment = wdAlignParagraphLeft 
 .Font.Bold = wdToggle 
 .Font.Color = wdColorBlack 
 .Font.Underline = wdUnderlineSingle 
 .TypeText Text:="Текст" 
 .Font.Underline = wdUnderlineNone 
 .TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab 
 .TypeParagraph 
 .TypeParagraph 
 .Font.Underline = wdUnderlineSingle 
 .TypeText Text:="Текст" 
 .Font.Underline = wdUnderlineNone 
 .EndKey Unit:=wdLine 
End With