Laufzeitfehler 4605

Diese Methode oder Eigenschaft ist nicht verfügbar, weil kein Dokumentfenster aktiv ist

Dim objWD As Object
Dim strMyDoc As String
strMyDoc = Application.GetOpenFilename("Word Dateien (*.doc),*.doc")
If strMyDoc = "Falsch" Then Exit Sub
Set objWD = GetObject(strMyDoc)
With objWD
.Range.Copy
.Close False '

Dieses Problem kann auftreten, wenn Sie kein Dokument geöffnet haben, oder wenn das angegebene  _
Dokument nicht geöffnet ist. Word kann nur die Eigenschaften eines geöffneten (oder sichtbaren) Dokuments ändern.
Hinweis: Diese Fehlermeldungen können auch auftreten, wenn Sie das Dokument öffnen, wobei die Eigenschaft Sichtbar auf Falsch gesetzt ist.