Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Word/Excel Automation
Message
De
17/11/1999 17:18:42
Jim Rieck
Quicken Loans/Rock Financial/Title Sourc
Livonia, Michigan, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Titre:
Word/Excel Automation
Divers
Thread ID:
00292151
Message ID:
00292151
Vues:
58
What would I add to the following code to open a word document? I tried oform.oWordDoc.fileOpen(sys(5) + sys(2003) + "\cquote.doc"), but it doesn't work.

thanks

Jim
Here's the code:
oform = thisform
oForm.addobject('oWordDoc','olecontrol','word.document')
oForm.oWordDoc.Height = THISFORM.txtFrame.height
oForm.oWordDoc.Width = THISFORM.txtFrame.width
oForm.oWordDoc.Top = THISFORM.txtFrame.top
oForm.oWordDoc.Left = THISFORM.txtFrame.left
oForm.oWordDoc.Visible = .t.
oForm.Show

oForm.oWordDoc.DoVerb(0)

IF TYPE("oForm.oWordDoc.object.name") # "C"
lWord97 = .F.
oWordRef = GetObject('','word.basic')
ENDIF
Thanks

Jim
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform