Guten Tag.

Ich habe hier ein kleines Programm. Es soll einen bestimmten Text in eine Textmarke in einem Word- Dokument kopieren.

Wenn ich es starte, kommt die Fehlermeldung "Benutzerdefinierter Typ nicht definiert."
Gemeint ist das Word.Document- Objekt. Das Documents- Objekt wird auch nicht erkannt.

Wäre schön, wenn mir jemand sagen könnte, was ich falsch gemacht habe.

Hier ist der Code: ("Dest" ist ein Pfad zu dem Word- Dokument in das der Text hinein kopiert werden soll)

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Public Sub WriteInBookmark(ByVal BookmarkName As String, _
ByVal BookmarkText As String, ByVal Dest As String)
 
    Dim Dok As Word.Document
    Set Dok = Documents.Add(Dest)
    
    'Schreibt einen neuen Wert in ein vorhandenes Bookmark
    If Dok.Bookmarks.Exists(BookmarkName) Then
        
        Dim r As Range
        Set r = Dok.Bookmarks(BookmarkName).Range
        r.Text = BookmarkText
        
        Dok.Bookmarks.Add BookmarkName, r
    
    End If
           
End Sub