[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: 886

31. Mai 2019, 09:05
Beitrag # 1 von 1
Bewertung:
(14708 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, etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen. pdf-icon Hier eine kleine Anleitung.

Veranstaltungen
18.07.2019

München
Donnerstag, 18. Juli 2019, 12.44 Uhr

Infotag

Bereits zum 2. Mal kommen auch in diesem Jahr Experten zum Infotag in München zusammen, um sich zu Themen rund um das richtige Planen und Erstellen von barrierefreien PDF-Inhalten und Webseiten auszutauschen. Hierbei spielt die Berücksichtigung gesetzlicher Anforderungen eine ebenso große Rolle, wie das Erstellen selbst. U.a. wird axaio software, zusammen mit seinem Partner Klaas Posselt von einmanncombo, vor Ort sein, um sein Wissen zum Generieren barrierefreier PDFs aus Adobe InDesign mit den Teilnehmern zu teilen. Schauen Sie in die Agenda, um mehr über weitere Referenten und Themen zu erfahren!

18.07.2019, 10 Uhr – 16:30 Uhr (Einlass ab 09:30 Uhr)
Preis: 199,00 €/brutto (inkl. Verpflegung)

Ja

Organisator: cmt Training

Kontaktinformation: E-Mailinfo AT cmt DOT de

https://www.cmt.de/Barrierefreiheit/Barrierefreiheit-Digital/2-Infotag-Barrierefreie-Webseiten-und-PDF-Dokumente-3946.html

2. Infotag: Barrierefreie Webseiten & PDF Dokumente
Veranstaltungen
17.08.2019 - 07.03.2020

3400 Burgdorf, BE
Samstag, 17. Aug. 2019, 08.30 Uhr - Samstag, 07. März 2020, 08.30 Uhr

Lehrgang

Absolventen/innen der Qualifikation Publisher Professional – Profil «Gestaltung» verfügen über Kompetenzen, welche ihnen gestatten, Projekte und Aufgaben der gestalterischen Umsetzung der Medienproduktion mit dem Einsatz der üblichen Publishing-Programme selbständig in Betrieben oder Organisationen zu übernehmen.

Ja

Organisator: PubliCollege GmbH

Kontaktinformation: Beat Kipfer, E-Mailinfo AT publicollege DOT ch

www.publicollege.ch

Publisher Professional-Profil Gestaltung