怎样通过VBA word 查找word内容找到word文档

摄狼一线天 · 发表于 2024-1-11 17:06

本帖最后由摄狼一线天于 2024-1-11 21:02 编辑

恳求大神帮忙，在我的本地电脑里，我有一个文件实在记不住word文件名，只记住word里面的内容，可不可以利用编写VBA查找word里的文字内容而找到该文件（用EXCEL VBA 或者 word VBA都可以）。
附件：如
我可以通过查找这一段文字
“工作提示：各学校上报的反食品浪费开展情况活动中，先要有全体教职工学习下发的那两个文件的通知和。”
而查找到不知道保存在什么地方的这个通知文件

3190496160 · 发表于 2024-1-12 11:52

这就得遍历所有盘符下的所有wrod文件，打开文件再查找，代码不难写，但是，需要多少时间能够找到，就决定于你的计算机存储了多少文件啦

摄狼一线天 · 发表于 2024-1-12 13:21

3190496160 发表于 2024-1-12 11:52
这就得遍历所有盘符下的所有wrod文件，打开文件再查找，代码不难写，但是，需要多少时间能够找到，就决定于 ...

谢谢老师的帮助，但是不知道这么写。

413191246se · 发表于 2024-1-12 20:10

* 楼主，建议打开文件资源管理器搜索所有盘符下的 Word 文档（*.doc*)，其实，这还不够，因为 *.rtf 文件也可以看作是 Word 文档。将所有找到的文件剪切放到 D 盘一个新建文件夹中，再打包测试无误后备份。
* 另外，也可以先行下载测试网上的各种文件搜索软件，比用 VBA 代码可能快速得多。

ytmoola · 发表于 2024-1-18 11:17

以下是一个简单的VBA示例，用于在指定盘符下的所有Word文件中查找指定字符并标记查到的文件名。请将代码粘贴到Excel的VBA编辑器中，然后执行它：

Sub FindAndMarkFiles()
Dim folderPath As String
Dim targetCharacter As String
Dim foundFiles As Collection
Dim fileName As String
Dim doc As Object
' 设置目标文件夹路径
folderPath = "C:\YourFolderPath" ' 请替换为实际的文件夹路径
' 设置要查找的字符
targetCharacter = "YourTargetCharacter" ' 请替换为实际的目标字符
' 初始化集合用于存储找到目标字符的文件名
Set foundFiles = New Collection
' 遍历目标文件夹中的所有Word文件
fileName = Dir(folderPath & "*.doc*")
Do While fileName <> ""
' 打开Word文件
Set doc = GetObject(folderPath & fileName)
' 在文档中查找目标字符
If FindCharacterInDocument(doc, targetCharacter) Then
' 找到目标字符，将文件名添加到集合中
foundFiles.Add fileName
End If
' 关闭Word文件
doc.Close SaveChanges:=False
' 获取下一个文件名
fileName = Dir
Loop
' 在Excel中输出找到目标字符的文件名
For Each fileName In foundFiles
Debug.Print fileName
Next fileName
End Sub
Function FindCharacterInDocument(doc As Object, targetCharacter As String) As Boolean
' 在Word文档中查找目标字符
Dim range As Object
Set range = doc.Range
With range.Find
.Text = targetCharacter
.MatchCase = True
.MatchWholeWord = True
.Execute
FindCharacterInDocument = .Found
End With
End Function

复制代码

在代码中，请替换"C:\YourFolderPath\"为实际的文件夹路径，将"YourTargetCharacter"替换为要查找的目标字符。这个脚本将遍历指定文件夹下的所有Word文件，查找指定字符，并在Excel中输出找到目标字符的文件名。

摄狼一线天 · 发表于 2024-1-21 00:14

ytmoola 发表于 2024-1-18 11:17
以下是一个简单的VBA示例，用于在指定盘符下的所有Word文件中查找指定字符并标记查到的文件名。请将代码粘 ...

谢谢老师的帮助，但是运行出现了这个问题，不知道怎么处理。

遥控器78 · 发表于 2024-1-21 09:13

window自带的搜索功能也可以搜啊

摄狼一线天 · 发表于 2024-1-21 11:46

遥控器78 发表于 2024-1-21 09:13
window自带的搜索功能也可以搜啊

是搜索word外不知名的word里面的内容

遥控器78 · 发表于 2024-1-26 16:00

摄狼一线天发表于 2024-1-21 11:46
是搜索word外不知名的word里面的内容

搜索设置里有个高级选项可以搜索文件内容，就是比较慢。

摄狼一线天 · 发表于 2024-1-28 12:08

遥控器78 发表于 2024-1-26 16:00
搜索设置里有个高级选项可以搜索文件内容，就是比较慢。

好的，谢谢你的帮助

		自动登录	找回密码
密码			免费注册

[求助] 怎样通过VBA word 查找word内容找到word文档