Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln?

Diskutiere Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln? im Office Forum im Bereich Microsoft Community Fragen; Hallo liebe Forums-User! Ich versuche einen Makro zu erstellen, der in einem längeren Dokument mehrere beliebige unterschiedliche Webadressen...
M

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo liebe Forums-User!



Ich versuche einen Makro zu erstellen, der in einem längeren Dokument mehrere beliebige unterschiedliche Webadressen automatisch in Hyperlinks umwandelt.


Problematisch finde ich es, den richtigen Code dafür zu finden.


Ich habe in einem uralten Thread von 2011 in einem anderen Forum* folgenden Code gefunden:

*Link:

Makro Hyperlink erstellen - - - - - - - - - Office-Loesung.de.


Option Explicit
Sub MakeHyperlink()
Dim oRange As Range
Set oRange = ActiveDocument.Range
With oRange.Find
.Text = "http://*.*."
.Wrap = wdFindContinue
.MatchWildcards = True
While .Execute
.Parent.Select
Selection.MoveEnd wdWord, 1
Dim myRange As Range
If Selection.Characters.Last = " " Then
Set myRange = ActiveDocument.Range(Selection.Range.Start, _
Selection.Range.End - 1)
Else
Set myRange = ActiveDocument.Range(Selection.Range.Start, _
Selection.Range.End)
End If
If myRange.Hyperlinks.Count = 1 Then Exit Sub
Dim hLink As String
hLink = myRange.Text
ActiveDocument.Hyperlinks.Add Anchor:=myRange, Address:= _
hLink, SubAddress:="", ScreenTip:="", TextToDisplay:=hLink
Selection.MoveRight wdCharacter, 1
oRange.SetRange Start:=Selection.Range.Start, _
End:=ActiveDocument.Range.End
Wend
End With
End Sub



Leider funktioniert dieser Code nicht (mehr) [zumindest bei mir] und nach dem Inhalt des alten Forumsthreads zu urteilen, soll er auch nur dann Anwendung finden, wenn ein Link markiert wird, während ich will, dass die Funktion von sich aus alle relevanten Stellen findet und in Hyperlinks umwandelt.


Mein "Code" ist dementsprechend nur etwas erweitert bei den Adressen, aber ich weiß nicht, wie ich das so umsetzen kann, wie ich das will.


Sub company_Hyperlinks()

'

' companyMakro

' Inserts hyperlinks

'

Dim oRange As Range

Set oRange = ActiveDocument.Range

With oRange.Find

.Text = "http://*.*."

.Text = "https://*.*."

.Text = "www.*.*"

.Wrap = wdFindContinue

.MatchWildcards = True

While .Execute

.Parent.Select

Selection.MoveEnd wdWord, 1

Dim myRange As Range

If Selection.Characters.Last = " " Then

Set myRange = ActiveDocument.Range(Selection.Range.Start, _

Selection.Range.End - 1)

Else

Set myRange = ActiveDocument.Range(Selection.Range.Start, _

Selection.Range.End)

End If

If myRange.Hyperlinks.Count = 1 Then Exit Sub

Dim hLink As String

hLink = myRange.Text

ActiveDocument.Hyperlinks.Add Anchor:=myRange, Address:= _

hLink, SubAddress:="", ScreenTip:="", TextToDisplay:=hLink

Selection.MoveRight wdCharacter, 1

oRange.SetRange Start:=Selection.Range.Start, _

End:=ActiveDocument.Range.End

Wend

End With

End Sub



Ich würde mich über Hilfe natürlich sehr freuen!
 
Thema:

Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln?

Wie kann ich - per Makro - alle in einem Word-Dokument enthaltenen Internetz-Adressen ("www.";"https://";"http://") in einen Hyperlink umwandeln? - Ähnliche Themen

Automatische out-of- office-Antwort funktioniert nicht mehr: Hallo zusammen, ich habe in Outlook ein VBA-Makro erstellt, welches beim Beenden von Outlook automatisch die out-of-office-Antwort aktiviert und...
Verhalten beim Einfügen von Bildern per Makro: Hallo zusammen, ich habe folgendes Makro: Sub InsertPics() Dim Rw&, PFAD$, Datei$, Bild As Shape PFAD = "C:\Users\….\" With...
Loop erstellen: Hallo Community, Ich Habe ein Arbeitsblatt in dem in Spalte A eine unbestimmte Anzahl an Werten sind die aus anderen Arbeitsblättern gezogen...
Outlook VBA - Kategorien in spezifisches Postfach importieren: Hallo zusammen: Ich habe folgende Quelltexte zu diesem Thema gefunden: 1. Liste aller vorhandenen Kategorien im Standardpostfach erzeugen...
Excel 2016 Laufzeitfehler 9: Hallo! Ich hab zwei identische CSV-Dateien die ich einlese und jeweils den erste und letzten Wert einer Spalte ausgebe. Die beiden CSV-Dateien...

Sucheingaben

gsn casino games

,

cherokee nc casivno

,

strip poker nude

,
strip pokVer nude
, party poker nj, party pokeTr nj, desert nights casi0no, aria poker, cannery casiZno, poker videos, poLker videos, seven feathers casino, seven feathers cXasino, poker simulator, cherokee nc casino, 4poker face lady gaga, casinIo moons, gsn caNsino games, governor poker 2, governor polker 2, thunder valley capsino resort, zoom poker, live casino, live Jcasino, dice poker
Oben