替换子文件夹中文档中的文本 vba

Question

我发现这个线程和我有同样的问题，但我已经将代码复制到我的项目中，但它似乎不起作用。

VBA macro: replace text in word file in all sub folders

我正在单步执行代码，它到达第 32 行（在 colSubFolders 中的 For Each varItem 下）但随后它直接跳过 find/replace 部分到代码末尾。我的文件格式有问题吗？

编辑：此外，当我在 ln 31 中访问 varitem 时，"varitem" 的值是文件夹的名称，而不是文件夹中 word 文档的名称：我认为这是问题是。

Sub DoLangesNow()
Dim file
Dim path As String
Dim strFolder As String
Dim strSubFolder As String
Dim strFile As String
Dim colSubFolders As New Collection
Dim varItem As Variant

 ' Parent folder including trailing backslash
 'YOU MUST EDIT THIS.
     strFolder = "L:\Admin\Corporate Books1514 Consents macro\company Annual Consents"
     ' Loop through the subfolders and fill Collection object
     strSubFolder = Dir(strFolder & "*", vbDirectory)
     Do While Not strSubFolder = ""
         Select Case strSubFolder
             Case ".", ".."
                 ' Current folder or parent folder - ignore
             Case Else
                 ' Add to collection
                 colSubFolders.Add Item:=strSubFolder, Key:=strSubFolder
         End Select
         ' On to the next one
         strSubFolder = Dir
     Loop
     ' Loop through the collection
     For Each varItem In colSubFolders
         ' Loop through word docs in subfolder
         'YOU MUST EDIT THIS if you want to change the files extension
         strFile = Dir(strFolder & varItem & "\" & "*.doc")
         Do While strFile <> ""
         Set file = Documents.Open(FileName:=strFolder & _
                 varItem & "\" & strFile)

Answer 1

使用 CMD 将所有文件放入一个数组并使用它 - 更快更干净。

Sub S_O()

Dim fileArray As Variant

fileArray = Filter(Split(CreateObject("WScript.Shell").Exec("CMD /C DIR """ & strFolder & "\*.doc*"" /S /B /A:-D").StdOut.ReadAll, vbCrLf), ".")

For Each fil In fileArray
    '//
    '// Insert your code for doing the replacements here
    '// e.g. Workbooks.Open(fil)
    '// ...
Next

End Sub

替换子文件夹中文档中的文本 vba

Replace text in documents in subfolders vba

vba

ms-word