Thema Datum  Von Nutzer Rating
Antwort
27.02.2024 10:39:00 PEMO
NotSolved
27.02.2024 10:52:33 Mase
NotSolved
Rot Hyperlinks in WORD mit VBA Makro bearbeiten
27.02.2024 17:18:20 Gast36236
Solved

Ansicht des Beitrags:
Von:
Gast36236
Datum:
27.02.2024 17:18:20
Views:
98
Rating: Antwort:
 Nein
Thema:
Hyperlinks in WORD mit VBA Makro bearbeiten

Danke Dir, so hat es funktioniert:
 

Sub LinkBearbeiten()
'
' LinkBearbeiten Makro
'
'
Dim doc As Word.Document
    Dim hlk As Word.Hyperlink
    Dim strAddress As String
    Dim strSubAdress As String
    Dim zaehler As Integer
    Dim AText As String
    Dim PText As String
    Dim NewAdress As String
    Const such As String = "W-"
    
    Set doc = ActiveDocument
    
    For Each hlk In doc.Hyperlinks
        'Anzeigetext auslesen
        AText = hlk.TextToDisplay
        'Nur wenn Anzeigetext W- beinhaltet
        If InStr(AText, such) > 0 Then
            'Alte Adresse auslesen
            strAddress = hlk.Address
            'SubAdresse auslesen
            strSubAdress = hlk.SubAddress
            'Neue Adresse setzen
            NewAdress = strAddress & "?autoplay=o"
            hlk.Address = NewAdress
            zaehler = zaehler + 1
        End If
    Next hlk
    MsgBox (zaehler & " Hyperlinks bearbeitet")
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
27.02.2024 10:39:00 PEMO
NotSolved
27.02.2024 10:52:33 Mase
NotSolved
Rot Hyperlinks in WORD mit VBA Makro bearbeiten
27.02.2024 17:18:20 Gast36236
Solved