Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Word 2003 code no longer working for Word 2007
The following is code I've been using for an automated Mailmerge routine in
Word 2003 to allow mailmerge to work totally in the background and allowing multiple copies of mail merge to execute in parallel (We use a cenralized server to do mailmerges and distribute the results, all automated without any human interaction). In Word 2007 this no longer works and pops up the merge process on the screen, thus limiting execution to a single instance at a time. Can anybody tell me what has changed in Word 2007 and how to solve the problem? Sub Main ' Dim WrdApp As Object On Error Resume Next Set WrdApp= CreateObject("Word.Application") WrdApp.Visible = False With WrdApp Documents.Open FileName:=DRIVER_TEMPLATE, ConfirmConversions:=False, _ ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=True, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="" WrdApp.Visible = vbFalse ActiveDocument.MailMerge.MainDocumentType = wdFormLetters ActiveDocument.MailMerge.OpenDataSource Name:=FULL_NAME, _ ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _ :="", SubType:=wdMergeSubTypeOther With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With ActiveDocument.SaveAs FileName:=SAVE_NAME, FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ False, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False .Documents.Close(0) .Application.Quit End With Set WrdApp = Nothing End Sub |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Word 2003 code no longer working for Word 2007
You had better ask in a programming newsgroup such as
microsoft.public.word.vba.general. There you are more likely to get knowledgeable help. -- Stefan Blom Microsoft Word MVP "Kobus" wrote: The following is code I've been using for an automated Mailmerge routine in Word 2003 to allow mailmerge to work totally in the background and allowing multiple copies of mail merge to execute in parallel (We use a cenralized server to do mailmerges and distribute the results, all automated without any human interaction). In Word 2007 this no longer works and pops up the merge process on the screen, thus limiting execution to a single instance at a time. Can anybody tell me what has changed in Word 2007 and how to solve the problem? Sub Main ' Dim WrdApp As Object On Error Resume Next Set WrdApp= CreateObject("Word.Application") WrdApp.Visible = False With WrdApp Documents.Open FileName:=DRIVER_TEMPLATE, ConfirmConversions:=False, _ ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=True, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="" WrdApp.Visible = vbFalse ActiveDocument.MailMerge.MainDocumentType = wdFormLetters ActiveDocument.MailMerge.OpenDataSource Name:=FULL_NAME, _ ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _ :="", SubType:=wdMergeSubTypeOther With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With ActiveDocument.SaveAs FileName:=SAVE_NAME, FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ False, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False .Documents.Close(0) .Application.Quit End With Set WrdApp = Nothing End Sub |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro in word 2003 not working in word 2007 | New Users | |||
Can Word 2007 apply a zip code bar code to envelopes? | Microsoft Word Help | |||
Find and replace no longer working in Word 2003 | Microsoft Word Help | |||
My 'find' is not longer working in word. What can I do to fix? | Microsoft Word Help | |||
My mouse is no longer working to navigate in Word. Help! | Microsoft Word Help |