'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