How to HTML encode characters within a cell

[hellothere4]

Hello, I am trying to HTML encode characters within a cell. I am soo frustrated because search results bring up nothing. please help!

 

[hellothere4]

OK I searched web and found this solution, but I have absolutely no idea how to incorporate it. What do I do after pasting it into VB?


Sub HTMLEncode()
Dim rng As Range
Dim i As Integer
Dim strValue As String

For Each rng In ActiveSheet.UsedRange.Cell<wbr>s
If Not rng.HasFormula Then
strValue = ""
For i = 1 To Len(rng.Value)
If isWebOK(Mid(rng.Value, i, 1)) Then
strValue = strValue & Mid(rng.Value, i, 1)
Else
strValue = strValue & "&#" & Format(Asc(Mid(rng.Value, i, 1)), "000") & ";"
End If
Next
rng.Value = strValue
End If
Next
End Sub

Function isWebOK(str As String)
isWebOK = (Asc(str) >= 32 And Asc(str) <= 123)
End Function

Basically all chars whose ascii code isn't between 32 and 123 will be converted to the HTML code. Don't forget to copy the sheet to a new one and run the code on the copy since you'll lose the original text.

 

[Scott Huish]

Hit ALT-F8 and run the HTMLEncode macro, although I will have a simpler code in a moment.

 

[Scott Huish]

I couldn't get that code to work and this is proving to be a little harder than I thought it would be. I or maybe someone else can get you some code.

 

[Scott Huish]

Sub test()
Dim c As Range, x As Long, d As Byte, e As String
For Each c In ActiveSheet.UsedRange
    If Not (c.HasFormula) Then
        e = c
        For x = 1 To Len(c)
            d = Asc(Mid(c, x, 1))
            If d > 31 And d < 124 Then e = Replace(e, Chr(d), "&#" & Format(d, "000") & ";")
        Next x
            c = e
    End If
Next
End Sub