Hallo Winfried,
"Winfried Sonntag [MVP]" schrieb
[http://www.experts-exchange.com/Microsoft/Applications/Microsoft_Visio/Q_23965754.html]
Die Links zu Experts-exchange.com muß man immer von
Google aus aufrufen, erst dann kann man die Lösung ganz
unten sehen. In diesem Link sieht man nur die Frage des OP.
danke für den Hinweis. Drum hier die beiden von "scott" auf experts-exchange.com zur Verfügung gestellten Makros (eine lange, eine kurze Variante):
Sub ChangeHyperlinks()
' change all hyperlinks on all shapes on all pages that start with
' "C:\Documents and Settings\" to start with "\\server1\"
Dim pg As Page
Dim shp As Shape
Dim hl As Hyperlink
For Each pg In ActiveDocument.Pages
For Each shp In pg.Shapes
For Each hl In shp.Hyperlinks
shp.CellsSRC(visSectionHyperlink, hl.Row, visHLinkAddress).FormulaU = _
Replace(shp.CellsSRC(visSectionHyperlink, hl.Row, visHLinkAddress).FormulaU, _
"C:\Documents and Settings\", "\\server1\")
Next
Next
Next
End Sub
Sub ChangeHyperlinks()
' change all hyperlinks on all shapes on all pages that start with
' "C:\Documents and Settings\" to start with "\\server1\"
Dim pg As Page
Dim shp As Shape
Dim hl As Hyperlink
For Each pg In ActiveDocument.Pages
For Each shp In pg.Shapes
For Each hl In shp.Hyperlinks
hl.Address = Replace(hl.Address, "C:\Documents and Settings\", "\\server1\")
Next
Next
Next
End Sub
Viele Grüße
Lisa [MS MVP Word]
