Thema Datum  Von Nutzer Rating
Antwort
Rot In Word-Tabelle automatisiert Hyperlinks erzeugen
07.12.2022 12:04:25 Silvan
NotSolved
09.12.2022 09:28:19 Silvan
NotSolved
09.12.2022 13:16:16 Gast40999
NotSolved

Ansicht des Beitrags:
Von:
Silvan
Datum:
07.12.2022 12:04:25
Views:
84
Rating: Antwort:
  Ja
Thema:
In Word-Tabelle automatisiert Hyperlinks erzeugen

Wunderschönen guten Tag!

 

Lieber Leser:

Ich versuche aktuell in einem Word-Dokument mittels VBA automatisiert Hyperlinks, welche auf andere Dokumente Zeigen, zu erzeugen.

*VBA-Code zu unterst*

Zentral in einem Ordner sind alle Dokumente abgelegt, welche mittels Link geöffnet werden sollen.

Ich habe in meinem Word-Dokument eine Tabelle mit zwei Spalten. Die 1.te Spalte enthält der Name des Dokuments und die 2-te Spalte die Datei-Endung. Zmb. ".pdf" . Mittels Stringoperation führe ich die beiden "Strings" zusammen. Und dann erzeuge ich anhand dieses Strings einen Hyperlink.

Leider ist es nun so, dass dieser String Zeichen enthält, welche ich nicht verstehe, woher sie kommen. Und deshalb funktioniert dann auch der Link nicht.

Folgender nicht funktionierender Link wird erzeugt "Dokument1%0d%07.pdf%0d%07"

Ich bräuchte aber nur "Dokument1.pdf"

Ebenfalls wird beim Schreiben des Links in die Tabelle eine ungewollte leere Zeile in die Zelle eingefügt.

 

Woher kommen diese roten Zeichen?  Wie entferne ich diese?

Wie entferne ich die erzeugte Leerzeile in der Word-Tabelle?

-> Besten Dank für die Rückmeldungen.

 

Word 2019, Windows 10


Option Explicit

Sub InsertTextInCell()

Dim anzZeilen As Integer, i As Integer
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim myrange As Object
Dim myCell_1 As Object
Dim myCell_2 As Object


anzZeilen = ActiveDocument.Tables(1).Rows.Count 'Zählt die Zeilen der Tabelle 2

 If ActiveDocument.Tables.Count >= 1 Then
 
    For i = 2 To anzZeilen ' Schleife durch alle Zeilen, starte bei zweiter Zeile
 
      Set myCell_1 = ActiveDocument.Tables(1).Cell(Row:=i, Column:=1) 'Tabelle_2, Zeile i, 1 Spalte
      Text1 = myCell_1 'Inhalt der Zelle in String kopieren
      
      Set myCell_2 = ActiveDocument.Tables(1).Cell(Row:=i, Column:=2) 'Tabelle_2, Zeile i, 2 Spalte
      Text2 = myCell_2 'Inhalt der Zelle in String kopieren
      
      Text3 = Text1 & Text2 'Erzeuge zusammenhängender String

      Set myCell_1 = ActiveDocument.Tables(1).Cell(Row:=i, Column:=1) 'Tabelle_2, Zeile i, 1 Spalte
      'myCell_1 = Text3 ' kopiere erzeugten String in Zelle.
     
      Set myrange = ActiveDocument.Tables(1).Cell(Row:=i, Column:=1).Range
      'Erzeugt ein range-Objekt auf die Zelle, in der der Link stehen soll
      
        ChangeFileOpenDirectory "C:\Users\debsil\Desktop\"
        ActiveDocument.Hyperlinks.Add Anchor:=myrange, Address:= _
        Text3, SubAddress:="", ScreenTip:="Click to open document", TextToDisplay:=Text1

     Next i
 
 End If
 
End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot In Word-Tabelle automatisiert Hyperlinks erzeugen
07.12.2022 12:04:25 Silvan
NotSolved
09.12.2022 09:28:19 Silvan
NotSolved
09.12.2022 13:16:16 Gast40999
NotSolved