Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
Kobus Kobus is offline
external usenet poster
 
Posts: 2
Default 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   Report Post  
Posted to microsoft.public.word.docmanagement
Stefan Blom Stefan Blom is offline
external usenet poster
 
Posts: 8,428
Default 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

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Macro in word 2003 not working in word 2007 vestlink New Users 1 March 14th 08 12:11 PM
Can Word 2007 apply a zip code bar code to envelopes? LINDA Microsoft Word Help 4 January 5th 08 05:45 AM
Find and replace no longer working in Word 2003 Dawn Bjork Buzbee Microsoft Word Help 2 November 9th 07 07:05 PM
My 'find' is not longer working in word. What can I do to fix? Overheadsmash Microsoft Word Help 1 December 15th 06 08:29 PM
My mouse is no longer working to navigate in Word. Help! Brooke12 Microsoft Word Help 1 September 22nd 06 09:43 PM


All times are GMT +1. The time now is 02:44 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"