Использование библиотеки офиса, которая идет в поставке с приложением, а не из системы

 
 Dim oWord = CreateObject("Word.Application")
        oDoc = oWord.Documents.add
        oDoc.PageSetup.RightMargin = 30 'Изменение размера страницы (Правый отступ)
        oPara1 = oDoc.Content.Paragraphs.Add
 
          With oDoc.Sections(1)
            For Each bb As Object In .Borders
                bb.LineStyle = 1  ' wdLineStyleSingle
                bb.LineWidth = 4  ' wdLineWidth050pt
                bb.Color = -16777216  ' wdColorAutomatic
            Next
            With .Borders
                .DistanceFromTop = 24
                .DistanceFromLeft = 31
                .DistanceFromBottom = 24
                .DistanceFromRight = 18
            End With
        End With

 With oPara1.Range
            .InsertParagraphAfter()
            .Text = "Фамилия: " + Form1.ComboBox4.Text
            .Font.Bold = False     ' :Жирынй шрифт
            .Font.Size = 10 ' РАзмер шрифта
            .Font.Name = "Times New Roman" ' ИМЯ шрифта
            '   oPara1.Format.SpaceAfter = 1 '24 расстояние тчк после пункта.
            .Paragraphs.Format.Alignment = WdParagraphAlignment.wdAlignParagraphLeft
            .Font.Underline = True
            Dim r
            r = oPara1.Range
            With r.Find
                .ClearFormatting()
                .Text = "Фамилия: "
                .Forward = True
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchAllWordForms = False
                .MatchSoundsLike = False
                .MatchWildcards = True
                If .Execute Then
                    oWord.ActiveDocument.Range(r.Start, r.End).Font.Underline = False
                Else
 
                End If
            End With
            .InsertParagraphAfter()
        End With