in reply to Perl Word and Wingdings

I assume this is a successor of 730863 (Just to link it).

Just an idea on this. Try to open the Word document in an Hexeditor and check what values are stored for the characters.

My test with a Word Document (Word 2003 SP3), showed up like this (at address 0x0a00):

0000a00: 4800 6100 6c00 6c00 6f00 3a00 20f0 21f0  H.a.l.l.o.:. .!.
0000a10: 0d00 0000 0000 0000 0000 0000 0000 0000  ................

[download]

The Document contained the String "Hallo: !" with "Hallo: " formatted with font "Bitstream Vera Sans Mono" and the "!" formatted with "Wingdings".

Maybe this helps you with your search.

Replies are listed 'Best First'.
Re^2: Perl Word and Wingdings
by merrymonk (Hermit) on Dec 31, 2008 at 14:52 UTC
    Thank you for this reply. You are correct this is a continuation of 730863.
    I have now pursued the idea of using a hex dump tool to get the value of wingding characters. I must say that ‘graff’ also suggest this approach.
    Looking at your results and what I found using the HexTookit (from the same stable as the hex dump tool od) I came to the conclusion the hex value for the ‘pencil’ (the ! using the wingding font) is 21F0.
    Therefore I used the following Perl lines (2BF0 is an wingding envelope that started as a + character) on a Word document that contained a Wingding ‘pencil’.
    $search-> {Text} = "\x{21F0}";
$replace-> {Text} ="\x{2BF0}";
$exec_res = $search-> Execute({Replace => wdReplaceAll});

    [download]
    Sadly this failed. Has any wise monk any idea of what I should try next?
[reply]
[d/l]

In Section Seekers of Perl Wisdom