MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft PowerPoint
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.06.2019, 09:07   #1
JR²
MOF Profi
MOF Profi
Standard Powerpoint 2010 - Hyperlinks: Suchen und Ersetzen

Hi Folks,

In einer PowerPoint von mir gibt es eine sehr große Zahl von Hyperlinks ins Internet. Ein Teil des Pfades ist eine Versionsnummer, z.B. 3.4.

Beispiel: http://www.xxx.de/hilfe/thema/3.4/abc.html

Wenn eine neue Version im Internet existiert, möchte ich alle Hyperlinks auf die neue Version 3.5 ändern.

Wie kann ich das tun, ohne jeden einzelnen Hyperlink zu ändern?
Gibt es eine Möglichkeit, dies mit Suchen und Ersetzen durchzuführen?
Oder fällt euch eine andere gute Möglichkeit ein?

Gruß,
JR²
JR² ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2019, 21:58   #2
ThomasPromb
Neuer Benutzer
Neuer Benutzer
Standard ?

, ,
:


2018
ThomasPromb ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.06.2019, 08:41   #3
JR²
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Thomas,

was willst Du mir damit sagen?

Gruß, JR²
JR² ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.06.2019, 16:21   #4
Fennek11
MOF Profi
MOF Profi
Standard

Hallo,

teste mal

Code:

Sub F_en()
Dim Hy As Hyperlink
Alt = "3.4"
Neu = "3.5"
For Each Sld In ActivePresentation.Slides

    For Each Hy In Sld.Hyperlinks
        Hy.Address = Replace(Hy.Address, Alt, Neu)
        Hy.TextToDisplay = Hy.Address
    Next Hy
    
Next Sld
End Sub
mfg
Fennek11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.06.2019, 16:45   #5
JR²
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Habe ich gemacht.

Wenn ich die Zeile

Zitat:

Hy.TextToDisplay = Hy.Address

auskommentiere, macht er das, was ich möchte.

Super, Danke,
JR²

Geändert von JR² (17.06.2019 um 16:47 Uhr).
JR² ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2019, 10:14   #6
JR²
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Gibt es auch noch eine Möglichkeit, den Link auf "OK" / "broken" zu testen, ob der Link also funktioniert oder den Fehler 404 erzeugt?

Gruß,
JR²
JR² ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2019, 10:38   #7
JR²
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Link testen habe ich jetzt gefunden.

Code:

Public Function GetLinkStatus(ByVal strUrl As String) As Boolean
    Dim objXMLHTTP As Object
    If Not Left$(strUrl, 7) = "http://" Then strUrl = "http://" & strUrl
    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")
    On Error Resume Next
    objXMLHTTP.Open "GET", strUrl, False
    objXMLHTTP.Send
    GetLinkStatus = objXMLHTTP.Status = 200
    Set objXMLHTTP = Nothing
    On Error GoTo 0
End Function
JR² ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2019, 10:44   #8
JR²
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Aber ich war verfrüht mit der Erfolgsmeldung, zumindest bei mir.

Hinter meinem Beispiellink geht es immer noch weiter:
#htm/yyy.htm%3FTocPath%3Weiter%7CTest%2520Pro
usw.

Das "Hy.Address" liefert aber nur alles bis zum #.
Wie komme ich an den vollständigen Text des Hyperlinks?

Gruß,
JR²

Geändert von JR² (18.06.2019 um 10:47 Uhr). Grund: Link wurde nicht korrekt / vollständig dargestellt
JR² ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2019, 10:50   #9
JR²
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Bzw. das Ersetzen funktioniert, aber wenn ich den Link auf "broken" testen will, brauche ich den vollständigen Link.
JR² ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2019, 11:54   #10
Fennek11
MOF Profi
MOF Profi
Standard

Hallo,

ohne Beispieldatei geht da wohl nichts, aber ich mag es nicht, wenn nach einer eher allgemeinen Frage schwierige Details nachgeschoben werden. Der Ausgangspost MUSS das Problem ordentlich darstellen.

mfg
Fennek11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.06.2019, 12:33   #11
JR²
Threadstarter Threadstarter
MOF Profi
MOF Profi
Standard

Ich stimme Dir zu. Ich hätte wenn dann eine neue Frage stellen sollen.
Sorry.
JR² ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:01 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.