VBA of string replace in word VBA

'hangeFileOpenDirectory "C:/Users/a/Desktop/test"
'Dim name As String
'name = 1
'DoWhile DirY(name + ".doc") <> ""
'
'DocumentsOpen FileName = name + ".doc"
'End Sub

Option Explicit
 'the document
Dim Inv_doc As Object
 'the application
Dim WD As Object
Private Sub CommandButton1_Click()
     'where is the template located
    Const which_document As String = "C:/Users/a/Desktop/test/1.doc"
     'need an instance of word
    Set WD = CreateObject("Word.Application")
    WD.Visible = True
    Set Inv_doc = WD.Documents.Open(which_document)
     '*** code to manipulate your document
     'replace the text in the document with text in cells
    Call Change_Bookmark("@target", "NewValue")
    WD.Activate
    Inv_doc.SaveAs "C:/Users/a/Desktop/test1"
    Inv_doc.Close
    WD.Quit
    Set Inv_doc = Nothing
    Set WD = Nothing
End Sub
Sub Change_Bookmark(Template_Value As String, New_Value As String)
    Dim oword As Object
    For Each oword In Inv_doc.Words
        If oword.Text = Template_Value Then
            oword.Text = New_Value
        End If
    Next oword
    Set oword = Nothing
End Sub