Bonjour
je dois réaliser une fonction qui créé un document Word vierge et qui met en forme le texte qu'on lui passe en paramètre.
Je suis presque arrivé au bout de mes peines, mais je n'arrive pas à center mon titre.
Code :
- Sub CreaNouveauDoc(titre, date, ref, nompers)
- dim MyWord, MyDoc, rng
-
- set MyWord = createObject("WORD.APPLICATION" )
- set MyDoc = MyWord.Documents.Add() 'ouverture d'un nouveau document vierge
- MyWord.Visible = true
-
- set sel = MyWord.Selection
- sel.Text=titre
- sel.Select()
-
- With sel.Font
- .Name = "Arial"
- .Size = 28
- .Bold = True
- .Shadow = True
- .Hidden = False
- .SmallCaps = False
- .AllCaps = True
- End With
- sel.ParagraphFormat.Alignment = wdAlignParagraphCenter
- End Sub
|
Normalement c'est la dernière ligne de la procédure qui doit le faire mais le texte reste désespérement aligné à gauche.
J'ai essayé l'objet range à la place de l'objet selection mais le résultat est le même.
Quelqu'un aurait il une idée svp ??
Message édité par dooggie le 28-07-2005 à 17:45:27
