Piloter Word via WinDev 7.5 - Divers - Programmation
Marsh Posté le 13-08-2004 à 16:54:10
Tu as essayé avec un objet automation ?
Exemple 2 : Recherche et remplacement de texte dans Word 97
Le code suivant permet de rechercher l'expression "WinDev 5.5" dans un document et de la remplacer par "WinDev 7.5". Pour réaliser cette opération, un objet automation dynamique de type Word est utilisé.
// Création d'un objet automation dynamique
MaRecherche est une objet automation dynamique
// Déclaration d'une variable
MonDoc est une chaîne
// Déclarations des constantes de Word
WdReplaceAll est un entier = 2
WdFindContinue est un entier = 1
// Instance de Word existante ?
SI ObjetActif("Word.Application" ) <> NULL ALORS
// Récupération de l'instance de Word existante
MaRecherche = ObjetActif("Word.Application" )
SINON
// Allocation de l'objet automation "MaRecherche"
MaRecherche = allouer un objet automation "Word.Application"
FIN
// Word devient visible
MaRecherche>>Visible = Vrai
// Sélection du fichier dans lequel la recherche doit être effectuée
MonDoc = fSélecteur("","","Sélectionnez un fichier",...
"Fichiers Word (*.DOC)"+TAB+"*.DOC",...
"*",fselOuvre+fselExiste)
// Ouverture du fichier sélectionné
MaRecherche>>Documents>>Open(MonDoc)
// Recherche et remplacement
MaRecherche>>Selection>>Find>>Execute("WinDev 5.5",...
*,*,*,*,*,*,WdFindContinue,...
*,"WinDev 7",WdReplaceAll)
-- Code du bouton "FermeWord"
// Fermeture du document Word
MaRecherche>>ActiveWindow>>Close
// Fermeture de Word
MaRecherche>>Quit()
Marsh Posté le 13-08-2004 à 17:30:52
Oui j'ai essayé mais ce que je cherche c'est la liste des commandes car je n'en connais que quelques une or pour faire du publipostage via windev je les connais pas ...
Marsh Posté le 16-08-2004 à 10:22:24
Je ne les connais pas :-(
Par contre, si tu maitrises VB, fais le en VB et appelle ton programme sous Windev avec
DDELance(Mon_Programme_VB+" "+Mes_Parametres,DDEActif,Vrai)
Marsh Posté le 16-08-2004 à 12:44:25
Merci pour ton conseil mais je ne sais pas le faire en VB
En fait j'ai trouvé comment modifier un champ sous Windev dans Word.
Donc je pense que je vais tout d'abord copier le fichier word "model" et ainsi remplacer les champs par la personne numéro1, puis aller à la fin du document et coller ce qui a été copier précédement puis remplacer par la personne numéro 2 ...
Je sais pas si j'ai été clair ...
Je vais en quelque sorte reprogrammer le publipostage seulement j'ai un grop probleme
Comment ateindre la fin d'un document Word et comment insérer une nouvelle page en utilisant des macros ?
Marsh Posté le 13-10-2005 à 10:56:04
salut, quelqu'un sait comment modifier une propriété d'un fichier word via windev?
Exemple dans un fichier word, j'ai dans file\properties\custom une serie de propriété, par exemple la propriété auteur, comment modifier cette propriété via windev???
Marsh Posté le 13-08-2004 à 14:13:26
J'aurais aimé savoir s'il existait des classes pour piloter Word via Windev 7.5 comme il en existe pour outlook (cContact, cMail ...) et également savoir si on pouvait faire du publipostage (via Windev dans un fichier .doc)
Merci.