Private Sub inWord()
 
Dim WordX As New Word.Application
Dim d As Word.Document
Dim DateiName As String
 
On Error GoTo err_handler
 
'aktuellen Text speichern
Text1.SaveFile "C:\TEXTE\Word.RTF", rtfRTF
 
DateiName = "C:\GVWERT\Word.RTF"
 
WordX.Documents.Open FileName:=DateiName
 
WordX.Visible = True
 
Set d = WordX.ActiveDocument
 
AppActivate "Microsoft Word"
 
Set d = Nothing
 
Exit Sub
 
err_handler:
 
MsgBox Err.Description, vbCritical, "Fehler-Nr.: " & Err.Number
 
Resume Next
 
End Sub