Word: Wie sind Links aufgebaut?

Computer: Software & Programmierung Office Software
1

Hallo miteinander!

Ich hoffe, mir kann irgendjemand helfen:

Wie sind Links in den Word-Dokumenten aufgebaut?

Es ist wichtig, dass ich automatisch die Links aus einem Word-Dokument rausschreiben kann…
Im HTML ist das ja nicht so schwer zu bestimmen, das sind die mit …
Gibt es eine Möglichkeit, das automatisch raus zu schreiben?

Gruss und jetzt schon mal danke für die Hilfe…
Sandy

2

Wie sind Links in den Word-Dokumenten aufgebaut?
Es ist wichtig, dass ich automatisch die Links aus einem
Word-Dokument rausschreiben kann…
Im HTML ist das ja nicht so schwer zu bestimmen, das sind die
mit …
Gibt es eine Möglichkeit, das automatisch raus zu schreiben?

Hallo Sandy,

kommst du mit dem Vba-Code klar?
k.A. warum bei TextToDisplay nix angezeigt wird :frowning:

In Modul „ThisDocument“ des Dokuments.

Option Explicit
'
Private Sub CommandButton1\_Click()
Dim H As Hyperlink, doc As Document, docNeu As Document, Zei As Long
Set doc = ThisDocument
Documents.Add
Set docNeu = ActiveDocument
Selection.TypeParagraph
Selection.TypeText Text:="Hyperlinks im Dokument " & doc.Name & " " & Date & " " & Time
Selection.TypeParagraph
Selection.TypeParagraph
docNeu.Tables.Add Range:=Selection.Range, NumRows:=doc.Hyperlinks.Count + 1, \_
 NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, \_
 AutoFitBehavior:=wdAutoFitFixed
docNeu.Tables(1).Cell(1, 1).Range.Text = "Name"
docNeu.Tables(1).Cell(1, 2).Range.Text = "Adresse"
docNeu.Tables(1).Cell(1, 3).Range.Text = "Unteradresse"
docNeu.Tables(1).Cell(1, 4).Range.Text = "Angezeigter Text"
With docNeu.Tables(1)
 For Zei = 1 To doc.Hyperlinks.Count
 .Cell(Zei + 1, 1).Range.Text = doc.Hyperlinks(Zei).Name
 .Cell(Zei + 1, 2).Range.Text = doc.Hyperlinks(Zei).Address
 .Cell(Zei + 1, 3).Range.Text = doc.Hyperlinks(Zei).SubAddress
 .Cell(Zei + 1, 4).Range.Text = doc.Hyperlinks(Zei).TextToDisplay
 Next Zei
End With
End Sub

Gruß
Reinhard

3

Hallo!
Das sieht schon mal richtig gut aus!
Danke!
Aber meinst du, gibt es da auch eine Möglichkeit zum z.B. eine ganze Ordnerstruktur mit Word-Dateien automatisch zu durchsuchen?

Gruss

4

Hi _ordinary,

Geht mit VBA. Die grobe Struktur:

  • erst mit Files() (in höheren Versionen mit dem FSO) die Dateien auflisten und in einer äußeren Schleife öffnen
  • mit ActiveDocument.Hyperlinks(n) die Hyperlinks in einer inneren Schleife auslesen.

Gruß

M.

5

Das sieht schon mal richtig gut aus!
Aber meinst du, gibt es da auch eine Möglichkeit zum z.B. eine
ganze Ordnerstruktur mit Word-Dateien automatisch zu
durchsuchen?

Hallo Ordinary,

wenn es um Versionen unter 2007 geht, dann schau mal im VB-Editor in die Hilfe und suche nach Filesearch, Execute, Searchsubfolder(s)…
Da sind Codeschnipsel für die äußere Schleife die Markus meinte.
Mit Open und close kannst du dann in der Schleife alle gefundenen Dateien erst öffnen, auslesen, dann schließen.

Jede geöffnete Datei wird durchs Öffnen zu Activedocument.

Gruß
REinhard

6

OT Texttodisplay
Hallo Markus,

bei meinem Code hatte ich zu Testzwecken paar Hyperlinks erzeugt. Bei einem habe ich manuell bei „anzuzeigender Text“ etwas anderes als den Link eingetragen, es wird auch so angezeigt im Dokument.
Aber mit TexttoDisplay wird das nicht ausgelesen im Code.

Weißt du wie man das ändern kann?

(Word 2000)

Gruß
Reinhard

7

Hallo miteinander!
Danke viel mal für die Antwort…
Ich werde das morgen nochmals genauer anschauen!

Bei Problemen würde ich mich nochmals melden!!!

Danke danke! Aber auf die Kürze sieht’s schon mal fabelhaft aus!

Gruss,
Sandy

8

Hallo Reinhard,

nein, weiß ich nicht. Denn:
wenn ich unter Word2003 einem Hyperlink manuell einen anzuzeigenden Text mitgebe, hat er ihn bei der nächsten Öffnung des Formatierungsdialogs verloren. Warum auch immer. Ich hab’ keinen Schimmer. Ich weiß nur, daß .TextToDisplay sich korrekt verhält.

Gruß

Markus