' 名称:WordCompare.vbs
' 用途:使用VBScript调用Word的文件比较功能,比较两个Word文件
' 用法:WordCompare.vbs a.doc b.doc
'       也可以用鼠标拖放两个Word文件到此vbs的图标上

Function WordCompare(f1,f2)
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    objWord.Documents.Open f1
    objWord.Documents.Open f2
    objWord.CompareDocuments objWord.Documents(1),objWord.Documents(2)
End Function

Set objArgs = WScript.Arguments
If objArgs.Count = 2 Then
    WordCompare objArgs(0),objArgs(1)
else
    WordCompare _
    "a.doc", _
    "b.doc"
End If

本文链接地址: 使用VBScript调用Word的文件比较功能,比较两个Word文件
http://qingfengju.com/index.asp?id=374

分类:脚本编程 查看次数:3973 发布时间:2014-6-1 18:52:15