Εξαγωγή και αποθήκευση δεδομένων φόρμας σε word

[nasos23]

Καλησπέρα στην κοινότητα.
Έχω συνδέσει τα πεδία
Όνομα, Επώνυμο, ΑΔΤ μιας φόρμας με το
έγγραφο ΑΝΑΓΓΕΛΙΑ .doc στη θέση
C:\ΑΝΑΓΓΕΛΙΑ .doc με τον παρακάτω κώδικα

Private Sub cmdOpenWord_Click()
 Me!Επώνυμο.Requery
Dim appWord As Word.Application
Dim doc As Word.Document
'Avoid error 429, when Word isn't open.
On Error Resume Next
Err.Clear
'Set appWord object variable to running instance of Word.
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'If Word isn't open, create a new instance of Word.
Set appWord = New Word.Application
End If
Set doc = appWord.Documents.Open("C:\ΑΝΑΓΓΕΛΙΑ .doc", , True)
With doc
.FormFields("fldΌνομα").Result = Me!Όνομα
.FormFields("fldΕπώνυμο").Result = Me!Επώνυμο
.FormFields("fldΑΔΤ").Result = Me!ΑΔΤ

.Visible = True
.Activate
End With
 objApp.Visible = True
    Set doc = Nothing
Set appWord = Nothing
Exit Sub
errHandler:
MsgBox Err.Number & ": " & Err.Description
End Sub

Θά ήθελα το ανοικτό έγγραφο Word να αποθηκεύεται με το εκάστοτε
επώνυμο στο φάκελο c:\nasos\

Ευχαριστώ

Νάσος

[nasos23]

Παρακαλώ τους διαχειριστές να κλείσουν το θέμα
διότι βρέθηκε η λύση.

Ευχαριστώ

Νάσος