|
FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile |
| | | | | |
| exportation d'un document à word |
| Débuté par polo_claude, 15 déc. 2004 19:36 - 1 réponse |
| |
| | | |
|
| |
| Posté le 15 décembre 2004 - 19:36 |
Winde8 un etat en apercu avant impressioncomportant un tableau.Il y a un bouton WORD lorsque je clique sur ce bouton qui m'exporte le document à WORD le tableau contenu dans l'état perd le cadrage au profit de la tabulation.
Comment faire pour que en WORD j'ai exactement le même tableau que j'avais en WINDEV8?
Aidez moi SVP |
| |
| |
| | | |
|
| | |
| |
| Posté le 16 décembre 2004 - 09:50 |
- TableVersWord(NomTable,NomFichierWord) garde les alignements et bordures.
- J'utilise plus souvent la classe cWord à laquelle j'ai ajouté une méthode. Je fabrique le texte à transférer sous la forme Texte=Texte+Info1+TAB+Info2+TAB+...+Infox+RC
Ensuite:
SI PAS VersPressePapier(Txt) ALORS
Erreur("Echec de la copie")
SINON
X1:Visible() // X1 = objet cWord déclaré
X1:Nouveau() // Visible, Nouveau et Coller = méthodes existantes de cWord
X1:Coller()
X1:TexteToTableau() // Méthode ajoutée dont voici le code ci-dessous
FIN
PROCEDURE cWord::TexteToTableau()
:m_xWord>>ActiveDocument>>Range>>Select // m_xWord = objet OLE dynamique
:m_xWord>>Selection>>ConvertToTable(1) // Procédure OLE Word
:m_xWord>>ActiveDocument>>Tables(1)>>Select
:m_xWord>>Selection>>Borders>>InsideLineStyle=7 // Traits intérieurs fins (7)
:m_xWord>>Selection>>Borders>>OutsideLineStyle=9 // Bordure extérieure spéciale |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|