MACRO to convert to hex

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

UnicodeConfusion - 01 Feb 2007 22:04 GMT

I need to convert ascii characters (including unicode) to 4 digit hexadecimal
representation. The alt+x (Selection.ToggleCharacterCode) functionality
works for a single character, but I am trying to write a macro to convert
every character in the file. I can't figure out how to parse through the
document...

any suggestions?

Stephanie

Reply to this Message

Helmut Weber - 02 Feb 2007 01:43 GMT

Hi Stephanie,

how about this one:

Sub Test2()
Dim rngChr As Range
Dim strTmp As String
For Each rngChr In ActiveDocument.Characters
strTmp = CStr(Hex(AscW(rngChr)))
' cause I could't get to work it with format
While Len(strTmp) < 4
strTmp = "0" & strTmp
Wend
MsgBox strTmp ' or your code
Next
End Sub

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

John Nurick - 02 Feb 2007 06:49 GMT

Hi Helmut

This might be faster:

...
Dim strTmp As String * 4
...
strTemp = Right("000" & Hex(AscW(rngChr)),4)
MsgBox ...

>Hi Stephanie,
>
[quoted text clipped - 12 lines]
>Next
>End Sub

--
John Nurick [Microsoft Access MVP]

Please respond in the newsgroup and not by email.

Reply to this Message

Helmut Weber - 02 Feb 2007 12:32 GMT

Hi John,

>This might be faster:
>
[quoted text clipped - 3 lines]
> strTemp = Right("000" & Hex(AscW(rngChr)),4)
> MsgBox ...

At least it looks better, and faster, too. :-)

But in fact, it isn't. :-(

For 70,000 characters, I get differences of some hundredths seconds.
Sometimes in favor of solution, sometimes in favor of mine.

Have a nice day.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

John Nurick - 02 Feb 2007 19:53 GMT

>> strTemp = Right("000" & Hex(AscW(rngChr)),4)

>At least it looks better, and faster, too. :-)
>
>But in fact, it isn't. :-(
>
>For 70,000 characters, I get differences of some hundredths seconds.
>Sometimes in favor of solution, sometimes in favor of mine.

Thanks for the feedback, Helmut.

--
John Nurick [Microsoft Access MVP]

Please respond in the newsgroup and not by email.

Reply to this Message