par Samifred » Sam Avr 23, 2011 8:48 am
Bonjour,
Voci une solution pour imprimer des données HF ou autres dans une page Word à l'emplacement des signets préalablement créés.
- Code: Tout sélectionner
sSel est une chaîne
sSel = fSélecteur(SAIS_FIC, "", "Sélectionnez un fichier...", "Fichiers(*.doc)"+TAB+"*.doc", "*.doc", fselOuvre+fselExiste)
SI sSel<>"" ALORS
TitreEnCours("Aperçu du document "+ExtraitChaîne(sSel,1,"\",DepuisFin))
SAIS_FIC = sSel
FIN
word est un objet Automation dynamique
word = allouer un objet Automation "Word.application"
word>>Documents>>Open(SAIS_FIC) //Fichier Word
word>>Visible = Vrai //Affichage de Word
word>>Selection>>GoTo(-1,0,0,"typesignet1") //Nom du signet préalablement installé dans le fichier Word
word>>selection>>Typetext (SAI_Saisie1) //Texte à introduire
word>>Selection>>GoTo(-1,0,0,"typesignet2") //Nom du signet préalablement installé dans le fichier Word
word>>selection>>Typetext (SAI_Saisie2) //Texte à introduire
Cordialement, en espérant que ma collaboration soit profitable. Fred

PS: Il est important d'indiquer, dans la question, la version WD utilisée.
Note: Pas de question par MP, merci.