Microsoft Office Forums - View Single Post

excelledsoftware · 04-10-2014, 10:21 PM

Hi everyone,

So I have some code that takes all HTML tags out of a memo like string of text. Here is the interesting thing. This code works fine one workbook but will not work at all on a different workbook. The only difference I have between the 2 is option explicit.

Here is the code that I use. Again this has worked for other workbooks.

Code:

Sub StripOutHTML ()
    'Takes out HTML elements of a text string
    Dim CheckRow as integer
    Dim TempString as string
    Dim WS as worksheet
    Dim WB as workbook
    
        Set WB = ThisWorkbook
        Set WS = WB.Worksheets("Sheet1")
        For CheckRow = 2 to 10
            WS.Range("A" & CheckRow).replace "<li>", "- "
            WS.Range("A" & CheckRow).replace "<*>", " "
            WS.Range("A" & CheckRow).replace "*>", " "
            WS.Range("A" & CheckRow).replace "<*>", " "
            WS.Range("A" & CheckRow).replace "&*;", " "
            TempString = WS.Range("A" & CheckRow).value
            WS.Range("A" & CheckRow).value = Trim(TempString)
        Next CheckRow
    
       msgbox "Done"
End Sub

Has anybody ever experienced the replace function to have problems. If I use a worksheetfunction.substitute it also works but does not support wildcards.

Thanks in advance.