Foire aux questions Microsoft Word - Club d'entraide des développeurs francophones

Sommaire > VBA > Pages
Comment obtenir le nombre de page d'un document?
Comment exporter un nombre de pages choisies ?

Comment obtenir le nombre de page d'un document?

Comment faire pour obtenir le nombre de page d'un document en VBA


Sub NbrePages()
MsgBox Selection.Information(wdActiveEndPageNumber)
End Sub

Comment exporter un nombre de pages choisies ?

[haut]

auteur : Lebeau Olivier

Mise en garde : les pages ne sont pas des objets fixes en Word, les pages dépendent de l'imprimante, de la mise en page, ...

Le principe est assez simple en soi. Pour sélectionner une plage de données, vous avez besoin de deux signets. Nous allons ajouter des signets sur des pages précises. Pour effectuer cette opération, nous allons utiliser la fonction Goto de VBA.


Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=2
Selection.Bookmarks.Add Name:="bmStart", Range:=Selection.Range

Dans ces lignes, nous plaçons un signet (Name:="bmStart") au début de la seconde page de notre document (Count:=2). Nous obtenons ainsi notre signet de départ.


Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=4
Selection.Bookmarks.Add Name:="bmEnd", Range:=Selection.Range

Dans cette seconde série de lignes, nous plaçons un signet (Name:="bmEnd") au début de la quatrième page de notre document(Count:=4). Nous obtenons ainsi notre signet de fin.


Dim myRange As Range
'Signet de début
Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=2
Selection.Bookmarks.Add Name:="bmStart", Range:=Selection.Range
'Signet de fin
Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=4
Selection.Bookmarks.Add Name:="bmEnd", Range:=Selection.Range
'sélection de la plage
Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("bmStart").Range.Start, End:=ActiveDocument.Bookmarks("bmEnd").Range.End)
myRange.Select
'copie de la plage de le presse papier
Selection.Copy

Vous pouvez utiliser la copie de la plage de données dans un autre document.


Document.Add
ActiveDocument.Paste

Consultez les autres F.A.Q's

Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2008 Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.