1. Accueil
  2. Forum Codes-Sources
  3. Commentaires sur une source
Sujet Précédent Sujet Suivant

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
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
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
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.
charles_ioda
Messages postés
3
Date d'inscription
dimanche 10 septembre 2006
Statut
Membre
Dernière intervention
23 juillet 2007
23 juil. 2007 à 08:27
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
yvessimon
Messages postés
637
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
19 juil. 2007 à 08:59
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
cs_Kenavo
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
 4
18 juil. 2007 à 16:20
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