Many of the earlier paragraphs were over 1,500 characters long; splitting them into shorter paragraphs offered a chance to "blot up" some of the extra white space available to us.
I hooked the macro up to the Ctrl-Shift-K shortcut:
Code: Select all
Sub SelectLongestParagraph()
Dim prg As Paragraph
For Each prg In ActiveDocument.Paragraphs
Dim rng As Range
Dim lngMax As Long
If lngMax < prg.Range.Characters.Count Then
If prg.Range.Information(wdActiveEndPageNumber) <= 8 Then
lngMax = prg.Range.Characters.Count
Set rng = prg.Range
Else
End If
Else
End If
Next prg
rng.Select
End Sub