用于调用文件夹中文件的 VBA 循环

Question

我正在尝试创建一个比较文本文件的宏。但是，我需要一个循环来比较文件夹中的所有文件。

例如，我现在只比较 template1 和 spool1 的宏。 我需要一个循环来比较 template1 和 spool1 .. template2 和 spool2 等。关于如何做到这一点的任何想法？

我想我必须先将文件添加到集合中，然后再调用它。不过我不确定。

这是我的代码

ChangeFileOpenDirectory "D:\Users\tmp4jj\Desktop\ComparisonTool\"
Dim template1 As Word.Document
Dim spool1 As Word.Document
Set template1 = Documents.Open("D:\Users\tmp4jj\Desktop\ComparisonTool\template1.docx")
Set spool1 = Documents.Open("D:\Users\tmp4jj\Desktop\ComparisonTool\spool1.txt")

Application.CompareDocuments OriginalDocument:=Documents("template1.docx") _
    , RevisedDocument:=Documents("spool1.txt"), Destination:= _
    wdCompareDestinationNew, Granularity:=wdGranularityWordLevel, _
    CompareFormatting:=False, CompareCaseChanges:=True, CompareWhitespace:= _
    False, CompareTables:=True, CompareHeaders:=True, CompareFootnotes:=True, _
     CompareTextboxes:=True, CompareFields:=True, CompareComments:=True, _
    CompareMoves:=False, RevisedAuthor:="UOB", IgnoreAllComparisonWarnings:= _
    False

提前致谢，因为我是编码新手！

Answer 1

如果文件名始终对应，您可以使用带通配符的 Dir$() 函数来查找其中一个或另一个，然后根据结果构建另一个文件名。 Dir$() 在后续调用中返回下一个结果，然后在返回所有文件时返回一个空字符串。这使得构建循环变得容易：

ChangeFileOpenDirectory "D:\...\ComparisonTool\"
Dim template_doc As Word.Document
Dim spool_doc As Word.Document

Dim spool As String
Dim templ As String
spool = Dir$("D:\...\ComparisonTool\spool*.txt")
Do While spool <> vbNullString
    templ = "template" & Left$(Left$(Right$(spool, Len(spool) - 5), _
            Len(spool) - 4), Len(spool) - 9) & ".docx"
    Set template_doc = Documents.Open("D:\...\ComparisonTool\" & templ)
    Set spool_doc = Documents.Open("D:\...\ComparisonTool\" & spool)

    Application.CompareDocuments OriginalDocument:=Documents(templ) _
        , RevisedDocument:=Documents(spool), Destination:= _
        wdCompareDestinationNew, Granularity:=wdGranularityWordLevel, _
        CompareFormatting:=False, CompareCaseChanges:=True, _
        CompareWhitespace:=False, CompareTables:=True, CompareHeaders:=True, _
        CompareFootnotes:=True, CompareTextboxes:=True, CompareFields:=True, _
        CompareComments:=True, CompareMoves:=False, RevisedAuthor:="UOB", _
        IgnoreAllComparisonWarnings:=False

    spool = Dir$
Loop

注意：我缩短了目录名称以消除侧滚动 - 您需要将它们替换为实际的目录路径。