Discussion :

[jessicaz]

Bonjour,

Comment faire pour connaitre - avec une macro - la nombre total de lignes dans un document Word. C'est obtenir cette variable pour l'utiliser dans une macro en nombre d'occurences.

Merci d'avance pour vos pistes
Jessica

[Heureux-oli]

Salut,

Le nombre de ligne n'est disponible que par page.
Il faut donc compter le nombre de ligne par page et les additionner.

Essaie ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub nbreLigne()
Dim intPage As Integer
Dim intPageSel As Integer
Dim intligne As Double
 
 
intPage = Selection.Information(wdActiveEndPageNumber)
For intPageSel = 1 To intPage
    ActiveDocument.GoTo what:=wdGoToPage, Which:=wdGoToAbsolute, Count:=intPageSel
    intligne = intligne + Selection.Information(wdFirstCharacterLineNumber)
Next intPageSel
Debug.Print intligne
 
End Sub