Как автоматизировать заполнение документа Word данными?

Imports Word = Microsoft.Office.Interop.Word
Module ModuleMWord
    Dim Doc As Word.Document
    Dim App As Word.Application
 
    Private Sub WrTitle(ByVal Text As String)
        Dim Par As Word.Paragraph = Doc.Content.Paragraphs.Add(Doc.Bookmarks.Item("\endofdoc").Range)
        Par.Range.Text = Text
        Par.Range.Font.Size = 14
        Par.Range.Font.Name = "Times New Roman"
        Par.Range.Font.Bold = True
        Par.Format.SpaceBefore = 0     'Интервал перед
        Par.Format.SpaceAfter = 0   'Интервал после
        Par.Format.Space1()
        Par.Format.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
        Par.Range.InsertParagraphAfter()
    End Sub
 
    Private Sub WrText(ByVal Text As String, Optional ByVal Bold As Boolean = False)
        Dim Par As Word.Paragraph = Doc.Content.Paragraphs.Add(Doc.Bookmarks.Item("\endofdoc").Range)
        Par.Range.Text = Text
        Par.Range.Font.Bold = Bold
        Par.Range.Font.Name = "Times New Roman"
        Par.Format.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
        Par.Range.InsertParagraphAfter()
    End Sub
 
    Private Sub WrFText(ByVal Form As String, Optional ByVal Text As String = "")
        Dim Par As Word.Paragraph = Doc.Content.Paragraphs.Add(Doc.Bookmarks.Item("\endofdoc").Range)
        Dim Rn As Word.Range
        Par.Range.Text = Form & Text
        Par.Range.Font.Bold = False
        Par.Format.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
        Rn = Par.Range
        Rn.SetRange(Par.Range.Start, Par.Range.Start + Len(Form))
        Doc.OMaths.Add(Rn).OMaths.BuildUp()
        Par.Range.InsertParagraphAfter()
    End Sub
 
    Private Sub WrSearchForm(ByVal Text As String)
        Dim Rng As Word.Range = Doc.Range
        With Rng.Find
            .ClearFormatting()
            .Text = Text
            .Forward = True
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
            If .Execute Then
                Doc.Range(Rng.Start, Rng.End)
                Doc.OMaths.Add(Rng).OMaths.BuildUp()
            End If
        End With
    End Sub
 
    Public Sub WriteWordDemo()
        App = New Word.Application
        App.Visible = True
        Doc = App.Documents.Add
        Doc.PageSetup.LeftMargin = 15
        Doc.PageSetup.RightMargin = 15
        Doc.PageSetup.TopMargin = 15
        Doc.PageSetup.BottomMargin = 15
 
        WrTitle("1 ВЫБОР ЭЛЕКТРОДВИГАТЕЛЯ И КИНЕМАТИЧЕСКИЙ РАСЧЕТ")
 
        WrFText("F_t=" & Red.FL, " Нм; V=" & Red.VL & " м/с; D_б=" & Red.DB & " м; U= " & Red.PC)
        WrSearchForm("D_б=" & Red.DB)
 
        WrText("По табл. 1.1 [7] принял: КПД пары цилиндрических зубчатых колёс η_1=" & Red.KPD1 & _
            "; коэффициент, учитывающий потери пары подшипников качения η_2=" & Red.KPD2 & _
            "; КПД муфты η_3=" & Red.KPD3)
 
        WrSearchForm("η_1=" & Red.KPD1)
        WrSearchForm("η_2=" & Red.KPD2)
        WrSearchForm("η_3=" & Red.KPD3)
 
        WrText("Общий КПД привода равен:")
        WrFText("η_общ=η_1×η_2^3×η_3^2", "    ()")
        WrFText("η_общ=" & Red.KPD1 & "×" & Red.KPD2 & "^3×" & Red.KPD3 & "^2=" & Red.KPDX)
 
        WrText("Мощность на валу барабана:")
        WrFText("P_б=F_T×V", "    ()")
        WrFText("P_б=" & Red.FL & "×" & Red.VL & "=" & Red.PB, " кВт")
 
        WrText("Требуемая мощность электродвигателя:")
        WrFText("P_тр=P_б/η_общ", "    ()")
        WrFText("P_тр=" & Red.PB & "/" & Red.KPDX & "=" & Red.PT, " кВт")
 
        WrText("Угловая скорость вала барабана:")
        WrFText("ω_б=2V/D_б", "    ()")
        WrFText("ω_б=2×" & Red.VL & "/" & Red.DB & "=" & Red.UV, " рад/с")
 
        WrText("Частота вращения вала барабана:")
        WrFText("n_б=(30ω_б)/π", "    ()")
        WrFText("n_б=(30×" & Red.UV & ")/" & Math.Round(Math.PI, 2) & "=" & Red.NB, " об/мин")
 
        WrText("Определяем требуемую частоту вращения вала электродвигателя:")
        WrFText("n_тр=n_б×U", "    ()")
        WrFText("n_тр=" & Red.NB & "×" & Red.PC & "=" & Red.NT, " об/мин")
 
        WrText("По табл. П.1 [] принимаем электродвигатель трехфазный, короткозамкнутый, серии 4А, закрытый, обдуваемый, " & _
               "с синхронной частотой вращения n_c= " & Red.Motor.RPMS & " об/мин " & Red.Motor.Name & ", с параметрами P_дв= " & _
               Red.Motor.Power & " кВт, S= " & Red.Motor.Slip & "%.")
        WrSearchForm("n_c=")
        WrSearchForm("P_дв=")
 
        WrText("Определяем номинальную частоту вращения вала электродвигателя:")
        WrFText("n_ном=n_c×(1-S)", "    ()")
        WrFText("n_ном=" & Red.Motor.RPMS & "×(1-" & Red.Motor.Slip / 100 & ")= " & Red.Motor.RPMA, " об/мин")
 
        WrText("Кинематический расчет")
        WrText("Ведущий вал:", True)
        WrFText("P_1=P_дв=" & Red.Motor.Power, " кВт")
        WrFText("n_1=n_ном=" & Red.Motor.RPMA, " oб/мин")
        WrFText("ω_1=(πn_1)/30=(3,14×" & Red.Motor.RPMA & ")/30=" & Red.UV1, " рад/с")
        WrFText("T_1=P_1/ω_1", "    ()")
        WrFText("T_1=" & Red.Motor.Power & "/" & Red.UV1 & "=" & Red.T1, " Нм")
 
        WrText("Ведомый вал:", True)
        WrFText("P_2=P_1×η_2^2×η_1=" & Red.Motor.Power & "×" & Red.KPD2 & "^2×" & Red.KPD1 & "=" & Red.P2, " кВт")
        WrFText("n_2=n_1/U=" & Red.Motor.RPMA & "/" & Red.PC & "=" & Red.N2, " об/мин")
        WrFText("ω_2=ω_1/U=" & Red.UV1 & "/" & Red.PC & "=" & Red.UV2, " рад/с")
        WrFText("T_2=P_2/ω_2 =" & Red.P2 & "/" & Red.UV2 & "=" & Red.T2, " Нм")
 
        WrText("Расхождение с заданным значением угловой скорости:")
        WrFText("∆=(n_2-n_1)/n_1 ×100%=(" & Math.Max(Red.N2, Red.NB) & "-" & Math.Min(Red.N2, Red.NB) & ")/" & _
                Math.Min(Red.N2, Red.NB), "×100%=" & Red.Delta & "<5%    ()")
    End Sub
End Module

WriteWordDemo()

Doc.Bookmarks.Item("X000").Range.Text = "Привет!"

 
 Public DocWord1 As Microsoft.Office.Interop.Word.Document 
Sub mrepl(n1z, n2z)
        DocWord1.Application.Selection.WholeStory()
        DocWord1.Application.Selection.Find.ClearFormatting()
        DocWord1.Application.Selection.Find.Replacement.ClearFormatting()
        Try
            With DocWord1.Application.Selection.Find
                .Text = n1z
                .Replacement.Text = "" & n2z
                DocWord1.Application.Selection.Find.Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll)
            End With
        Catch ex As Exception
            With DocWord1.Application.Selection.Find
                .Text = n1z
                .Replacement.Text = " "
                DocWord1.Application.Selection.Find.Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll)
            End With
 
        End Try
 
        Exit Sub
 
    End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
AppWord = New Microsoft.Office.Interop.Word.Application
DocWord1 = AppWord.Documents.Open("Путь до твоего файла")
 
mrepl("[Какое-то поле]", "Какое-от значение")
DocWord1.SaveAs2("Путь где сохранить обработанный файл")
DocWord1.Close(False)
AppWord.Quit()
AppWord = Nothing
  End Sub