如何利用VBA实现Word的查找功能？

wdpfox · 发表于 2017-9-20 16:27

具体操作如下：

13907933959 · 发表于 2017-9-21 08:45

本帖最后由 13907933959 于 2017-9-29 10:37 编辑

网友好！

看是不是这个效果？

Sub 指定的字符全部替换为红色并突出显示灰色()

With ActiveDocument.Content.Find

.Replacement.Font.Color = wdColorRed

.Execute FindText:="徐海燕", Replace:=wdReplaceAll

End With

With ActiveDocument.Content.Find

.Font.Color = wdColorRed

Do While .Execute

If .Parent.Font.Color = wdColorRed Then

.Parent.HighlightColorIndex = 16

End If

Loop

End With

End Sub

wdpfox · 发表于 2017-9-21 18:41

谢谢老师无私帮助！

duquancai · 发表于 2017-9-21 20:38

本帖最后由 duquancai 于 2017-9-21 20:59 编辑

Sub shishi()
With ActiveDocument.Range(0, 0)
      Do While .MoveUntil("徐") > 0
         If .MoveEndWhile("徐海燕") = 3 Then
            .Font.ColorIndex = 6
            .HighlightColorIndex = 16
            .Collapse 0
         Else
            .Move , 1
         End If
      Loop
End With
End Sub

13907933959 · 发表于 2017-9-22 11:08

本帖最后由 13907933959 于 2017-9-24 09:34 编辑

duquancai 发表于 2017-9-21 20:38
Sub shishi()
With ActiveDocument.Range(0, 0)
Do While .MoveUntil("徐") > 0

杜前辈好！
你的代码总是简洁高效！让人爱不释手！

duquancai · 发表于 2017-9-22 13:44

13907933959 发表于 2017-9-22 11:08
杜前辈好！
你的代码总是简洁高效！让人爱不释手！

我这代码还差一个判断，可以找到徐海燕但是也能找到徐燕海（就这种情况没判断），但是我不想改了！

13907933959 · 发表于 2017-9-22 15:04

本帖最后由 13907933959 于 2017-9-24 06:02 编辑

duquancai 发表于 2017-9-22 13:44
我这代码还差一个判断，可以找到徐海燕但是也能找到徐燕海（就这种情况没判断），但是我不想改了！

杜前辈好！
刚试了，真的除了可以找到“徐海燕”也能找到“徐燕海”，这种情况前辈不提示我还真没发现，不知前辈少用一个可增加判断准确性的语句，有什么用意？

wdpfox · 发表于 2017-9-22 19:30

多谢杜老师慷慨分享！
　　　　　　Oooo
　　　　　　(___)
　　oooO 　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

duquancai · 发表于 2017-9-22 21:25

13907933959 发表于 2017-9-22 15:04
杜前辈好！
刚试了，真的除了可以找到“徐海燕”也能找到“徐燕海”，这种情况前辈不提示我还真发现不了 ...

还是发个正确的代码上来！
Sub shishi()
With ActiveDocument.Range(0, 0)
      Do While .MoveUntil("徐")
         If .MoveEndWhile("徐海") = 2 Then
            If .MoveEndWhile("燕") Then
                  .Font.ColorIndex = 6
                  .HighlightColorIndex = 16
                  .Collapse 0
            Else
                  .Collapse 0
            End If
         Else
            .Move , 1
         End If
      Loop
End With
End Sub

13907933959 · 发表于 2017-9-23 07:12

本帖最后由 13907933959 于 2017-9-24 05:59 编辑

duquancai 发表于 2017-9-22 21:25
还是发个正确的代码上来！
Sub shishi()
With ActiveDocument.Range(0, 0)

杜前辈好！
现在可以准确锁定了。

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

[求助] 如何利用VBA实现Word的查找功能？

最新热点 /1