MS Word填充文本之后通过VBA插入

Question

我已经创建了启用Word宏的模板。 打开时会弹出表格，用户可以填写表格。按“确定”后，文档内的书签将被更新并显示。 我需要的是在多个位置的整个文档中填充输入的值。我尝试过交叉引用书签，但它们没有使用表单中输入的值进行更新。

打开表单的图片

Private Sub cancelBut_Click()
    stInfo.Hide
    
End Sub

Private Sub Label11_Click()

End Sub

Private Sub OKbut_Click()
    Dim katcest As Range
    Set katcest = ActiveDocument.Bookmarks("katcest").Range
    katcest.Text = Me.TextBox1.Value
    Dim katopcina As Range
    Set katopcina = ActiveDocument.Bookmarks("katopcina").Range
    katopcina.Text = Me.TextBox2.Value
    Dim zkcest As Range
    Set zkcest = ActiveDocument.Bookmarks("zkcest").Range
    zkcest.Text = Me.TextBox3.Value
    Dim zkopcina As Range
    Set zkopcina = ActiveDocument.Bookmarks("zkopcina").Range
    zkopcina.Text = Me.TextBox4.Value
    Dim zkulozak As Range
    Set zkulozak = ActiveDocument.Bookmarks("zkulozak").Range
    zkulozak.Text = Me.TextBox5.Value
    Dim povrsina As Range
    Set povrsina = ActiveDocument.Bookmarks("povrsina").Range
    povrsina.Text = Me.TextBox6.Value
    Dim vlasnik As Range
    Set vlasnik = ActiveDocument.Bookmarks("vlasnik").Range
    vlasnik.Text = Me.TextBox7.Value
    Dim vladresa As Range
    Set vladresa = ActiveDocument.Bookmarks("vladresa").Range
    vladresa.Text = Me.TextBox8.Value
    Dim datocevida As Range
    Set datocevida = ActiveDocument.Bookmarks("datocevida").Range
    datocevida.Text = Me.TextBox9.Value
    Dim klasa As Range
    Set klasa = ActiveDocument.Bookmarks("klasa").Range
    klasa.Text = Me.TextBox10.Value
    Dim urbroj As Range
    Set urbroj = ActiveDocument.Bookmarks("urbroj").Range
    urbroj.Text = Me.TextBox11.Value
    Me.Repaint
    Dim strDocName As String
    Dim intPos As Integer

    ' Find position of extension in file name
    strDocName = ""
    intPos = InStrRev(strDocName, ".")
 
    If intPos = 0 Then
 
        ' If the document has not yet been saved
        ' Ask the user to provide a file name
        strDocName = InputBox("Upisi naziv " & _
            "vaseg dokumenta.")
    Else
 
        ' Strip off extension and add ".txt" extension
        strDocName = Left(strDocName, intPos - 1)
        strDocName = strDocName & ".docx"
    End If
 
    ' Save file with new extension
    ActiveDocument.SaveAs2 FileName:=strDocName, _
        FileFormat:=wdFormatDocumentDefault
    stInfo.Hide
    infoForm.Show
    
End Sub