Label et espaces.

[gregb34]

Bonsoir,

Je m'explique, je génère des documents à partir d'une base de données.

J'utilisais un seul label ou j'y ajoute à la suite les élements à afficher. J'y insère des sauts de ligne... Bref ca marchait nickel.

Mon problème est que les éléments sont classés par catégories et je dois afficher les catégories en gras. Or dans un seul label c'est pas possible, j'ai donc crée mes labels de la sorte :

Label Categorie 1
Label Elements Categorie 1

Label Categorie 2
Label Elements Categorie 2

Label Categorie 3
Label Elements Categorie 3

...

Les labels Catégorie X sont en gras. Si la catégorie ne contient pas d'éléments, je supprime les 2 labels. (j'y arrive)

Problème : L'espace qu'occupait les labels ne sont pas supprimés et ca fait moche dans la presentation.

Une solution ? MERCI BEAUCOUP !!!

[Heureux-oli]

On peut le faire au départ de Word, ou alors à la source du problème, lors de la génération du document.

Pour Word, l'idée serait de compter le nombre de ligne vides et si elles sont multiples, les supprimer.

Pour la suppression des lignes vides, consulte les FAQ.

[gregb34]

Oui mais cela va modifier TOUTES les lignes vides. Je cherche unqiuement à modifier certaines lignes vides, et je vois pas comment les détecter.

A moins de créer un paragraphe spécifique qui comrpends uniquement l'espace ou les lignes vides devront être supprimées.

[Heureux-oli]

Si tes lignes proviennent d'une base de données il est possible de définir une valeur par défaut, ce qui faciliterais le traitement ultérieur.

[ouskel'n'or]

Si tes labels sont seuls sur une ligne, tu peux aussi les effacer en sélectionnant le caractère suivant qui est un retour à la ligne (vbcr)

Code :

1
2
3
4
    Set Doc = ActiveDocument
    Doc.InlineShapes(1).Select 'là tu sélectionnes ton label
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1