On Error Resume Next
Dim sPfad As String
Dim Zaehler1 As Integer
Dim bExists As Boolean
 
    sFile = ListBox1.Text
    sPfad = TextBox1.Text + ListBox1.Text
 
    Documents.Open FileName:=sPfad, ReadOnly:=True, Visible:=False
 
    Documents(sFile).Activate
    bExists = ActiveDocument.FormFields("Kontrollkästchen1").CheckBox.Value
    If bExists Then
            Zaehler1 = Zaehler1 + 1
    End If
  Documents(sFile).Close SaveChanges:=wdDoNotSaveChanges