N° de Page avec VBA Word

Question

Bonjour a tous,

Je suis actuellement à la recherche de quelque chose qui m'est impossible de trouver.

Ce quelque chose est le suivant:
   Je voudrais récuperer avec VB, bien sur, le numéro de page de mon Document Word, sur laquelle je suis positionné.
   En clair, comment obtenir le nuéro de la page d'un fichier WORD et cela en VB ?

En espérant que vous pourrez m'aider, je vous en remercie par avance....

virbasicus · Answer

Sub SélectionPage()
Dim Message, Title, Default, NumPageSelection
Message = "Tapper le numéro de la page à afficher:"
Title = "Sélectionner page."
Default = "1"
NumPageSelection = InputBox(Message, Title, Default)
ActiveDocument.Range.Select
Selection.GoTo what:=wdGoToPage,Which:=wdGoToAbsolute,  
                        Count:=NumPageSelection + 1
Selection.Move unit:=wdCharacter, Count:=-1
nbligne = Selection.Information(wdFirstCharacterLineNumber)
Selection.Move unit:=wdCharacter, Count:=1
With Selection
    .HomeKey unit:=wdLine, Extend:=wdMove
    .ExtendMode = True
    .MoveUp unit:=wdLine, Count:=nbligne
    .ExtendMode = False
End With
End Sub

N° de Page avec VBA Word

1 réponse

Discussions similaires