function Test()
Dim wdDoc As Word.Document,DbPath As String

ptnName = "Doc2.doc"
DbPath = NameFile(Application.CurrentDb.Name, "P") ' Выделить путь из базы
Set wdDoc = GetObject(DbPath & "\" & ptnName) ' Получение экземпляра документа
wdDoc.Activate

' Замена полей QUOTE "Это текст1 " в документе :
SetQuoteFieldsValue wdDoc, "Это текст1", "ЭтоЗамена"

' Создание Копии на основе шаблона
With wdDoc.Parent
   .Selection.WholeStory
   .Selection.Copy
   .Documents.Add DocumentType:=wdNewBlankDocument
   .Selection.Paste
End With

wdDoc.Saved = True ' чтоб не спрашивал при закрытии

' Показать полученную на основе шаблона копию
wdDoc.Parent.Documents( 1 ).Windows( 1 ).Visible = True

end function ' Test-->>

' Замена полей QUOTE :
Function SetQuoteFieldsValue(ByRef Doc As Object, ByRef strName As String, ByRef strValue As Variant)
For Each f In Doc.Fields
 If f.Type = wdFieldQuote Then '  35 
  If EqvStr(f.Result.Text, strName) Then
   f.Code.Text = "QUOTE """ & strValue & """"
  End If
 End If
Next f
End Function