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)
23 juil. 2007 à 16:28
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.
23 juil. 2007 à 08:27
En général, cela se traduit bien en delphi, j'ai toujours réussi à faire ce que je voulais
good luck
Charles
19 juil. 2007 à 08:59
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
18 juil. 2007 à 16:20
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
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.