Changer d'alignement de paragraphe du document word à l'aide de VBA

J'Ai un classeur excel qui permet de conserver les données de mes clients Comme adresse & montant Dû. Je suis en train d'écrire un code VBA dans excel qui va générer une lettre à chacun des clients pour des montants dus. Je ne peux pas utiliser de publipostage en raison de la complexité de la lettre. Je suis en utilisant un des codes suivants pour ajouter des paragraphes

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
wrdDoc.content.InsertAfter "----------"
wrdDoc.content.InsertParagraphAfter

Maintenant, j'ai besoin de modifier l'alignement des paragraphes. Les paragraphes dans le corps de la lettre doivent être justifiées, tandis que certains paragraphes comme la ligne d'objet doivent être alignés. J'ai essayé ce code mais sa ne marche pas

1.

wrdDoc.Paragraphs(8).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

aussi

2.

wrdDoc.Paragraphs(8).Alignment = wdAlignParagraphCenter

Quelle est la bonne manière de faire ceci?

Ce qui concerne
Shekhar

InformationsquelleAutor user1130219 | 2012-01-04
  1. 0

    http://www.vbaexpress.com/forum/showthread.php?t=29989

    • Merci beaucoup rajat.En fait, j'ai travaillé autour de vous pour trouver la solution et le code suivant a travaillé. Set myrange = wrdDoc.Gamme(wrdDoc.Les paragraphes(9).Gamme.Démarrer, wrdDoc.Les paragraphes(24).Gamme.Fin) myrange.Sélectionnez wrdapp.Sélection.ParagraphFormat.L'alignement = wdAlignParagraphJustify Cela signifie que le predifinis mot propriétés wd* n'est pas un problème, comme le suggère le lien. Si j'ai trouvé la solution à mon problème, je ne sais toujours pas pourquoi mon premier code n'a pas fonctionné. Toutes les réponses?
    InformationsquelleAutor Rajat
  2. 3

    Cela a fonctionné pour moi:

    objselection.Les paragraphes.L'alignement = 3

    Numéros:

    3 Justifier
    2 Centre
    1 Droit Justifier

    • Cela a fonctionné pour moi, mais j'ai trouvé que 1 = Center. Mon code est WordApp.Selection.Paragraphs.Alignment = 1 -- pour changer de paragraphe alignement au centre de la sélection, réitéré dans une boucle for each.
    InformationsquelleAutor Kaikass