[GastForen Programme Office Microsoft Office Hyperlinks aus Worddokument extrahieren [WIN10, VBA, WORD2010]

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Hyperlinks aus Worddokument extrahieren [WIN10, VBA, WORD2010]

cwenet
Beiträge gesamt: 901

31. Mai 2019, 09:05
Beitrag # 1 von 1
Bewertung:
(17109 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Guten Tag,

mit folgenden Makro möchte ich alle Hyperlinks aus einem bestehenden Worddokument extrahieren:

Code
Sub extracthyper() 
'
' extracthyper Makro
'
'
Dim docCurrent As Document
Dim docNew As Document
Dim oLink As Hyperlink
Dim rng As Range
Application.ScreenUpdating = False
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
Set rng = docNew.Range
rng.Collapse
rng.InsertParagraph
rng.InsertAfter (oLink.Range & Chr(9) & oLink.Address)
Next
docNew.Activate
Application.ScreenUpdating = True
Application.ScreenRefresh
End Sub


Verwendet werden häufig Urls mit Anker:
http://meineurl/home.html#1234

Das Makro wirft dann das hier aus:
http://meineurl/home.html

Es fehlt also der Anker #1234

Wie kann ich diesen rüberretten? Gibt es noch weitere Zeichen, die gerettet werden müssen.

Mit der Bitte um Hilfe
Gruß
Christoph
X
Hier Klicken

Aktuell

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
30.01.2020

Ortsunabhängig
Donnerstag, 30. Jan. 2020, 10.00 - 10.30 Uhr

Webinar

In diesem ca. halbstündigen kostenlosen Webinar stellen wir Ihnen die Neuerungen in der Version 2019 von Enfocus PitStop Pro vor.

Ja

Organisator: Impressed GmbH

Kontaktinformation: Detlef Grimm, E-Mailschulungen AT impressed DOT de

https://www.impressed.de/schulung.php?c=sDetail&sid=249

Enfocus PitStop 2019
Veranstaltungen
03.02.2020 - 06.02.2020

Publisher Basic, Publisher Professional "Multimedia", Web Publisher

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Montag, 03. Feb. 2020, 17.45 Uhr - Donnerstag, 06. Feb. 2020, 20.00 Uhr

Infoabend

An unserem Infoabend zum «Publisher Basic», «Publisher Professional» und «Web Publisher» erfahren Sie, wie die Lehrgänge aufgebaut sind und durchgeführt werden. Ihr Fachspezialist zeigt Ihnen Weg, Etappen und Ziele Ihres gewünschten Lehrgangs auf. - Lerninhalt - Dauer - Zwischenprüfungen - Lernaufwand - Methodik - Lernziel - Zertifizierungsmöglichkeiten

Kostenloser Infoabend
Dauer 17.45 - 20 Uhr / ab 20 Uhr Apéro
044 447 21 74

Nein

Organisator: Isil Günalp

Kontaktinformation: Isil, E-Mailisil.guenalp AT outlook DOT com

https://www.digicomp.ch/events/infoabende/infoabend-fuer-software-anwender-innen/infoabend-publishing-lehrgaenge