Hi Matt,
Have a go with the following code, which will run through all of the shapes
in your document and set the address cell to "" irrespective of the type of
hyperlink (let me know if they're not all the same):
Sub ResetLinkAddressCells()
Dim shp As Shape
Dim pag As Page
Dim i As Integer
For Each pag In ThisDocument.Pages
For Each shp In pag.Shapes
If shp.SectionExists(visSectionHyperlink, 0) = True Then
For i = 0 To shp.Section(visSectionHyperlink).Count - 1
shp.CellsSRC(visSectionHyperlink, i,
visHLinkAddress).FormulaU = ""
Next i
End If
Next shp
Next pag
End Sub
To run the above code try the following:
1) Create a copy of your document (just to ensure you're happy with the
results).
2) Press alt+F11 to open the VBA editting window (VBE).
3) In the VBE click Insert / Module and paste the code above into the new
blank area on the right.
4) Press F5 to run the procedure and then check the results in the
shapesheet (it should say "No Formula").
Hope that helps.
Best regards
John
John Goldsmith
www.visualSignals.co.uk
