Information générale
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Hello All,
I found this OLD thread (2008) from back when I was trying to convert a Word macro to work in my code. What it did was open Word, open an existing document, merge it, print the results and close Word. Code below:
#define wdSendToPrinter 1
#define wdDefaultFirstRecord 1
#define wdDefaultLastRecord -16
LOCAL oWord
oWord = CREATEOBJECT([Word.Application]) && W/o this nothing can work, even VFP9 :-))))
oWord.Documents.Open(m.dir+"GUESTLABELS.DOC")
With oWord.ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = .t.
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
EndWith
.Execute()
EndWith
#DEFINE wdDoNotSaveChanges 0
#DEFINE wdSaveChanges -1
#DEFINE wdPromptToSaveChanges -2
oWord.Quit( wdDoNotSaveChanges )
I get an error when it hits: .Destination = wdSendToPrinter
The error I receive is: "OLE IDispatch code 0 from Microsoft Word: 'Destination' is not a by reference property'"
I suspect I've run into some sort of conflict with more recent versions of Word? Just a guess. Any suggestions are greatly appreciated.
Martha
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement