Changes from Visio 2010 to 2013 - highlighting entire line drawing document with text fields and changing line colors

Question

I work with very large visio drawings that are basically line drawings (network drawings) with text boxes indicating equipment location. We work in future and current drawings, future has colored lines indicating connection type and objects have text in
them that indicate if they are new by having red text. Current drawings have all black lines and black text.
Here's my dilemma, previously I would Ctrl+A and then change all text and all lines to black in Visio 2010, everything would change no problem. In Visio 2013 every text box now get's a black border around it, I've tried selecting all text boxes at once
and trying to remove the line but no luck.
These drawings are HUGE and it takes me a good hour just to change between future and current where previously it took me seconds. I have many coworkers and we're all experiencing he same issue with the move to 2013.
Is there a macro or some vb script I can utilize to select all text boxes and remove the black outline?
Hope you can help!

Answer 1

try this macro
Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !