| |
| Posté le 18 janvier 2005 - 18:34 |
Bonjour,
non non je ne me suis pas trompé de forum, je ne cherche pas une info microsoft...
Voilà le code que j'ai créé pour insérer des infos de mon soft windev9 vers Word.
Mon problème est qu'il y a aussi des infos dans les en-tête et pied de page et que celles-ci ne sont pas reprises.
Avez-vous la syntaxe pour me déplacer dans le document?
Merci d'avance...
WdFindContinue est entier = 1
WdReplaceAll est entier = 2
word est un objet Automation dynamique
word = allouer un objet Automation "Word.application"
word>>Documents>>Open("C:\essai.doc")
word>>Visible = OLEVrai
word>>Selection>>Find>>Execute("@essai",OLEIgnore,OLEIgnore,OLEIgnore,OLEIgnore,OLEIgnore,OLEIgnore,WdFindContinue,OLEIgnore,"essai1",WdReplaceAll)
word>>Documents>>Save
word>>Visible = OLEVrai |
| |
| |
| | | |
|
| | |
| |
| Posté le 19 janvier 2005 - 12:33 |
La collection HeaderFooter contient les entêtes et pieds-de page.
Il faudrait visionner les membres et méthodes dans le VB:
Dans Word: Outils --> Macro --> VB Editor
Dans VB Editor: ? --> Aide sur VB --> Référence VB Word --> Modèle Objet Word
Dans le modèle: HeaderFooter de Selection |
| |
| |
| | | |
|
| | |
| |
| Posté le 19 janvier 2005 - 13:44 |
Essaie ça pour te placer dans l'en-tête :
word>>ActiveWindow>>ActivePane>>View>>SeekView = wdSeekCurrentPageHeader
dans le pied de page:
word>>ActiveWindow>>ActivePane>>View>>SeekView = wdSeekCurrentPageFooter
mais je ne l'ai pas testé...
Bon courage
Tiens nous au courant si ça marche |
| |
| |
| | | |
|
| | |
| |
| Posté le 19 janvier 2005 - 17:00 |
et bien windev ne reconait pas wdSeekCurrentPageHeader et plante à la compile.
je vais chercher avec cette syntaxe mais je dois reconnaitre qu'on manque d'exemple dans windev a ce sujet |
| |
| |
| | | |
|
| | |
| |
| Posté le 20 janvier 2005 - 13:37 |
si tu mets 10 à la place de wdSeekCurrentPageFooter
et 9 à la place de wdSeekCurrentPageHeader, ça devrait marcher !!! |
| |
| |
| | | |
|
| | |
| |
| Posté le 20 janvier 2005 - 15:28 |
Oui sa fonctionne....
Génial!!!!
Où as tu eu ces valeurs?
J'ai le même genre de problème avec la méthode Selection.EndKey
les valeur texte ne sont pas reconnues...
C'est dans Word que tu trouves sa... |
| |
| |
| | | |
|
| | |
| |
| Posté le 20 janvier 2005 - 15:57 |
c'est bon j'ai trouvé en mettant un point d'arrêt dans la macro, le surlignage m'a donné les codes....
Merci infiniment pour l'astuce...
Moi je dis:"Y en a qui touche leur bille dans ce forum!" |
| |
| |
| | | |
|
| | |