|
Ich habe in einem Office 365 Word-Dokument mehrere hundert Hyperlinks. Hier ein Adressenbeispiel: https://www.the-shout.com/read/sermon-630728v#p56.
Nun möchte ich alle Hyperlinks mit einem VBA Makro abändern, so dass nach der Änderung die Adresse wie folgt aussieht: https://www.the-shout.com/read/sermon-630728v?autoplay=o#p56. Meine Idee war nun, in der Adresszeile nach # zu suchen und wenn gefunden, dann durch ?autoplay=o# zu ersetzen.
Mein Problem ist nun, wenn ich im Makro debugge, stelle ich fest, das die eingelesene Adresse nie den letzten Teil ab # beinhaltet. Also im Beispiel wird nur https://www.the-shout.com/read/sermon-630728v eingelesen. Somit wird auch nie etwas geändert.
Hier mein Coding:
Sub LinkBearbeiten()
Dim doc As Word.Document
Dim hlk As Word.Hyperlink
Dim strAddress As String
Dim zaehler As Integer
Const such As String = "#"
Set doc = ActiveDocument
For Each hlk In doc.Hyperlinks
'Alte Adresse auslesen
strAddress = hlk.Address
If InStr(strAddress, such) > 0 Then
'Neue Adresse setzen
hlk.Address = Replace(strAddress, "#", "?autoplay=o#")
zaehler = zaehler + 1
End If
Next hlk
End Sub
Kann mir da jemand helfen?
|