Private Sub mnuDateiNeuWord_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles mnuDateiNeuWord.Click
        oWord.Visible = True
        oDoc = oWord.Documents.Add()
        oDoc.Activate()
        oWord.ShowMe()
    End Sub