OVH Cloud OVH Cloud

VBA - Plusieurs paragraphes dans une cellule

1 réponse
Avatar
Jean-Claude
Bonjour,
Je connais VBA par Excel et j'essaie d'automatiser dans Word la saisie
d'un certain nombre d'informations.
C'est la que commence mes problèmes.
J'ai un tableau composé d'un certains nombre de cellules.
Ces cellules sont composées de 3 paragraphes, les deux premiers se
terminant par une marque de paragraphe, le dernier s'arrêtant avec la
fin de la cellule.
Je rentre les informations en une fois par l'intermédiaire du code
suivant :
Sortie = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
Départ = "Départ : " & Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Retour = "Retour : " & Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
MonTexte= Départ & Chr(13) & Sortie & Chr(13) & Retour
TableauSorties.Cell(Row:=Me.LabelDate.Tag, Column:=2).Range.Text =
MonTexte

Or je désire que le 1er paragraphe soit aligné à gauche, le second au
centre et le troisième à droite.

Pour les atteindre, j'ai tenté sous forme d'essai la commande suivante
mais un message d'erreur apparaît à la seconde ligne
Set TableauSorties = ActiveDocument.Tables(1).Cell(Row:=3,
Column:=2)
TableauSorties.Range(Paragraphs(1)).Select

Bref comment atteindre mes trois paragraphe pour les formater selon mon
désir ?
Est-il possible de formater directement MonTexte ?

Merci d'avance
--
A+
Jean-Claude
jcvalProut@wanamoo.fr - Evitez lez gaz mou

1 réponse

Avatar
Anacoluthe
Bonjour !

'Jean-Claude' nous a écrit ...
Pour les atteindre, j'ai tenté sous forme d'essai la commande suivante
mais un message d'erreur apparaît à la seconde ligne
Set TableauSorties = ActiveDocument.Tables(1).Cell(Row:=3,
Column:=2)
TableauSorties.Range(Paragraphs(1)).Select


TableauSorties.Range.Paragraphs(1).Select

Anacoluthe
« Les erreurs sont les portes de la découverte. »
- James JOYCE