vb@rchiv · Tipps & Tricks · Makro zum Ändern von Hyperlinks in normalen Text (Word 2007, VBA)

Rubrik: Word | VB-Versionen: VBA

11.04.20

Makro zum Ändern von Hyperlinks in normalen Text (Word 2007, VBA) Das gezeigte Makro ändert in Word gespeicherte Hyperlinks in 'einfachen' Text.
Autor: Dietrich Herrmann	Bewertung:	Views: 1.655
ohne Homepage	System: Win7, Win8, Win10, Win11	kein Beispielprojekt

In meinem Word-Dokument hate ich eine gewisse Menge von Hyperlinks in einer Tabelle. Diese werden im Word als Feldfunktion gespeichert. Um aus diesen Feldfunktion-Definitionen die URL 'heraus zu holen' und als Text zur Verfügung zu haben, habe ich dieses Makro geschrieben.

Beispiel:
In Spalte 1 der Tabelle die Hyperlinks der Form
{HYPERLINK "https://www.vbarchiv.net/tipps/tipp_2501-ndern-von-control-eigenschaften-in-der-runtime.html"}

In Spalte 2 der Tabelle werden gespeichert die Links als Text
https://www.vbarchiv.net/tipps/tipp_2501-ndern-von-control-eigenschaften-in-der-runtime.html

Code:

Sub chTab()
  ' Aufruf vom Wandlungsprogramm, Parameter: Tabellennummer
  hyperlinksToText 1
End Sub

' Ändern von Hyperlinks in einer Tabelle in einfachen Text
' Hyperlinks in Zelle 1 der Tabelle
' eine freie Spalte 2 für die Aufnahme der Texte
Public Sub hyperlinksToText(tb As Integer)
  Dim cellText As String, li As String, i, i1, i2 As Integer
  rowAnz = ActiveDocument.Tables(tb).Rows.Count
  For i = 1 To rowAnz
    With ActiveDocument.Tables(tb)
      .Rows(i).Cells(1).Select
      cellText = selection.Text
      i1 = InStr(cellText, Chr(34)) + 1
      i2 = InStr(i1, cellText, Chr(34))
      li = Mid(cellText, i1, i2 - i1)
      .Rows(i).Cells(2).Select
      selection.InsertAfter li
    End With
  Next i
  selection.StartOf Unit:=wdTable
End Sub