begin process at 2008 08 29 23:19:07
1 233 930 membres
450 nouveaux aujourd'hui
14 294 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PILOTER WORD AVEC DELPHI : CONFIGURER LES BORDURES DES TABLEAUX WORD


Information sur la source

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)
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de Kenavo le 18/07/2007 16:20: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

  • signaler à un administrateur
    Commentaire de yvessimon le 19/07/2007 08:59:12

    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


  • signaler à un administrateur
    Commentaire de charles_ioda le 23/07/2007 08:27:16

    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

  • signaler à un administrateur
    Commentaire de radios1 le 23/07/2007 16:28:51

    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.

Ajouter un commentaire

Pub



Appels d'offres

Recherche developpeur ...
Budget : 700€
SITE MARCHAND LOCATION...
Budget : 3 000€
SITE MARCHAND POUR HOTEL
Budget : 4 000€

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS