Need to clean some lines in corrupt text (.vml) file so I can open workbook

[satheo]

I've got a workbook with employee info and the name column has commented pictures in it - it seems the xl\drawings\vmlDrawing1.vm<wbr style="font-size: 14px; font-family: 'Open Sans', sans-serif; line-height: 20px;">l file has been corrupted from me changing things around too much or something, resulting in conflicting relationship ID's for most of the images. Excel doesn't like this and attempts a repair upon opening the file which just removes all the comments. There are over 700 images so I can't really do this manually (though I suppose I will if I have to).

Basically I need to turn this:

v:fill o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15"   
o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15"
   o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15"
   o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15"
   o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15"
   o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15"
   o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15"
   o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15" o:relid="rId15"
   o:relid="rId15" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14" o:relid="rId14"
   o:relid="rId14" o:relid="rId14" o:relid="rId13" o:title="g" color2="#ffffe1"
   type="frame"

into:

v:fill o:relid="rId13" o:title="g" color2="#ffffe1"
   type="frame"

I'm not too good with VBA, but I think I'd just need something that deletes each o:relid expression unless that expression is immediately followed by an o:title (the last rId is the correct one). Any help is greatly appreciated.

 

[satheo]

I suppose I can do this manually, but is there a way to make sure this doesn't happen again? I have the file saved as a .xlsm, if that matters.

 

[satheo]

Ok another update, I have been able to separate the unwanted o:relid statements into their own cells just by using replace and with the add data from text feature. So now all I need is a macro to delete any cell unless it contains the phrase "o:title". Alternatively, deleting any cell with less than 18 characters would work too, if that is any easier.

 

[satheo]

Almost have it I think, I found the solution on microsoft support forums, looking to run the code posted by scadam towards the bottom of the page but not sure how?

edit - forgot link

 

[satheo]

I don't need any of the fancy drag and drop stuff, just need to figure out how to make the code work.