Office: (Office 2019) Word Makro zum Erstellen von Hyperlinks

Ihr Lieben!
Leider komme ich mit meinen bloßen Kenntnissen der "Suchen&Ersetzen" Funktion und googlen nach einem Skript (s. u.) hier nicht mehr weiter:

Ich brauche eine Lösung, um in meinem Word Dokument für ein Wort "xyz" einen Hyperlink "www.beispiel.de/xyz" zu hinterlegen. Es muss dabei auch möglich sein, mit Platzhaltern nach "xyz" zu suchen und daraus automatisch den Link zu erzeugen, zB Suche nach "\x[0-9]{1;3}\y", sodass beispielsweise "x123z" gefunden wird und ein Link "www.beispiel.de/x123z" erzeugt und hinterlegt wird.
Falls es doch irgendwie mit der Suchen&Ersetzen Funktion ohne VBA geht, wäre mir das natürlich lieber. Hat jemand eine Idee?

Vielen Dank und schöne Grüße!

 

Hallo Trillerich,

zwar würde das Suchen schon per Dialogfeld funktionieren, aber das Ersetzen nicht. Dazu bräuchtest du VBA.

Wenn ich es richtig verstanden habe, dann willst du nach Zeichenfolgen suchen, die mit einem "x" beginnen und mit einem "y" enden, und dazwischen soll eine beliebige ein- bis dreistellige Ziffernfolge stehen.

Aus diesen Zeichenfolgen sollen Hyperlinks gemacht werden, die als anzuzeigenden Text die Fundstelle enthalten und als Sprungziel eine fixe Webadresse mit der gefundenen Zeichenfolge angehängt. Das ginge so:

Code:

Sub machHyLi()
Dim suchbereich As Range, fundbereich As Range

Set suchbereich = ActiveDocument.Range
    With suchbereich.Find
    .MatchWildcards = True
       .Text = "x[0-9]{1;3}y"
            Do While .Execute
                Set fundbereich = .Parent
                ActiveDocument.Hyperlinks.Add Anchor:=.Parent, Address:="http://www.beispiel.de/" & .Parent
                suchbereich.SetRange fundbereich.End + 1, ActiveDocument.Range.End
            Loop
    End With
End Sub

Falls dich missverstanden habe, mach bitte ein ausführlicheres Beispiel, am besten mit Musterdokument.

 

Lieber Gerhard,

ganz ganz herzlichen Dank!!! Das funktioniert wunderbar - ich bin total begeistert! (und entschuldige bitte meine Verwirrung mit den Variablen, Du hast dennoch genau verstanden, was ich gemeint habe!)

Nochmals ganz herzlichen Dank und schöne Grüße,
Trillerich

 

Hm, es geht auch ohne Makro.
Da ein Hyperlink ein Feld ist, muss das gehen, denke ich mir und siehe da...

Der Hyperlink muss dafür allerdings als Feld vorliegen, was ja beim Einfügen in ein Dokument nach Drücken von Enter - wenn die Einstellung nicht geändert wurde - automatisch umgewandelt wird. Erkennbar daran, dass das unterstrichen ist.
Den kopiert man, dann gehst du zu Suchen/Ersetzen und suchst nach deinen Zahlen beim Ersetzen schreibst du ^c rein, also den Inhalt der Zwischenablage.
Die Lösung mit dem Makro ist zweifelsohne ein wenig komfortabler ;)