[VBA] Alignement de texte à droite sur Word

[darkneo]

Bonjour,

j'écris une macro qui doit écrire un fichier Word.

Comme indiqué dans le titre, je souhaite activer l'alignement du texte à droite pour les lignes qui vont être tapées ensuite (en l'occurence, la date).

En utilisant l'enregistrement de macros, j'ai obtenu :

With WordObj.selection
.Font.Bold = True
.typeText Text:="Direction de ..."
.typeParagraph
.typeParagraph
.typeText Text:="Secrétariat ..."
.Font.Bold = False
.typeParagraph
.typeParagraph
.ParagraphFormat.Alignment = wdAlignParagraphRight 'Ligne qui fait défaut
.typeText Text:="A ..., le " & Date
End With

Et le code fonctionne comme si l'instruction ".ParagraphFormat.Alignment = wdAlignParagraphRight" était bien prise en compte (i.e. le code est lu, on passe à la ligne suivante), sauf que le texte "A ..., le " & Date apparaît aligné à gauche, comme si la ligne n'existait pas.

 

[JNP]

Re : [VBA] Alignement de texte à droite sur Word

Bonjour Darknéo ,
As-tu essayé

With WordObj.Selection
.Font.Bold = True
.TypeText Text:="Direction de ..."
.TypeParagraph
.TypeParagraph
.TypeText Text:="Secrétariat ..."
.Font.Bold = False
.TypeParagraph
.TypeParagraph
.TypeText Text:="A ..., le " & Date
.ParagraphFormat.Alignment = wdAlignParagraphRight
End With

car il me paraîtrait logique de n'appliquer le format qu'après avoir saisi le texte ...
Bonne suite

 

[darkneo]

Re : [VBA] Alignement de texte à droite sur Word

Salut JNP,

j'avais déjà essayé ça et ça n'avait pas fonctionné (et je viens de retester, ça ne fonctionne pas :/)

Cependant je viens de découvrir qu'en mettant une tabulation, le texte apparaissait comme s'il était aligné sur la droite...

.typeParagraph
.typetext Text:=vbTab & "A ..., le " & Date
.typeParagraph

Donc le problème "serait" résolu mais je ne comprends vraiment pas pourquoi ça fonctionne comme ça...
Et puis ce n'est pas pratique parce-que ça rend mal une fois que j'ai besoin de décaler le texte (pour l'adresse, notamment..)

 

[darkneo]

Re : [VBA] Alignement de texte à droite sur Word

Je pense avoir trouvé la solution : le document word initialement choisi avait un style d'indentation prédéfini qui causait l'erreur.