[TSVN] Free Word Diff Visual Basic Script

Not sure if this interests anyone, but here is a quick and dirty script to
diff word files from tortoise:

On Error Resume Next
set word = Nothing

Dim word
Set word = CreateObject("Word.Application")
word.Visible=False
word.Documents.Open(WScript.Arguments.Item(1))
word.ActiveDocument.Compare(WScript.Arguments.Item(0))
'word.Documents(2).Saved = True
'word.Documents(2).Close()
word.Visible = True
word.ActiveDocument.Saved = True
Set word = Nothing

just set up an advanced diff mappping to:

wscript script

And you are in business.

Hope this helps someone out there

-joe
Received on Wed Jul 13 08:17:41 2005