Word Makros: Wieso geht das nicht ? Fehler 424

[Sam751]

Sub Makro1()
'
' Makro1 Makro
'
'
    Dim a As String
    a = My.Computer.FileSystem.ReadAllText("C:\ems.txt")
    Selection.TypeText Text:="Hallo"
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    ChangeFileOpenDirectory "C:\Users\krause\AppData\Roaming\Microsoft\Word\"
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "HYPERLINK", SubAddress:="", ScreenTip:="", TextToDisplay:="Hallo"
End Sub

Hallo Dieses Makro will nicht funktionieren und gibt den folgenden Code aus: "Laufzeitfehler 424: Objekt erforderlich".

Woran liegt das ? Falls mit dem Objekt die emx.txt gemeint ist: Diese ist an der Stelle vorhanden und hat auch einen Inhalt.

[tinof]

Hallo,

ich denke eher, dass Selection gemeint ist. Ist wirklich ein Text beim Aufruf markiert? Wozu wird deine Variable a eigentlich verwendet?


Grüße
Tino