Hyperlinks aus Worddokument extrahieren [WIN10, VBA, WORD2010]

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

Office - Alles fürs Büro

Themen

Beiträge

Moderatoren

Letzter Beitrag

Microsoft Office

1624

6235

29. Feb 2024, 08:40

mudelinchen

cwenet

Beiträge gesamt: 1139

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

Aktuell

PDF / Print

callas software veröffentlicht pdfToolbox 15

| 20.03.2024

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.

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

Veranstaltungen

18.06.2024

So optimieren Sie Ihren LFP-Workflow

Online
Dienstag, 18. Juni 2024, 10.00 - 10.30 Uhr

Webinar

In diesen beiden kostenlose Webinaren erfahren Sie, wie Sie mit Hilfe von Enfocus Griffin und dem Impressed Workflow Server Ihren LFP-Workflows optimieren können. 18.06.2024: So optimieren Sie Ihre Prozesse mit Enfocus Griffin 02.07.2024: So sparen Sie Zeit und Geld mit Impressed Workflow Server in der LFP-Edition Griffin: Griffin ist das leistungsstarke Kraftpaket fuÌˆr das automatische Nesting im Großformatdruck. Dank eines ausgekluÌˆgelten, KI-basierten Nesting-Algorithmus können Sie mit Griffin Vorlagen schnell und effizient vernutzen – und das klappt auch mit unregelmäßigen Formen perfekt. Das spart Ihnen unzählige Stunden, die Sie bisher mit dem manuellen Nesting und Ausschießen verbracht haben. Einige wichtige Funktionen ≡ Anlage von Beschnittzugaben ≡ Automatische Erzeugung der Schnittkontur ≡ Erstellung von Strichcodes, Textmarkierungen und Registrierungen IWS LFP Edition: Komplizierte, kleinteilige Aufträge; alles sehr speziell; seit Jahren bewährte Prozesse – da können wir nichts standardisieren und automatisieren! Das sagen viele Großformatdrucker – aber stimmt das wirklich, ist dem tatsächlich so? Mit dem IWS LFP Edition automatisieren Sie Ihre Produktion von der Übernahme der Daten aus dem ERP-System bis zur Erzeugung der verschachtelten Druckform und der Übergabe an den RIP. Phoenix Core ist eine hochentwickelte KI-Technologie fuÌˆr die Planung und das Nesting von Druckerzeugnissen. Anders als herkömmliche Ausschießlösungen arbeitet Phoenix nicht auf Basis von Vorlagen, sondern erzeugt entsprechend der Maschinen- und Produktionsanforderungen druckfertige Layouts „on-the-fly“.

kostenlos

Organisator: Impressed GmbH

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