PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → Insérer un champ de fusion depuis windev
Insérer un champ de fusion depuis windev
Iniciado por pagnac, set., 13 2005 12:18 PM - 1 resposta
Publicado em setembro, 13 2005 - 12:18 PM
Bonjour,

Je connais le système permettant de réaliser un publipostage depuis windev, mais je cherche un moyen d'insérer directement un champ de fusion dans ma lettre modèle depuis windev, cad sans passer par l'assistant de publipostage de word (j'utilise word 2003)

J'ai essayé en créant une procédure dans la classe CWord qui est la suivante :

PROCEDURE cWord::InsererChamp(snom_champ)
// vérification de la sélection
QUAND EXCEPTION DANS
:m_xWord>>Selection
FAIRE
Info("Vous devez d'abord sélectionner du texte.")
RETOUR
FIN
:m_xWord>>ActiveDocument>>MailMerge>>Fields>>Add (:m_xWord>>Selection>>Range, :m_xWord>>Selection>>Name=snom_champ)

Mais celle ci ne fonctionne pas.
Quelqu'un aurait une idée de ce qui ne va pas dans cette procédure, ou bien d'un autre moyen de procéder.

Autre question : quel est le moyen d'exécuter une macro Word depuis Windev ?
Publicado em setembro, 13 2005 - 12:37 PM
Cécile a écrit :
Bonjour,

Je connais le système permettant de réaliser un publipostage depuis windev, mais je cherche un moyen d'insérer directement un champ de fusion dans ma lettre modèle depuis windev, cad sans passer par l'assistant de publipostage de word (j'utilise word 2003)

J'ai essayé en créant une procédure dans la classe CWord qui est la suivante :

PROCEDURE cWord::InsererChamp(snom_champ)
// vérification de la sélection
QUAND EXCEPTION DANS
:m_xWord>>Selection
FAIRE
Info("Vous devez d'abord sélectionner du texte.")
RETOUR
FIN
:m_xWord>>ActiveDocument>>MailMerge>>Fields>>Add (:m_xWord>>Selection>>Range, :m_xWord>>Selection>>Name=snom_champ)

Mais celle ci ne fonctionne pas.
Quelqu'un aurait une idée de ce qui ne va pas dans cette procédure, ou bien d'un autre moyen de procéder.

Autre question : quel est le moyen d'exécuter une macro Word depuis Windev ?

:m_xWord>>Run(NomMacro)

--
Jacques Trepp
Albygest - 81160 - St Juery
jacques-pas de spam.trepp@free.fr
(enlever '-pas de spam' pour me joindre)
http://www.albygest.com