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)
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:
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