windowsxprel
05-22-2014, 06:32 PM
Hi. I have been going at this for a long time now, I am pretty sure it's been over a week, but can someone please help me out by looking at the following code and telling me if there's an easier way to write it instead of me repeating myself over and over. Your help would be really appreciated!!!!
' FILE NAME = LoQUo_01_01_d
ActiveDocument.SaveAs2 FileName:="LoQUo_01_01_d.iim", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=msoEncodingUTF8, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF, CompatibilityMode:=0
' NEXT MACROS
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
' FILE NAME = LoQUo_01_02_d
ActiveDocument.SaveAs2 FileName:="LoQUo_01_02_d.iim", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=msoEncodingUTF8, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF, CompatibilityMode:=0
' NEXT MACROS
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
' FILE NAME = LoQUo_02_01_d
ActiveDocument.SaveAs2 FileName:="LoQUo_02_01_d.iim", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=msoEncodingUTF8, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF, CompatibilityMode:=0
' NEXT MACROS
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
' FILE NAME = LoQUo_02_02_d
ActiveDocument.SaveAs2 FileName:="LoQUo_02_02_d.iim", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=msoEncodingUTF8, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF, CompatibilityMode:=0
' FILE NAME = LoQUo_01_01_d
ActiveDocument.SaveAs2 FileName:="LoQUo_01_01_d.iim", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=msoEncodingUTF8, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF, CompatibilityMode:=0
' NEXT MACROS
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
' FILE NAME = LoQUo_01_02_d
ActiveDocument.SaveAs2 FileName:="LoQUo_01_02_d.iim", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=msoEncodingUTF8, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF, CompatibilityMode:=0
' NEXT MACROS
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
' FILE NAME = LoQUo_02_01_d
ActiveDocument.SaveAs2 FileName:="LoQUo_02_01_d.iim", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=msoEncodingUTF8, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF, CompatibilityMode:=0
' NEXT MACROS
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
' FILE NAME = LoQUo_02_02_d
ActiveDocument.SaveAs2 FileName:="LoQUo_02_02_d.iim", FileFormat:= _
wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=msoEncodingUTF8, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF, CompatibilityMode:=0