ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Manipulation en VFP des DOCVARIABLE de Word   



L'auteur

Francis Faure
France France
Membre Actif (personne physique)
# 0000000001
enregistré le 11/10/2004

http://www.wanagain.net
51 ans
Faure Francis
de la société Design Or Decline
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Word

Manipulation en VFP des DOCVARIABLE de Word
# 0000000652
ajouté le 29/10/2008 11:29:25 et modifié le 29/10/2008
consulté 4570 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0

Description

Suite à la demande de "fhc" sur le newsgroupe "microsoft.public.fr.fox" :

 

Voici une petite contribution d'illustration de manipulation des variables de Word utilisées avec le champ DOCVARIABLE.

 

Cordialement

Francis FAURE

Code source :
CLEAR

* Utilisation dans le document word de { DOCVARIABLE "maVariable" }
lsFile = "c:\temp\test.doc"

oWApp = CreateObject("Word.Application")
oWApp.Visible=.T. && affichage de word pour debuggage
oWDoc = oWapp.Documents.Open(m.lsFile)

* Nombre de Variables existante dans le document
"Nombre de Variables : ", oWdoc.Variables.Count()

* Ajouter des Variables
* (attention : gérer l'erreur dans la cas ou la variable existe déjà)
oWDoc.Variables.add("nom")
oWDoc.Variables.add("prenom")

* modifier la valeur des Variables
oWDoc.Variables("nom").value="Papa"
oWDoc.Variables("prenom").value="Maman"

* Liste des Variables
For lii = 1 To oWdoc.Variables.Count()
  ? "Item :", m.lii
  ? "Nom :", oWDoc.Variables(m.lii).Name
  ? "Valeur :", oWDoc.Variables(m.lii).Value
  ? "---------------------------------------"
NEXT

* mise à jour des champs du document
oWdoc.Fields.Update()

WAIT windows "Cliquer pour fermer"

oWDoc.Close(0)
oWApp.Quit()
oWdoc=.null.
oWApp=.null.

* a consulter :
* http://support.microsoft.com/kb/209227
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3