Public Sub Main()
If Command$ <> "" Then
'command übergibt namen der gestarteten Datei
Dim sFilename As String
sFilename = Replace(Command$, Chr$(34), "")
'Hier werden die Leerzeichen entfernt da sie sonderzeichen sind
frmWord.rtbWord.LoadFile sFilename, rtfRTF
End If
End Sub