Piloter word avec delphi : configurer les bordures des tableaux word

Soyez le premier à donner votre avis sur cette source.

Vue 10 698 fois - Téléchargée 1 593 fois

Description

Code repris sur le site DELPHI PERMET DE CREER UN DOCUMENT WORD AVEC 2 TABLEAUX

CECI DANS LE BUT DE COFIGURER LES BORDURES DES CELLULES DU TABLEAU ET EN PARTICULIER LA LARGEUR DU TRAIT DES BORDURES.
Hors je n'ais pas trouver la bonne formule pour rendre plus large seulement la bordures des cellule du tableau 2.
(bouton coloré)

Si vous avez une idée ou je peux trouver la solution merci d'avance

Salutations

Conclusion :


TOUS MES REMERCIEMENTS A
Firejocker (Jean-Baptiste Demonte)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Kenavo
Messages postés
759
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
-
Salut à toi !

Voilà ce que j'ai essayé :

procedure TForm1.SpeedButton10Click(Sender: TObject);
const
wdLineWidth025pt = 2;
wdLineWidth050pt = 4;
wdLineWidth075pt = 6;
wdLineWidth100pt = 8;
wdLineWidth150pt = 12;
wdLineWidth225pt = 18;
wdLineWidth300pt = 24;
wdLineWidth450pt = 36;
wdLineWidth600pt = 48;

begin
WrdDoc.Tables.Item(2).borders.item(1).LineWidth := WdLineWidth150pt;
WrdDoc.Tables.Item(2).borders.item(2).LineWidth := WdLineWidth150pt;
WrdDoc.Tables.Item(2).borders.item(3).LineWidth := WdLineWidth150pt;
WrdDoc.Tables.Item(2).borders.item(4).LineWidth := WdLineWidth150pt;

WrdDoc.Tables.Item(2).Cell(2,2).borders.item(1).LineWidth := WdLineWidth450pt;
WrdDoc.Tables.Item(2).Cell(2,2).borders.item(2).LineWidth := WdLineWidth450pt;
WrdDoc.Tables.Item(2).Cell(2,2).borders.item(3).LineWidth := WdLineWidth450pt;
WrdDoc.Tables.Item(2).Cell(2,2).borders.item(4).LineWidth := WdLineWidth450pt;

end;

Et chez moi ça fonctionne !


Ken@vo
yvessimon
Messages postés
647
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
-
Bonjour de moi

Effectivement cela correspond à ma demande.

Par contre les 2 lignes
WrdDoc.Tables.Item(2).borders.item(3).LineWidth := WdLineWidth150pt;
WrdDoc.Tables.Item(2).borders.item(4).LineWidth := WdLineWidth150pt;

donne une erreur lors d'une 2ième exécution !!

La taille doit-elle être un nombre paire 12 .. 18 .. !


Salutations

merci à toi
charles_ioda
Messages postés
3
Date d'inscription
dimanche 10 septembre 2006
Statut
Membre
Dernière intervention
23 juillet 2007
-
tu vas dans Word, tu enregistres une macro qui fait ce que tu cherches, et tu regardes le code VB généré
En général, cela se traduit bien en delphi, j'ai toujours réussi à faire ce que je voulais
good luck
Charles
radios1
Messages postés
17
Date d'inscription
mardi 10 juillet 2007
Statut
Membre
Dernière intervention
9 septembre 2007
-
bonjour,
je travail toujours sur mon projet, j'ai un petit problème, j'ai une valeur dans un edit dans form1 et je veux la récupére dans un autre edit dans form2, sans la calculer, que devrais je faire ?est ce que il ya un lien entre les forms, merci.
Commenter la réponse de cs_Kenavo

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.