Delete blank pages

gmayor · #6 09-06-2014, 11:15 PM

It may be possible, but until you tell us what hidden symbols are involved, we cannot progress further with this. Maybe the following macro will help identify them. Select the character and run the macro.

Code:

Sub AnsiCode()
Dim myData As DataObject
Dim vChar As Variant
Dim sCode As String
    Set myData = New DataObject
    For Each vChar In Selection.Characters
        sCode = sCode & "ChrW(" & AscW(vChar) & ") & "
    Next
    sCode = Left(sCode, Len(sCode) - 3)
    MsgBox sCode & vbCr & vbCr & "Copied to clipboard!"
    myData.SetText sCode
    myData.PutInClipboard
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
deleting blank pages	thauser	Word	3	05-27-2014 01:56 AM
Deleting blank pages	Microsoftenquirer1000	Word	14	08-27-2012 01:24 PM
delete blank pages from mail merge document	blusea	Word	0	12-17-2010 06:10 PM
How do you delete a blank page at end?	aerophil	Word	4	10-24-2009 05:04 AM
hidden blank pages	mljm	Word	3	06-19-2009 03:18 AM