¿Cómo usar VBA en Word para saber cuántas líneas de texto hay en cada página?
Sub LinesOfPage()
'El método es muy simple, solo números
Dim PageNo As Integer, Lines As Integer, MovedLines As Integer
'Primero determina el número de página actual
PageNo = Selection.Move(wdLine, -1) = 0 O PageNo <> Selection.Information(wdActiveEndAdjustedPageNumber) Luego salga Do
'Aún en la misma página, el número de línea aumenta en 1, Continuar moviéndose
'Pasar a la página siguiente. Move(wdLine, 1) = 0 O PageNo <> Selection.Information(wdActiveEndAdjustedPageNumber) Luego salga Do
'Aún en la misma página, agregue 1 al número de línea, continúe moviéndose
Líneas = Líneas + 1
Bucle
'Últimas líneas es el número de líneas en esta página
End Sub