Dim wApp
Dim aText as String
 
  Set wApp = CreateObject("Word.Application")
  With wApp
    .Documents.Open CommonDlg.Filename
    aText = .ActiveDocument.Content
    StatusBar.SimpleText = "Schliesse Microsoft Word Engine..."
    .Quit
  End With
  Set wApp = Nothing

[u]Visit my website