Discussion :

[Dadoo57]

Bonjour,
Quelqu'un saurait-il comment obtenir le nombre de lignes écrites sur une page donnée (numPage) ?

Le code suivant fonctionne uniquement si la "numPage + 1" existe

Code :

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

1
2
3
4
  Set startPage = ActiveDocument.GoTo(What:=wdGoToPage, Count:=numPage)
    Set endPage = ActiveDocument.GoTo(What:=wdGoToPage, Count:=numPage + 1)
    endPage.Collapse Direction:=wdCollapseEnd
ActiveDocument.Range(startPage.Start, endPage.Start).ComputeStatistics(wdStatisticLines)

Merci beaucoup pour votre retour.

Je vous prie d'agréer, Madame, Monsieur, l'expression de mes salutations distinguées,
David

[Dadoo57]

Voici la solution que j'ai obtenu et qui fonctionne très bien

There is a special bookmark to work with a range (or select) for a full page
Code:

Code :

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

1
2
3
4
5
6
7
 
Sub GetLines(lapage as integer)
  Dim rng As Range
  Set rng = ActiveDocument.GoTo(What:=wdGoToPage, Count:=lapage)
  Set rng = rng.GoTo(What:=wdGoToBookmark, Name:="\page")
  MsgBox rng.ComputeStatistics(wdStatisticLines)
End Sub

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia