[VBA-W]changer de place un numero sur une page word

[benco]

bonsoir
je vous mets le code que j'ai pour numeroter un document, le probleme c'est que ce numero se met en haut à gauche et je voudrais le descendre de 2/3 lignes :

Code :

1
2
3
4
5
6
7
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
Selection.TypeText Text:="N° " & num
num = Right("0000" & num, 4)
SendKeys "o"
ActiveDocument.SaveAs FileName:="N" & num & ".doc"

merci d'avance 8)

[ouskel'n'or]

Code :

1
2
3
4
5
6
7
8
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'Pour mettre ton numéro de page dans l'entête
    Selection.TypeParagraph 'descend d'une ligne
    Selection.TypeParagraph
    Selection.TypeParagraph
    'ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter ' pour le mettre dans le pied de page
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage  'insère le N° de page
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight  'Allignement à droite -> wdAlignParagraphLeft pr gauche (!)
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument  'retour dans le doc

Tu as tous les éléments dont un qui t'évite de mettre num = num + 1


A+