Doug: As you know, macros are used by clerical types to do repeditive tasks
quickly and this macro is used several times a day to generate mailing lables
for our Permitting Department.  The code is generated by the "macro
recording" part of WORD, so what you see is what is geerated by WORD.  The
routine fails with a 509
runtime error on the line marked with a ++>.

This macro is a re-generation of a working macro in Word 2000 that does not
have this problem. I have tried to enhance the Resources list for VBA in Word
2003 and I have attempted to record this macro using both the Mail Merge
Helper panels and the Mail Merge Help steps, and  both come up with the same
error.  Here is the code generated by the WORD macro:


Sub APO2()
'
' APO2 Macro
' Macro recorded 06/12/2006 by JNelson
'
   ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels
   ActiveDocument.MailMerge.OpenDataSource Name:="C:\list.doc", _
       ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
       AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
       WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
       Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="",
SQLStatement1 _
       :="", SubType:=wdMergeSubTypeOther
   WordBasic.MailMergeOpenHeaderSource Name:="C:\listhdr.doc", _
       ConfirmConversions:=0, ReadOnly:=0, LinkToSource:=1, AddToMru:=0, _
       PasswordDoc:="", PasswordDot:="", Revert:=0, WritePasswordDoc:="", _
       WritePasswordDot:="", Connection:="", SQLStatement:="",
SQLStatement1:="" _
       , Format:=0, Visible:=1, OpenExclusive:=0, OpenAndRepair:=0,
SubType:=0, _
       DocumentDirection:=0, NoEncodingDialog:=1, XMLTransform:=""
   ActiveDocument.MailMerge.DataSource.QueryString = _
       "SELECT * FROM C:\list.doc" & ""
   ActiveDocument.Fields.Add Range:=Selection.Range,
Type:=wdFieldMergeField _
       , Text:="""FirstName"""
   Selection.TypeText Text:=" "
   ActiveDocument.Fields.Add Range:=Selection.Range,
Type:=wdFieldMergeField _
       , Text:="""LastName"""
   Selection.TypeParagraph
   ActiveDocument.Fields.Add Range:=Selection.Range,
Type:=wdFieldMergeField _
       , Text:="""Address1"""
   Selection.TypeParagraph
   ActiveDocument.Fields.Add Range:=Selection.Range,
Type:=wdFieldMergeField _
       , Text:="""City"""
   ActiveDocument.Fields.Add Range:=Selection.Range,
Type:=wdFieldMergeField _
       , Text:="""State"""
   Selection.TypeText Text:=" "
   ActiveDocument.Fields.Add Range:=Selection.Range,
Type:=wdFieldMergeField _
       , Text:="""PostalCode"""
++>   WordBasic.MailMergePropagateLabel
   ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
   ChangeFileOpenDirectory "C:\"
   ActiveDocument.SaveAs FileName:="mergelist.doc", FileFormat:= _
       wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
       True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
       False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
       SaveAsAOCELetter:=False
End Sub