vba - word- alignment

**estampille** · 18/01/2006, 15h09

argh!!
j'ai un pb avec la creation d'un document word.
en fait le doc se cré, mais les alignements ne marchent pas...
genre center, left , right, justify...
malgré l'aide de ouskel'n'or qui preconise le fait de faire une macro sous word et qui nous resort le script tout beau.. et ca marche pour tout le reste.. mais pas sur ca
donc voila j'ai un truc du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim MonWord As Object
Set MonWord = CreateObject("Word.Application")
MonWord.Documents.Add
MonWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
MonWord.Selection.TypeText "Bonjour Mr. le Directeur,"
MonWord.Selection.TypeParagraph
MonWord.Selection.TypeParagraph
MonWord.ParagraphFormat.Alignment = wdAlignParagraphJustify
.....

mais tout est aligné a gauche.
c'est du a quoi??.
merci d'avance pour les reponses :o

**ouskel'n'or** · 18/01/2006, 15h13

Et d'abord, es-tu sûr d'avoir sélectionné la bonne ligne ???

A+

**estampille** · 18/01/2006, 15h21

ben je pense ui ..
en fait la ligne de script sur l'alignement je l'ai positionnée un peu partout, j'ai fait plein de test différent suite au aide du net, suite aux scripts obtnus avec word..
mais marche po..
alors si tu sais comment faire.. alros helppppppppppppp

merci..

**bidou** · 18/01/2006, 15h23

chez moi ton code marche nickel.

Tu ne serais pas en mode d'affichage "Plan" par hasard ?

**ouskel'n'or** · 18/01/2006, 15h25

Tu dois sélectionner ta ligne, puis... appliquer le style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Sélection de la ligne courante
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
'Application du style
    Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

A+

Edit

Tu ne serais pas en mode d'affichage "Plan" par hasard ?

Heureusement qu'il y en a qui réfléchissent...
C'est pourquoi je te conseille toujours de poser tes questions sur le forum, pas par mp. CQFD

**estampille** · 18/01/2006, 15h34

bon non je ne suis pas en mode plan alros comment ca ce fait que ca amrche chez toi et pas chez moi!!!!!!! ca m'enerve...
bref sinon j'ai essayé de rajouter la ligne que tu m'as dit:
de la maniere suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MonWord.Documents.Add
MonWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
MonWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
MonWord.Selection.TypeText "Bonjour Mr. le Directeur,"

mais ca ce lance plus et la phrase en plsu et surlignée en jaune.. ca va pas..

donc je sais plus quoi faire!!!

**ouskel'n'or** · 18/01/2006, 15h39

Gros malin, en faisant ça tu as supprimé la ligne centrée...

Fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
MonWord.Documents.Add 
MonWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 
MonWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 
MonWord.Selection.MoveLeft Unit:=wdCharacter, Count:=1
MonWord.Selection.TypeText "Bonjour Mr. le Directeur,"

et dis-nous

Ah ! C'est bien compliqué !

A+

Edit
Au fait, pensant que j'y pense, on n'abrège jamais Monsieur, encore moins quand on s'adresse à Monsieur le Directeur...

**estampille** · 18/01/2006, 15h45

ben

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend

me dit erreur d'execution
parametre incorrect...
donc je fais quoi "gros malin"...
non en fait y a pas un truc tuot simple??.
pkoi quand je fais mon enregistrer une macro , je fais mais alignements et a la fin ca me sors un truc simple et beau.. mais qui marche pas ici...
bon en tout cas désolé d'insiter pour un truc qui peut paraitre nul.. mais bon j'en ai besoin..
merci

**ouskel'n'or** · 18/01/2006, 15h50

Bref, tout marche bien chez moi, pas chez toi...
Il semblerait, d'après ce que tu me dis, que, quand tu fais "MonWord.Documents.Add ", la première ligne soit déjà sélectionnée.
Donc, Essaie de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonWord.Selection.MoveLeft Unit:=wdCharacter, Count:=1

avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend

Tu dis

A+

PS - T'aime pas qu'on te taquine... Et moi j'aime bien taquiner...

Edit
Tu peux aussi essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    MonWord.Documents.Add 
    MonWord.Selection.TypeParagraph
    MonWord.Selection.MoveUp Unit:=wdLine
    MonWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend

**estampille** · 18/01/2006, 15h55

ba en fait c'est plus que j'aime pas que ca marche pas et de pas savoir pkoi..
surtout avecle boss derriere qui dit vite vite...
bref mon VB 6.3 il aime pas tes lignes que tu me dit de rajouter...
a chaque fois:
erreur d'execution 4120
parametre incorrect..
fuck them all!

en tout cas merci...

**estampille** · 18/01/2006, 16h10

c'est bon j'ai trouvé tout seul

il faut remplacer wdAlignParagraphCenter par un chiffre
0 à gauche
1 au centre
2 à droite

voila alors pourquoi ca.. je ne sais guere...
quand a faire un texte justifié, pit etre le 3 fera l'affaire...
bref si y en a qui ont le mm pb, le code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
MonWord.Documents.Add
MonWord.Selection.TypeText "Bonjour Mr. le Directeur,"
MonWord.Selection.ParagraphFormat.Alignment = 1
MonWord.Selection.TypeParagraph
...

voila merci moi et merci les autres..

putain je vais enfin pouvoir cocher la case

vba - word- alignment

VBA Word

Discussions similaires

Partager

Partager