VBA Find & Replace - Escape characters for quotes?

[essential_clix]

Hi guys,

I'm trying to use a macro to search, find & replace some HTML throughout 500+ cells using the following code:

Sub ReplaceText6() 
    Dim a As Range 
    For Each a In ActiveSheet.UsedRange 
        a = Replace(a, "<table border="5"", "<table border="0"") 
    Next 
End Sub 

It gives me the compile error. What are the escape characters for VBA in this situation? Am I even going about this the right way?

Thanks and kindest regards,
EC

[royUK]

Try deleting the a, out of the brackest

[royUK]

I don't think Excel likes the string you are looking for. Can't you edit the HTML in FrontPage?

You should use something like this, but the speech marks seem to confuse the Method

Worksheets("Sheet1").Cells.Replace _ 
What:="<table border="5"", Replacement:=""<table border="0""", _ 
SearchOrder:=xlByColumns, MatchCase:=True 

[essential_clix]

Hi, I've tried removing the a from the brackets, with no avail. I'm not quite sure how to use/implement the code in your second post though.

I could use an html editor, but theres 500+ cells that all contain the same code that needs to be replaced, so it would take a very long time and would be incredibly mundane. I know how to export the cell data (html) into individual .html files, so I could use an html editor that way, but then these files would have to somehow be imported back into the cells they originated form. I have no idea how to accomplish that...

Any other ideas/suggestions?

[Andy Pope]

Hi,

You just need enough quotes in order for the parser to keep the ones you are interested in

Sub ReplaceText6() 
    Dim a As Range 
    For Each a In ActiveSheet.UsedRange 
        a = Replace(a, "<table border=""5""", "<table border=""0""") 
    Next 
     
End Sub