Hyperlink Adressen per VBA ändern

09/04/2008 - 08:01 von Marcel Frank | Report spam
Hallo zusammen
Wir verwenden (Word-)Dokumente mit Hyperlinks, welche auf weitere Dokumente
verweisen, die auf dem Intranet-Server abgelegt sind.
Nun haben wir unseren Intranet-Server umgestellt --> alle Dokumente haben
eine neue Adresse.
Ich möchte nun in den Word Dokumenten per VBA alle Hyperlinks suchen und
durch die neue Intranet-Adresse ersetzen.

Zuerst habe ich es mit "ShowFieldCodes" und Suchen / Ersetzen versucht. Der
Hyperlink funktioniert dann nicht mehr obwohl der Pfad korrekt ist.

Jetzt versuche ich es mit:
strHypAlt = Documents(1).Hyperlinks(1).Address
strHypNeu = Replace(strHypAlt, strSuchAdresse, strErsetzAdresse)

Wie kann ich nun die neue Adresse wieder dem Hyperlinks(1) zuordnen?

Vielen Dank für eure Unterstützung
Gruss Marcel
 

Lesen sie die antworten

#1 Thomas Gahler
09/04/2008 - 12:54 | Warnen spam
Hallo Marcel


Zuerst habe ich es mit "ShowFieldCodes" und Suchen / Ersetzen versucht.
Der
Hyperlink funktioniert dann nicht mehr obwohl der Pfad korrekt ist.


Suchen/Ersetzen geht schon, du musst anschliessend die Felder aktualisieren
(Ctrl+A, F9).

Jetzt versuche ich es mit:
strHypAlt = Documents(1).Hyperlinks(1).Address
strHypNeu = Replace(strHypAlt, strSuchAdresse, strErsetzAdresse)

Wie kann ich nun die neue Adresse wieder dem Hyperlinks(1) zuordnen?


So wie du ausgelesen hast ;-))

- Documents(1).Hyperlinks(1).Address = strHypNeu

Aber so wird nur der erste Hyperlink bearbeitet. Mit dem nachstehenden Makro
werden alle Hyperlinks bearbeitet.



Sub Demo()
Dim doc As Word.Document
Dim hlk As Word.Hyperlink
Dim strAddress As String

Set doc = ActiveDocument

For Each hlk In doc.Hyperlinks
'Alte Adresse auslesen
strAddress = hlk.Address

'Hier selber richtig bearbeiten
strAddress = "http://www.sbb.ch"

'Neue Adresse setzen
hlk.Address = strAddress
Next hlk
End Sub


Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)



- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen