perhaps this is what you need?
#NoTrayIcon
$prog = "WordCMP"
if $CmdLine[0] < 2 then
msgbox(0, $prog, "Use: " & $prog & ' "<Full Path Name 1>" "<Full Path Name 2>"', 10 )
exit
endif
$doc1 = $CmdLine[1]
$doc2 = $CmdLine[2]
if FileExists ( $doc1 ) == 0 then
msgbox(0, $prog, "File " & $doc1 & " not found!")
exit
endif
if FileExists ( $doc2 ) == 0 then
msgbox(0, $prog, "File " & $doc2 & " not found!")
exit
endif
RegWrite("HKEY_CURRENT_USER\Software\Classes\CLSID\{000209FE-0000-0000-C000-000000000046}\LocalServer32", "LocalServer32", "REG_MULTI_SZ", "']gAVn-}f(ZXfeAR6.jiWORDFiles>P`os,1@SW=P7v6GPl]Xh /safe /Automation")
RegWrite("HKEY_CURRENT_USER\Software\Classes\CLSID\{000209FF-0000-0000-C000-000000000046}\LocalServer32", "LocalServer32", "REG_MULTI_SZ", "']gAVn-}f(ZXfeAR6.jiWORDFiles>P`os,1@SW=P7v6GPl]Xh /safe /Automation")
_Msg("WordCMP running ...", 1)
$oWord = ObjCreate("Word.Application")
$oWord.Visible = 0
_Msg("Loading doc1 ...", 1)
$docA = $oWord.Documents.Open( $doc1)
_Msg("Loading doc2 ...", 1)
$docB = $oWord.Documents.Open( $doc2)
_Msg("Comparing doc1 and doc2 ...", 1)
$docC = $oWord.CompareDocuments($docA, $docB, 2, 1, 1, 1)
$docA.close
$docB.close
$oWord.Visible = 1
$oWord.DisplayAlerts = 0
_Msg($prog, 0)
RegDelete ("HKEY_CURRENT_USER\Software\Classes\CLSID\{000209FE-0000-0000-C000-000000000046}\LocalServer32")
RegDelete ("HKEY_CURRENT_USER\Software\Classes\CLSID\{000209FF-0000-0000-C000-000000000046}\LocalServer32")
Func _Msg($msg, $state)
$Width = StringLen ($msg) * 8
$Height = 40
$left = @DesktopWidth - $Width - 10
$top = @DesktopHeight - $Height - 40
if $state = 1 then
SplashTextOn ( "", $msg, $Width, $Height, $left, $top, 5, "Tahoma", 11)
else
SplashOff ( )
EndIf
EndFunc
