print last 20 lines

[wooonelly]

I need to print the last twenty lines of various word documents. Can someone help me to accomplish this?

I would like to create a macro that will just print out the last 20 lines of the open document. I don't need to save anything. This is just for reference purposes.

[sweet_dreams]

hi Wooonelly,

Paste this code into a new module:

Sub Select20Lines()
Dim lines_no As Long
Dim text_selection As Selection
 
lines_no = ActiveDocument.ComputeStatistics(wdStatisticLines)
 
If lines_no < 20 Then
    MsgBox "Not enough lines to select!"
    Exit Sub
End If
 
Selection.GoTo wdGoToLine, wdGoToAbsolute, (lines_no - 19)
Selection.Expand wdLine
Selection.MoveEnd wdLine, 19
 
ActiveDocument.PrintOut , , wdPrintSelection
 
End Sub

This code selects 20 last lines in document and prints it. Hope it is what you needed.

regards,
sweet_dreams