Thread: [Solved] Delete blank pages
View Single Post
 
Old 09-06-2014, 11:15 PM
gmayor's Avatar
gmayor gmayor is offline Windows 7 64bit Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 4,137
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote