Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Word Merge Fields Problems
Message
De
20/02/2004 14:53:19
 
 
À
19/02/2004 17:55:44
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00856039
Message ID:
00879432
Vues:
15
>Hi Michel
>
>I am working with a similar problem today, trying to automate the opendatasource() command to link with an excel file. (office 2003)
>
>I am using VFP 8.0 SP1.
>
>Were you able to come up with the correct syntax to make this operate correctly?
>
>I am struggling a bit with this one myself...
>
>
>
>I didn't see any replies to your message, sorry to reply with a question.
>
>
>>In a VFP procedure, I merge a Word document with an Excel data source.
>>
>>In my Word document, I put some merge fields in the header and the footer.
>>
>>It works fine with VFP7/8 and Office XP.
>>
>>With Office 2003, the merge fileds in the header and the footer do not merge.
>>
>>In the final document, they look like the merge fields expressions (i.e. «CompanyName» instead of the name in the database).
>>
>>However when I open the Word document and I merge it manually with the same Excel data source, it works fine.
>>
>>the command line to open the Excel data source I used is :
>>OpenDataSource("C:\FOLDER\EXCELSOURCE.XLS", 1, .F., .F., .T., .F., "", "", .F., "", "", "", "SELECT * FROM `EXCELSOURCE$`", "")
>>
>>Thanks in advance for your help.
>>
>>Stéphan Laporte
>>slaporte@analystik.ca


I was able to get my merge to work in office 2003 with an excel datasource. I do not know how to avoid the confirmation message about the datasource when the file is opened...

I used part of your code in my example - thanks...

Example of the code that works in office 2003:
oword=crea('word.application')
oword.visible=.t.
oword.documents.open('c:\ubs_vfp\source\mcustomer_notice.doc')
oword.APPLICATION.activedocument.mailmerge.OpenDataSource('c:\ubs_vfp\source\mcustomer_notice.xls',,,.T.,,,,,,,,"Entire Spreadsheet") 
Thanks,

Stacy



Black Mountain Software, Inc.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform