Hallo,

ich bin VBA-Anfänger und sitze nun schon seit gestern an einem Problem, für das ich die Lösung einfach nicht finde.

Ich möchte aus Excel ein Worddokument öffnen, um dann später auf Inhalte zugreifen zu können. Folgenden Code habe ich zusammengebastelt (s.u.).

Er öffnet auch die Worddatei, gibt mit als Anzahl = 1 zurück. Soweit so gut, aber dann kommt die Fehlermeldung: Dieser Befehl ist nicht verfügbar, weil kein Dokument geöffnet ist. Gelb markiert wird das hier: 

Set AppWord = ActiveDocument

Das verstehe ich einfach nicht...

Option Explicit
    
Public Sub Test ()
    Dim sPfad As String
    Dim appWord As Object
    Dim AppWD As Word.Document
    Dim Anzahl As Single
    Set appWord = CreateObject("Word.Application") 'Word öffnen
    sPfad = "D:\VBA\VBA2.docx" ' Pfad ändern für Tests

  appWord.Visible = True 'Word sichtbar machen
 appWord.Documents.Open sPfad

 AppActivate "VBA2.docx"
     Anzahl = appWord.Documents.Count
     MsgBox (Anzahl)

  If appWord.Documents.Count > 0 Then
Set AppWord = ActiveDocument

Debug.Print appWord.Name
Else
Debug.Print "nix"
End If
Set appWord = Nothing
    MsgBox "juchuh"

End Sub

Vielen Dank für eure Hilfe!

Eva