W
Worksmart
Note: I had posted this in the Word Forum, but no help. I'm posting here
because I'm using an Excel spreadsheet as my database.
I am not a programmer. I’m working in Word and Excel 2003.
Scenario: I'm creating a dashboard of sorts. Users will click a Command
Button in a Word document to merge the same database (Excel spreadsheet) with
various documents that are already set up with merge fields.
When they click the button, a message box “Are You Sure?†pops up in case
they clicked the button in error. After that, they are given the opportunity
to
browse for the document they want to merge (database and merge fields already
in place). After that, I’d like them to be able to choose the recipients
because they will not always need to create a document for everyone. Then the
merge will finish, creating new documents (so user can view before
printing).
Below is the code I have so far. It works, but I have no idea how to set
this up so the user can choose the recipients.
Can someone help with this, remembering that I'm not a programmer. Thanks in
advance.
Private Sub CommandButton4_Click()
' Events_TentCard Macro
' Macro recorded 5/11/2008 by Peggy Duncan
'
If MsgBox(Prompt:="Are You Sure?", Buttons:=vbYesNo + vbQuestion, _
Title:="Mail Merge Document") = vbNo Then
Exit Sub
End If
Dialogs(wdDialogFileOpen).Show
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
'
End Sub
because I'm using an Excel spreadsheet as my database.
I am not a programmer. I’m working in Word and Excel 2003.
Scenario: I'm creating a dashboard of sorts. Users will click a Command
Button in a Word document to merge the same database (Excel spreadsheet) with
various documents that are already set up with merge fields.
When they click the button, a message box “Are You Sure?†pops up in case
they clicked the button in error. After that, they are given the opportunity
to
browse for the document they want to merge (database and merge fields already
in place). After that, I’d like them to be able to choose the recipients
because they will not always need to create a document for everyone. Then the
merge will finish, creating new documents (so user can view before
printing).
Below is the code I have so far. It works, but I have no idea how to set
this up so the user can choose the recipients.
Can someone help with this, remembering that I'm not a programmer. Thanks in
advance.
Private Sub CommandButton4_Click()
' Events_TentCard Macro
' Macro recorded 5/11/2008 by Peggy Duncan
'
If MsgBox(Prompt:="Are You Sure?", Buttons:=vbYesNo + vbQuestion, _
Title:="Mail Merge Document") = vbNo Then
Exit Sub
End If
Dialogs(wdDialogFileOpen).Show
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
'
End Sub