S
SN
Good Day
I was hoping someone can perhaps assist. I am currently using bookmarks to
enter the current Candidate on the forms. ID Name Surname into a word
document, wich lies in the same directory as my DB.
The Document is a template so upon inserting the bookmarks it creates a new
Word doc called Document 1, i then have to manually add my digital id. save
the file name as the current ID and save in a location called ToSend. I then
via Access email this document to the candidate. This however takes quite
abit of time, have to press, Merge Document, Manually Add Signature, REname
and REsave in new location,
Is there a possible solution where it the file name automatically becomes My
id and saves it into the ToSend Folder. I am currenly using very basic code
merge the document. I am leaving the document open to do all my aditional
steps but dont need to view the document,
Any help would be appreciated
Private Sub Merge_Click()
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add(CurrentProject.Path & "\Personal Data
Form.doc")
With wrdDoc
.FormFields("ID").Result = Me.Form.ID
.FormFields("Surname").Result = Me.Form.Surname
.FormFields("FirstName").Result = Me.Form.[First Name]
End With
wrdApp.Visible = True
End Sub
I was hoping someone can perhaps assist. I am currently using bookmarks to
enter the current Candidate on the forms. ID Name Surname into a word
document, wich lies in the same directory as my DB.
The Document is a template so upon inserting the bookmarks it creates a new
Word doc called Document 1, i then have to manually add my digital id. save
the file name as the current ID and save in a location called ToSend. I then
via Access email this document to the candidate. This however takes quite
abit of time, have to press, Merge Document, Manually Add Signature, REname
and REsave in new location,
Is there a possible solution where it the file name automatically becomes My
id and saves it into the ToSend Folder. I am currenly using very basic code
merge the document. I am leaving the document open to do all my aditional
steps but dont need to view the document,
Any help would be appreciated
Private Sub Merge_Click()
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add(CurrentProject.Path & "\Personal Data
Form.doc")
With wrdDoc
.FormFields("ID").Result = Me.Form.ID
.FormFields("Surname").Result = Me.Form.Surname
.FormFields("FirstName").Result = Me.Form.[First Name]
End With
wrdApp.Visible = True
End Sub