Results 1 to 6 of 6
  1. #1
    Silver Lounger
    Join Date
    Jun 2001
    Location
    Morden, Surrey, United Kingdom
    Posts
    1,838
    Thanks
    3
    Thanked 0 Times in 0 Posts

    Font peculiarity (WinXP/OutlookXP)

    I don't know if this is the right forum for this question, please let me know if it should be a different one, but ...

    I wrote quite a long email at work the other day, but for some reason the checking software they use stopped the email going (I know this because I copied myself in on the email when I sent it). I tried several times, rewording the bits I thought the software might be objecting to, but I couldn't get it to let it out. Eventually I thought I was going to have to print it out and retype it at home, which I didn't want to do because it's long, but as a last resort I copied the text into a Word document, changed the font to Wingdings and sent the doc as an attachment to myself at home (so I could just send it out from home when I got there), and this worked - it sent it and I heaved a sigh of relief.

    However, when I got home, opened the document and changed the font back to Arial - all I got was a whole load of boxes and nothing I have been able to think of will let me turn it back into readable text!

    What has happened here, please? Why won't the Wingdings text go back to normal text when I change the font back? And how do I retrieve my text?!! I really don't want to have to wait to Monday to get back to work and print the text so I can retype it and send it when I get home Monday evening!

    Help!!
    Beryl M


  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Font peculiarity (WinXP/OutlookXP)

    Why didn't you send the document "as is" as attachment, or in a zip file? Does the software read attachments?

    Anyway, try running the following macro:

    Sub Recover()
    Dim i As Long
    For i = 1 To ActiveDocument.Characters.Count
    If AscW(ActiveDocument.Characters(i)) < 0 Then
    ActiveDocument.Characters(i) = _
    ChrW(4096 + AscW(ActiveDocument.Characters(i)))
    End If
    Next i
    End Sub

    Of course, you should still change the font to Arial or another "normal" font.

  3. #3
    Silver Lounger
    Join Date
    Jun 2001
    Location
    Morden, Surrey, United Kingdom
    Posts
    1,838
    Thanks
    3
    Thanked 0 Times in 0 Posts

    Re: Font peculiarity (WinXP/OutlookXP)

    I did, and yes, apparently it does! In fact I was surprised the Wingdings trick worked - until I got home and found it didn't, of course.

    Thanks for this, I'll try it and see what happens! What does it do, by the way?
    Beryl M


  4. #4
    Silver Lounger
    Join Date
    Jun 2001
    Location
    Morden, Surrey, United Kingdom
    Posts
    1,838
    Thanks
    3
    Thanked 0 Times in 0 Posts

    Re: Font peculiarity (WinXP/OutlookXP)

    Yippee! Hans, you're a miracle-worker!

    What DID it do, though?!!
    Beryl M


  5. #5
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Font peculiarity (WinXP/OutlookXP)

    I don't know, I only wrote the code <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

    But seriously, I used Notepad to look at a document with text converted to Wingdings and noted that each character from the original was preceded by another character. This suggested that the text had been stored as Unicode, where each character is stored in 2 bytes instead of 1.
    I went back to Word, and used the AscW function to inspect the Unicode value of the characters in the text. These turned out to be the original ASCII values - 4096. So the macro adds 4096 to the Unicode values to restore the original characters. That's all...

  6. #6
    Silver Lounger
    Join Date
    Jun 2001
    Location
    Morden, Surrey, United Kingdom
    Posts
    1,838
    Thanks
    3
    Thanked 0 Times in 0 Posts

    Re: Font peculiarity (WinXP/OutlookXP)

    <img src=/S/confused.gif border=0 alt=confused width=15 height=20> That's all, the man says ...!! <img src=/S/confused3.gif border=0 alt=confused3 width=45 height=45>

    Well, I am so glad you are in the Lounge and willing to do your bit for us poor people who can't do it for ourselves!!

    Many thanks again!
    Beryl M


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •