[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

[TSVN] Free Word Diff Visual Basic Script

From: Joe Shomphe <jshomphe_at_gmail.com>
Date: 2005-07-12 23:35:15 CEST

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

This is an archived mail posted to the TortoiseSVN Dev mailing list.