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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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