vba遍历所有文件夹里的word文档

VBA (Visual Basic for Applications) 是一种用于Microsoft Office应用程序（如Excel、Word等）的宏语言。如果你想在VBA中遍历所有文件夹下的Word文档，可以按照以下步骤操作：

1. **引用对象库**：首先，你需要引用`Microsoft Word Object Library` 和 `Microsoft Scripting Runtime`，这两个库允许你与Word对象模型交互。

Dim objFSO As FileSystemObject ' 文件系统对象
Set objFSO = New FileSystemObject
Dim objFolder As Folder

2. **创建文件夹对象**：通过`FileSystemObject`获取指定文件夹对象。

Dim strPath As String ' 定义要搜索的路径
strPath = "C:\YourFolderPath" ' 替换为你实际的文件夹路径

Set objFolder = objFSO.GetFolder(strPath)

3. **遍历子目录**：使用`Subfolders`属性获取子文件夹，并递归处理。

For Each objSubfolder In objFolder.SubFolders
    ' 在这里处理子文件夹
    ProcessFolder objSubfolder
Next objSubfolder

4. **处理Word文档**：在`ProcessFolder`函数中检查每个文件是否是Word文档（`.docx`或`.doc`）。

Private Sub ProcessFolder(folder As Folder)
    Dim objFiles() As File
    Set objFiles = folder.Files
    
    For Each objFile In objFiles
        If objFile.Extension = ".doc" Or objFile.Extension = ".docx" Then
            ' 这里添加打开或处理Word文档的代码
            Dim objWordDoc As Word.Document
            Set objWordDoc = objWordApp.Documents.Open(objFile.Path)
            ' ...文档处理...
            objWordDoc.Close False ' 关闭文档时不保存更改
        End If
    Next objFile
End Sub

5. **初始化Word应用**：在开始之前，需要创建`Word.Application`对象。

Dim objWordApp As Word.Application
Set objWordApp = New Word.Application
objWordApp.Visible = False ' 设置Word应用程序可见性（可选）

6. **最后记得释放对象**：遍历完成后，别忘了关闭并释放对象。

objWordApp.Quit
Set objWordApp = Nothing
Set objFSO = Nothing