vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Word   |   VB-Versionen: VBA11.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 HerrmannBewertung:  Views:  210 
ohne HomepageSystem:  Vista, Win7, Win8, Win10kein 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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2020 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.