Private Sub cmdCheck_Click()
  On Error Resume Next
  rtfStory.Locked = True
  Me.Enabled = False
  frmCheck.Show , Me
End Sub

Option Explicit
 
' Verweis auf MS Word
Dim wd As Object
 
' Verweis auf RichTextBox in frmMain
Dim Original As RichTextBox
 
' dynamische Arrays für "Alle ändern"
' und "Alle ignorieren"
Dim arrAlwaysChange() As String
Dim arrAlwaysIgnore() As String
 
'falls kein MS Word vorhanden ist
Private pribNoOfficeExist As Boolean

Private Sub Form_Load()
    On Error GoTo frmCheck_Form_Load
 
  ' Word öffnen und Dokument erzeugen
  Set wd = CreateObject("Word.Application")
  wd.Documents.Add
 
  ' Verweis auf RichTextBox in frmMain setzen
  Set Original = frmMain.rtfStory
 
  ' Array für "Alle ändern" und "Alle ignorieren" initialisieren
  ReDim arrAlwaysChange(1, 0)
  ReDim arrAlwaysIgnore(0)
 
  lblProgress.Caption = "0%"
  cmdReady.Enabled = False
 
  Exit Sub
frmCheck_Form_Load:
    'Ist kein MS Word vorhanden, dann enthält Err.Number die Fehlernummer 429
    If Err.Number = 429 Then
        MsgBox "MS Word nicht gefunden/vorhanden!" & vbCrLf & vbCrLf & _
          Err.Number & " " & Err.Description, vbExclamation, _
          "frmCheck_Form_Load"
        frmMain.Enabled = True
        frmMain.rtfStory.Locked = False
        pribNoOfficeExist = True
        Unload Me
    Else
        MsgBox Err.Number & " " & Err.Description, vbExclamation, _
          "frmCheck_Form_Load"
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
 
    ' Word schließen und Verweis löschen
    If pribNoOfficeExist = False Then
      wd.ActiveDocument.Close 0
      wd.Quit
      Set wd = Nothing
      ' Verweis auf RichTextBox in frmMain löschen
      Set Original = Nothing
      Set frmCheck = Nothing
    End If
 
End Sub