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
TOUS MES REMERCIEMENTS A
Firejocker (Jean-Baptiste Demonte)
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
- Delphi word
- Word delphi - Meilleures réponses
- Visual Basic / VB.NET : Piloter word par ole avec access ou vb - CodeS SourceS - Guide
- Delphi / Pascal : Piloter excel depuis delphi - CodeS SourceS - Guide
- Dll pour piloter word - Codes sources - Visual Basic / VB.NET (Divers)
- C# / .NET : Piloter word via microsoft.office.interop.word - CodeS SourceS - Guide
- Piloter Word ✓ - Forum - Visual Basic 6
Commentaires
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
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
En général, cela se traduit bien en delphi, j'ai toujours réussi à faire ce que je voulais
good luck
Charles
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.
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.