杜先生、各位朋友请进来！<文件搜索>疑难！

413191246se · 发表于 2017-2-19 12:09

杜先生、各位朋友：
我徒弟139提出了一个新的难题，由于本人才疏学浅，甚感为难，故请杜先生及各位朋友出手相助，完成此一壮举！提前表示感谢！
【问题】编制一个Word2003VBA宏，在循环遍历文件夹（包括子文件夹）时，搜索每一个Word文档中，满足下列选项中的一项或多项：

□搜索任意中文字体（如：黑体）
□搜索任意英文字体（如：Times New Roman）
□搜索任意字形（常规/倾斜/加粗/加粗倾斜）
□搜索任意字号（初号~八号，或：任意磅值字号）
□搜索任意字体颜色（如：粉红字体）
□搜索任意颜色突出显示文字（如：搜索绿色突出显示）

□搜索时前缀：任意字符（如：段落标记、手动换行符等）
□搜索时后缀：任意字符（如：段落标记、手动换行符等）

搜索条件（查找内容）= 前缀 + 主要搜索条件 + 后缀

***目标：将符合以上条件的文档提取文件名到新建文档中并一一打开。

demo 水质超标.rar (2.98 KB, 下载次数: 7)

duquancai · 发表于 2017-2-19 12:43

循环遍历文件夹（包括子文件夹）不难，但是这么多的搜索条件，每一个条件可以用自定义函数或者带参数的子过程用主过程调用。但是这得花大量时间和精力来设计代码，最关键的是谁有这么多时间来做这些呢？

413191246se · 发表于 2017-2-19 14:23

呵呵！杜先生所说极是！——我也觉得此工程太浩大了！
先不说查找字体/字号/字形/颜色这个方面，就是《突出显示》这一点，判断文档中是否有突出显示，如果查找鲜绿色的突出显示，是否存在——刚才我费了好半天劲儿，才完成代码，能判断出文档中是否含有突出显示。
***杜先生，这样吧，请你稍微费点儿时间，想一想，这个宏是否需要用到《窗体》呢？我觉得如果不设计窗体的话，恐怕不好办，是不是？——千万不要背上负担，我充分理解杜先生，我有的是时间，就是水平不行，请杜先生提出一点设计思路，不必写代码！杜先生的健康，我是很关注的，千万别累着。——并请适当关注此帖，谢谢！

413191246se · 发表于 2017-2-19 14:39

杜先生有空可以给指导一下：

Sub 查找鲜绿突出显示()
'查找突出显示——有/无！
'查找鲜绿突出显示——有/无！
'变量 h=highlight--如果 h=1 则存在突出显示；否则 h=0 不存在突出显示
Dim h As Long
With ActiveDocument.Content.Find
Do
.ClearFormatting
.Highlight = True
.Text = ""
.Replacement.Text = ""
.Format = True
.Execute
If .Found = True Then
h = 1
.Parent.Underline = wdUnderlineWavyHeavy
Else
h = 0
Exit Do
End If
Loop Until .Found = False
End With
End Sub

复制代码

duquancai · 发表于 2017-2-19 16:10

413191246se 发表于 2017-2-19 14:39
杜先生有空可以给指导一下：

你这代码只要是有高亮色都会被查找不只是查找“鲜绿突出显示”
试试如下代码！

Sub 查找鲜绿突出显示()
With ActiveDocument.Content.Find
.Highlight = True
Do While .Execute
If .Parent.HighlightColorIndex = wdBrightGreen Then
.Parent.Underline = wdUnderlineWavyHeavy
End If
Loop
End With
End Sub

复制代码

413191246se · 发表于 2017-2-20 12:17

杜先生，我现在正在学习调用WORD内置对话框，但没发现哪个是《突出显示》对话框，不知在窗体中怎么引入这个《突出显示》对话框……

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

[求助] 杜先生、各位朋友请进来！<文件搜索>疑难！

最新热点 /1