PILOTER WORD AVEC DELPHI : CONFIGURER LES BORDURES DES TABLEAUX WORD
cs_Kenavo
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
-
18 juil. 2007 à 16:20
radios1 Messages postés 17 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 9 septembre 2007 - 23 juil. 2007 à 16:28
radios1 Messages postés 17 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 9 septembre 2007 - 23 juil. 2007 à 16:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43499-piloter-word-avec-delphi-configurer-les-bordures-des-tableaux-word
https://codes-sources.commentcamarche.net/source/43499-piloter-word-avec-delphi-configurer-les-bordures-des-tableaux-word
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