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 2 der Tabelle werden gespeichert die Links als Text 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 Dieser Tipp wurde bereits 2.224 mal aufgerufen.
Anzeige
![]() ![]() ![]() 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. |
Neu! sevPopUp 2.0 ![]() Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Tipp des Monats ![]() Dieter Otter Druckposition in mm festlegen Mit einer kleinen Umrechnungsfunktion lässt sich die Druckposition auch in mm bestimmten. TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR... |
||||||||||||||||
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. |