Quote:
Originally Posted by Dimsok
When i type, blank pages always appear after about 30 pages. So in document with about 300 pages i have plenty of them
|
That suggests you're going about the blank page creation the wrong way. Are you using manual page breaks or Section Breaks to create them, or some other method?
Here's a slightly different approach to clearing out trailing content in a document:
Code:
Sub Demo()
With ActiveDocument.Characters.Last
While .Previous.Text Like "[ " & Chr(160) & vbCr & vbTab & Chr(12) & "]"
.Previous.Text = vbNullString
Wend
End With
End Sub