Word-Makro: Hyperlink-Umwandler

[Lirux]

Wer diesen Makro auch unter Word 2003 bzw. Word 2007 nutzen will, wobei "STRG + SHIFT + F9" unter Word 2007 nich funktioniert, muss einfach diesen Makro bearbeiten und diesen code

Sub UserForm_Activate()
On Error Resume Next
Dim aHyperlink
Dim i
TextBox1.Text = ""
If Application.Version <> "8.0" And Application.Version <> "9.0" Then
MsgBox ("Dieses Makro läuft nur unter Word 97 oder 2000!")
Me.Hide
Exit Sub
End If

mit diesem ersetzen

Sub UserForm_Activate()
On Error Resume Next
Dim aHyperlink
Dim i
TextBox1.Text = ""
'If Application.Version <> "8.0" And Application.Version <> "9.0" Then
'MsgBox ("Dieses Makro läuft nur unter Word 97 oder 2000!")
'Me.Hide
Exit Sub
'End If


Ich habe es getestet unter Word 2003 und Word 2007! Das Makro funktionieren auch dort! Es wurde wahrscheinlich schon vor Word 2003 programmiert :D

 

[Gaby Salvisberg]

Also muss man eigentlich nur den Versionscheck auskommentieren?

Gaby

 

[froeschli]

Also muss man eigentlich nur den Versionscheck auskommentieren?

Gaby

Den Versionscheck auszukommentieren scheint auszureichen. Obschon Lirux auch noch die entsprechende Fehlermeldung an den Benutzer ausgeblendet hat. Macht ja auch sinn.

Alternativ könnte ich mir vorstellen, dass eine Erweiterung des Codes im Sinne von ..

If Application.Version <> "8.0" And Application.Version <> "9.0" 
And Application.Version <> "10.0" And Application.Version <> "11.0" 
Then

...den Trick auch tun würde. (Oder sind wir schon bei Version 12 angelangt?)

Gruss froeschli