|
| Tableau sans bordure sous Word |
| Iniciado por Florian, 09,dic. 2019 09:17 - 6 respuestas |
| |
| | | |
|
| |
Miembro registrado
4 mensajes |
|
| Publicado el 09,diciembre 2019 - 09:17 |
Bonjour,
Je chercher à créer un tableau sous Word avec des données que j'extrais d'un ERP.
J'utilise une variable docfragment pour mon tableau.
J'arrive bien à créer le tableau que je veux mais j'aimerai retirer les bords noirs de celui-ci.
ftableau est un docFragment
fcellule est un docFragment
ftableau = DocInsèreTableau(TT_Offre,fragment..PositionFin,5,1)
DocInsère(TT_Offre,fragment..PositionFin,RC)
fcellule = DocInsère(TT_Offre,ftableau.Paragraphe[1].PositionFin,stItems.sMATERIAL)
MonDocument..Signet[2] = fcellule
fcellule = DocInsère(TT_Offre,ftableau.Paragraphe[2].PositionFin, stItems.sNET_PRICE)
ftableau.Paragraphe[3].MiseEnPage.Alignement = chDroite
fcellule = DocInsère(TT_Offre,ftableau.Paragraphe[3].PositionFin, stItems.sREQ_QTY)
ftableau.Paragraphe[4].MiseEnPage.Alignement = chCentre
fcellule = DocInsère(TT_Offre,ftableau.Paragraphe[4].PositionFin, "")
fcellule = DocInsère(TT_Offre,ftableau.Paragraphe[5].PositionFin, stItems.sNET_VALUE)
ftableau.Paragraphe[6].MiseEnPage.Alignement = chDroite
J'ai essayé par exemple :
ftableau.Paragraphe[3].MiseEnPage.Cadre.Couleur = Transparent
ftableau..MiseEnPage..Cadre..Couleur = Blanc
A chaque fois j'ai une erreur "Propriété non disponible"
Est ce que quelqu'un aurait une idée.
Ou une autre méthode peut être.
Merci d'avance |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
1.330 mensajes |
|
| Publicado el 10,diciembre 2019 - 11:56 |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4 mensajes |
|
| Publicado el 12,diciembre 2019 - 10:20 |
| Super merci pour ton aide j'ai réussi à faire ce que je voulais. |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4 mensajes |
|
| Publicado el 12,diciembre 2019 - 10:28 |
Par contre j'ai un autre souci.
J'ai bien les cadres qui sont supprimés dans de mon édition dans le champs traitement de texte sous Windev.
Mais quand j'enregistre, le fichier .docx sur mon pc, lui il a toujours les cadres visibles.. |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
1.330 mensajes |
|
| Publicado el 12,diciembre 2019 - 12:15 |
Salut Florian,
Tu peux mettre ton code pour les cadres ?
Cordialement
Daryl |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4 mensajes |
|
| Publicado el 12,diciembre 2019 - 14:08 |
J'ai réussi à le faire marcher.
Mais je ne passe plus par le module traitement de texte de word.
J'ai créé une variable document : mondocument est un document.
Et comme ça le .docx que je génère contient bien le tableau que je veux, sans les bordures.
J'ai fait comme ça :
ftableau = DocInsèreTableau(Mondocument,fragment..PositionFin,5,1)
DocInsère(Mondocument,fragment..PositionFin,RC)
// Insertion
fcellule = DocInsère(Mondocument,ftableau.Paragraphe[1].PositionFin,stItems.sMATERIAL)
ftableau.Paragraphe[2].MiseEnPage.Alignement = chGauche
fcellule = DocInsère(Mondocument,ftableau.Paragraphe[2].PositionFin, stItems.sNET_PRICE)
ftableau.Paragraphe[3].MiseEnPage.Alignement = chDroite
fcellule = DocInsère(Mondocument,ftableau.Paragraphe[3].PositionFin, stItems.sREQ_QTY)
ftableau.Paragraphe[4].MiseEnPage.Alignement = chCentre
fcellule = DocInsère(Mondocument,ftableau.Paragraphe[4].PositionFin, "")
fcellule = DocInsère(Mondocument,ftableau.Paragraphe[5].PositionFin, stItems.sNET_VALUE)
ftableau.Paragraphe[6].MiseEnPage.Alignement = chDroite
ptableau = ftableau..Paragraphe[2]
// Parcours les lignes
POUR i = 1 _À_ ptableau..Tableau..Lignes..Occurrence
// Parcours les colonnes
POUR j = 1 _À_ ptableau..Tableau..Colonnes..Occurrence
ptableau..Tableau..Cellules[i,j]..MiseEnPage..Cadre..Couleur = Blanc
FIN
FIN |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
1.330 mensajes |
|
| Publicado el 12,diciembre 2019 - 16:10 |
| |
| |
| | | |
|
| | | | |
| | |
|