循环遍历文件夹--文件搜索（宏）实用版 v1

413191246se · 发表于 2016-1-11 10:25

本帖最后由 413191246se 于 2016-1-11 16:10 编辑

略。。。。。。

13907933959 · 发表于 2016-1-11 15:43

本帖最后由 13907933959 于 2016-1-12 11:38 编辑

413191246se 发表于 2016-1-11 10:25
139：实际上，打开文件前是有判断的，如果大于等于22个文件，就不会打开；否则，自动打开。——已经做好超 ...

师傅好！

怪我描述问题不清楚，让你误判，罪过！你这个是直接把搜索到的文件名建立了超链接。

我的意思是继续保留 “以搜索到多少个文件！--是否打开搜索的文件？” 这个询问框，如点 “是” 就会打开以搜索到的文件，点 “否” 就不会打开以搜索到的文件，会再弹出一个文档，上面有以搜索到的文件名和所处的位置（师傅的这个设计的很人性化）。只是在点 “否” 后，这个弹出的文档上建立一个个打开的超链接，这样可以多项选择，更人性化。

师傅、我知道你这个打开文件前是有判断的，如果大于等于22个文件（并可在代码中修改打开的数字），就不会打开；否则，自动打开。

413191246se · 发表于 2016-1-11 16:24

还是 139 细心啊！现在不判断多少文件了，直接“是、否”选择：

Sub 循环遍历文件夹_文件搜索_超链接()
On Error Resume Next
Dim fd As FileDialog, i As Long, doc As Document, p As String, j As String, k As Long, q As String, r As String, s As String, t As String, a As String
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
Set fd = Nothing
If MsgBox("是否搜索文件夹 " & p & " ?", vbYesNo + vbExclamation, "循环遍历文件夹_文件搜索") = vbNo Then Exit Sub
j = MsgBox("是：<文件名关键词> 否：<正文关键词> 取消：<文件名关键词+正文关键词>", vbYesNoCancel + vbExclamation, "请选择文件搜索模式！")
If j = vbYes Then
k = 1: q = "<文件名关键词>": r = "任职"
ElseIf j = vbNo Then
k = 2: q = "<正文关键词>": r = "秦楚楚"
Else
k = 3: q = "<文件名关键词+正文关键词>": r = "任职，秦楚楚"
End If
reipt:
a = InputBox("如果同时输入<文件名关键词>+<正文关键词>，必须以中文逗号分隔！如：“任职，秦楚楚”", "请输入" & q & "搜索文件！", r)
If a = "" Then Exit Sub
If k = 1 Then
If a Like "*，*" Then GoTo reipt
s = a
ElseIf k = 2 Then
If a Like "*，*" Then GoTo reipt
t = a
ElseIf k = 3 Then
If Not (a Like "*，*") Then GoTo reipt
s = Left(a, InStr(a, "，") - 1): t = Mid(a, InStr(a, "，") + 1)
End If
Set doc = Documents.Add
With Application.FileSearch
.NewSearch
.LookIn = p
.SearchSubFolders = True
If k = 1 Then
.FileName = "*" & s & "*.doc"
ElseIf k = 2 Then
.FileName = "*.doc"
.TextOrProperty = t
ElseIf k = 3 Then
.FileName = "*" & s & "*.doc"
.TextOrProperty = t
End If
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
doc.Content.InsertAfter Text:=.FoundFiles(i) & vbCr
Next i
If MsgBox("搜索完毕！共发现 " & .FoundFiles.Count & " 个文件！——是否打开搜索的文件？", vbYesNo + vbExclamation, "循环遍历文件夹_文件搜索") = vbYes Then
For i = 1 To .FoundFiles.Count
Documents.Open FileName:=.FoundFiles(i)
Next i
Else
Options.CtrlClickHyperlinkToOpen = False '单击超链接打开文件
Dim v As Paragraph
For Each v In ActiveDocument.Paragraphs
v.Range.Select
Selection.MoveEnd unit:=wdCharacter, Count:=-1
v.Range.Hyperlinks.Add Anchor:=Selection.Range, Address:=Selection.Text
Next
End If
' MsgBox "搜索完毕！共发现 " & .FoundFiles.Count & " 个文件！", vbOKOnly + vbExclamation, "循环遍历文件夹_文件搜索"
Else
MsgBox "未发现文件！", vbOKOnly + vbCritical, "循环遍历文件夹_文件搜索"
End If
End With
End Sub

复制代码

13907933959 · 发表于 2016-1-12 09:39

413191246se 发表于 2016-1-11 16:24
还是 139 细心啊！现在不判断多少文件了，直接“是、否”选择：

师傅好！
四个字：师傅威武！三个字：蓝波湾！
师傅去掉了在代码中控制打开文件数量的代码，这个可以不去掉吗？

413191246se · 发表于 2016-1-12 14:58

139：感觉再限制文件数量已经没啥意义了！因为已经有两个选择：逐个打开，或逐个以超链接方式打开；还有，已经提示已经发现多少文件了！再限制数量的话，打开后还是文件名列表，既不是逐个打开每个文件，又不是超链接。

13907933959 · 发表于 2016-1-12 16:19

413191246se 发表于 2016-1-12 14:58
139：感觉再限制文件数量已经没啥意义了！因为已经有两个选择：逐个打开，或逐个以超链接方式打开；还有， ...

师傅好！
我只是问一下，如果能在现有的功能上，不麻烦的话就保留，麻烦就不保留，现在这个以经非常人性化了！师傅辛苦了！！！

413191246se · 发表于 2016-1-12 20:35

139：麻烦倒不麻烦，只是加上很短的一个IF语句，类似 if x>=22 then...，但是，这样限制以后，如果搜索到21个文件，则将这21个文件的文件名提取到空白文件中，-------既不打开，又不创建超链接，是不是没意思？

413191246se · 发表于 2016-1-12 20:36

139：麻烦倒不麻烦，只是加上很短的一个IF语句，类似 if x>=22 then...，但是，这样限制以后，如果搜索到21个文件，则将这21个文件的文件名提取到空白文件中，-------既不打开，又不创建超链接，是不是没意思？

13907933959 · 发表于 2016-1-13 08:15

本帖最后由 13907933959 于 2016-1-13 09:11 编辑

413191246se 发表于 2016-1-12 20:36
139：麻烦倒不麻烦，只是加上很短的一个IF语句，类似 if x>=22 then...，但是，这样限制以后，如果搜索到21 ...

师傅好！

我本以为继可保留限制打开文件数量的功能，又可有超链接，所以才想保留。

徒弟的问题常常让师傅多费口舌，真是笨徒累坏师傅！唉！只有求师傅多多原谅了！

413191246se · 发表于 2016-1-13 09:21

139：说起来，我觉得应该表扬你！——过去，我也没有想到把文件名列表设置为超链接，一个一个地打开文件，连怎么变成超链接我也不会。现在，这个“文件搜索_超链接”宏，最终结果提示有多少文件找到，然后给用户两个选择：一是打开全部文件，二是提取文件名列表设置为超链接，可以手动有选择性地打开。——因为有这两个选择了，限制文件数就没有必要了（太多，不想都打开，可以选否，有选择性地打开超链接）。

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

[分享] 循环遍历文件夹--文件搜索（宏）实用版 v1