比较多对文档

我是英语系教授，我的作文学生经常写他们的散文的多个草稿。我使用Word 2010来跟踪他们的更改。比较多对文档

我在另一个网站上发现了VBA代码（位于here）。我创建了一个新的宏。它会正确提示我是否有基本文件夹，新文件夹和比较文件夹，但输出为空。

我在基本文件夹和新文件夹中命名相同并以.doc格式保存。我还将Word中的信任中心选项设置为1）启用所有宏，以及2）信任对VBA项目对象模型的访问。

Sub CompareAllFiles() 
    Dim strFolderA As String 
    Dim strFolderB As String 
    Dim strFolderC As String 
    Dim strFileSpec As String 
    Dim strFileName As String 
    Dim objDocA As Word.Document 
    Dim objDocB As Word.Document 
    Dim objDocC As Word.Document 
    strFolderA = InputBox("Enter path to base documents:") 
    strFolderB = InputBox("Enter path to new documents:") 
    strFolderC = InputBox("Enter path for document comparisons to be saved:") 
    strFileSpec = "*.doc" 
    strFileName = Dir(strFolderA & strFileSpec) 
    Do While strFileName <> vbNullString 
     Set objDocA = Documents.Open(strFolderA & strFileName) 
     Set objDocB = Documents.Open(strFolderB & strFileName) 
     Application.CompareDocuments _ 
      OriginalDocument:=objDocA, _ 
      RevisedDocument:=objDocB, _ 
      Destination:=wdCompareDestinationNew 
     objDocA.Close 
     objDocB.Close 
     Set objDocC = ActiveDocument 
     objDocC.SaveAs FileName:=strFolderC & strFileName 
     objDocC.Close SaveChanges:=False 
     strFileName = Dir 
    Loop 
    Set objDocA = Nothing 
    Set objDocB = Nothing 
End Sub

来源

2013-10-13 Derp Blerg

如果你和你的学生使用的是Word 2010，则扩展最有可能是.docx：

strFileSpec = "*.docx"

您是否尝试过运行的代码一步一步用VBA调试器，看看确切的失败点是什么？请参阅here（在标题为步进代码的部分）进行简单介绍。

来源

2013-10-13 07:21:36

谢谢您的建议！我感谢你的时间。 :) –

某种类型的VBA大师想了想：我需要在文件夹路径的末尾输入\。没有最终的反斜杠，脚本无法找到文件夹，因此它没有处理任何文件。在将最后的\添加到所有三个文件夹路径后，代码完美运行。

作为奖励，代码处理.doc和.docx文件。我认为在处理之前我必须将所有.docx文件转换为.doc，但代码比这更聪明。

尤里卡！

来源

2013-10-13 14:50:24

请将此标记为问题的答案（答案旁边的复选标记）。 –

比较多对文档

回答

相关问题