使用VBScript调用Word的文件比较功能，比较两个Word文件

' 名称：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文件
https://blog.qingfengju.com/index.asp?id=374

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