|
05-10-2011, 10:37 AM
|
|
Novice
|
|
Join Date: May 2011
Posts: 1
|
|
Word Doc Macro (mail Merge)
I have created the below macro and it works fine except two things.
1. I get an error when it closes a file
2. I want the macro to fire off when this document is opened
First here is what it does. It links the file in mail merge to a data source then finalizes the merge in a separate file. Within that it closes the original file it started with (.docx).
This is where I get the issue number one. I get a error saying the file cant be saved due to permissions issues. I don’t want the file save I just want it to close without any error message appearing. I highlighted the code where the error occurs below.
The second issue I have is I want this macro to run when this document is opened. Not when any document is opened in word only this document.
Any help will be greatly appreciated.
Below is the macro:
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
"F:\DB_Docs\DB_2010\PI_Sys.accdb", ConfirmConversions:=False, ReadOnly:= _
False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=F:\DB_Docs\DB_2010\PI_Sys.accdb;Mode=Read;E xtended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=6;Jet OLEDB atabase Locking Mode=1;Jet OLEDB:Global" _
, SQLStatement:="SELECT * FROM `TY_Letter`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
ActiveDocument.MailMerge.Check
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
Selection.MoveDown Unit:=wdLine, Count:=7
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Windows("Thank_You_Letter.docx").Activate
ActiveWindow.Close
|