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

31. Mai 2019, 09:05
Beitrag # 1 von 1
Bewertung:
(17604 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

Aktuell

InDesign / Illustrator
04_ai_Polygon_Logo_300x300

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
25.05.2020 - 29.05.2020

Experten teilen mit Dir ihr Wissen

Online
Montag, 25. Mai 2020, 11.00 Uhr - Freitag, 29. Mai 2020, 17.45 Uhr

Seminar

Möchtest du deine Online-Reichweite vergrössern und deine digitale Präsenz optimieren? Dann könnte dich der #DigitalMarketingSummit vom 25. bis 29. Mai 2020 interessieren. An 10 Sessions zu verschiedenen Themen erhältst du je drei sofort umsetzbare Tipps. Montag 25.05.2020 Facebook für Unternehmen LinkedIn Profil und mehr Dienstag 26.05.2020 Twitter für Unternehmen Inhalt & Funktion der Webseite überprüfen Mittwoch 27.05.2020 E-Commerce (mit WooCommerce) Grundlagen für die Digitalisierung Donnerstag 28.05.2020 Google Search Ads (SEA) Google My Business (Maps Eintrag) Freitag 29.05.2020 Xing für Unternehmen Storytelling mit Instagram

Teilnahme Gratis!!
Anmeldung unter: https://digital.rogerruckstuhl.ch/digital-marketing-summit

Ja

Organisator: Roger Ruckstuhl Digital Marketing

Kontaktinformation: Eric Mächler, E-Mailinfo AT ericmaechler DOT com

https://digital.rogerruckstuhl.ch/digital-marketing-summit/

Digital Marketing Summit für Selbständige, Einzelunternehmer Dienstleister & Serviceanbieter
Veranstaltungen
02.06.2020 - 03.06.2020

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Dienstag, 02. Juni 2020, 08.30 Uhr - Mittwoch, 03. Juni 2020, 17.00 Uhr

Kurs

Dieser Basic-Kurs ist der perfekte Einstieg in die Welt von InDesign, dem vielseitigen Layout-Programm. Sie lernen, wie InDesign aufgebaut ist, wie saubere Dokumente erstellt werden und wie man korrekt mit gelieferten InDesign-Projekten umgeht.

Preis: CHF 1'400.–
Dauer: 2 Tage

Nein

Organisator: Digicomp Academy AG

Kontaktinformation: Isil Günalp, E-Mailisil.guenalp AT digicomp DOT ch

https://www.digicomp.ch/weiterbildung/software-anwendungs-trainings/adobe-trainings/desktop-publishing/adobe-indesign-cc/kurs-indesign-cc-basic

Neuste Foreneinträge


Dateien kopieren

Time Machine löscht keine alten Dateien mehr

Eizo vs. BenQ

Tabulator Tastendruck automatisch einfügen

zwei Seiten vertauschen

Color Fonts für QuarkXPress, welches Format müssen sie haben?

Grobes ICC-Profil aus wenigen gemessenen Farben

Formatierung von eingefügtem Text

Skalierungswert von Bildrahmen

Copy & Paste von Polnischen Texten aus PDFs -> Sonderzeichen gehen verloren
medienjobs