Makro alle hyperlinks innerhalb eines Word dokume

Computer: Software & Programmierung Visual Basic
#1

Ich brauche dringend ein makro mir dem man alle hyperlinks in einem word dokument öffnen kann. kann mir da wer helfen???

#2

Ich brauche dringend ein makro mir dem man alle hyperlinks in
einem word dokument öffnen kann. kann mir da wer helfen???

Hallo Nobi,

die Anfrageform Anrede, Frage, Gruß, Name ist netter *find*

Sind das Hyperlinks die auf Webadressen zielen?

Gruß
Reinhard

#3

Hallo Reinhard,

ja genau die hyperlinks bestehen aus webadressen… kannst du mir da weiter helfen??

Lieben gruß

nobi

#4

ja genau die hyperlinks bestehen aus webadressen… kannst du
mir da weiter helfen??

hallo Nobi,

kommste mit der Benutzung eines makros klar?

in Modul1:

Option Explicit
'
Sub Aufrufen()
Dim WL As Integer
With ThisDocument.Hyperlinks
 ReDim appIE(.Count)
 For WL = 1 To .Count
 Set appIE(WL) = CreateObject("InternetExplorer.Application")
 appIE(WL).Visible = True
 appIE(WL).navigate .Item(WL).Address
 Set appIE(WL) = Nothing
 Next WL
End With
End Sub

Gruß
Reinhard

#5

also das ist in einer tabelle aufgelistet hier… und nun bekomme ich die meldung das ich eine zeilennummer,eine spriungmarke, eine anweisung oder ein anweisungsende brauche…

#6

also das ist in einer tabelle aufgelistet hier… und nun
bekomme ich die meldung das ich eine zeilennummer,eine
spriungmarke, eine anweisung oder ein anweisungsende
brauche…

Hallo Nobi,

sagt der Debugger das? Ist eine Codezeile markiert?

Ich hatte es mit paar hyperlinks in einem Dokument getestet mit Word2000.

bastel mal eine Beispieldoc und lade sie hoch mit FAQ:2606

Gruß
Reinhard

#7

ja das sagt der debugger… er makiert schon die erste zeile!

 Option Explicit
'
Sub Aufrufen()
Dim WL As Integer
With ThisDocument.Hyperlinks
 ReDim appIE(.Count)
 For WL = 1 To .Count
 Set appIE(WL) =
CreateObject ("InternetExplorer.Application")
 appIE(WL).Visible = True
 appIE(WL).navigate .Item(WL).Address
 Set appIE(WL) = Nothing
 Next WL
End With
End Sub
#8

ja das sagt der debugger… er makiert schon die erste zeile!

Hallo Nobi,

ich nehme an er hat vorher auch schon Codestellen grün markiert, z.B. „Set appIE(WL) =“

Nicht so:

Set appIE(WL) =
CreateObject („InternetExplorer.Application“)

sondern so:

Set appIE(WL) = CreateObject(„InternetExplorer.Application“)

Gruß
Reinhard

#9

ich brauche dennoch eine spring marke =( wie gebe ich das ein?? und wo vor allem?

#10

ich brauche dennoch eine spring marke =( wie gebe ich das
ein?? und wo vor allem?

Hallo Nobi,

was meinst du mit „spring marke“? Wofür brauchst du die?

In Vba-Codes gibt es Sprungmarken, hier aber nicht nötig bei diesem Code.

Gruß
Reinhard

#11

scheinbar brauche ich eine sprungmarke da die hyperlinks in einer tabelle in word aufgebaut sind!