如何实现让查找到的字符、只处以被选中的状态？

dafanshu1 · 发表于 2016-11-16 16:49

duquancai 发表于 2016-11-16 16:46
这种运用剪贴板和发送按键来达到目的，能行得通！但是意义不大。

对，仅是为了满意楼主意思而已 [偷笑]

13907933959 · 发表于 2016-11-16 17:05

dafanshu1 发表于 2016-11-16 15:41
试试将之前那句
SendKeys "^v%im{esc}"
换成：

前辈好！
测试成功！您真捧！！！

dafanshu1 · 发表于 2016-11-17 09:31

13907933959 发表于 2016-11-16 17:05
前辈好！
测试成功！您真捧！！！

正如duquancai兄所说其实这意义不大的，而且还有局限性，只是为了满足你这奇怪的要求而已，你师傅和duquancai兄的方法才是正道。
不过话又说回来，VBA不是万能，个人水平也有限，有时用VBA其他代码达不到理想效果，不妨试试用SendKeys来模拟按键，甚至用API函数来模拟鼠标操作，或者可解一时之需，毕竟这总比人工手动操作省力。

13907933959 · 发表于 2016-11-17 10:37

本帖最后由 13907933959 于 2016-11-17 14:12 编辑

dafanshu1 发表于 2016-11-17 09:31
正如duquancai兄所说其实这意义不大的，而且还有局限性，只是为了满足你这奇怪的要求而已，你师傅和duqua ...

前辈好！

个人认为：VBA是辅助办公，目的是为了提高效率，正如您所说：正路行不通，可试试“歪路”，能解决问题都是好的。

duquancai · 发表于 2016-11-27 20:32

13907933959 发表于 2016-11-17 10:37
前辈好！个人认为：VBA是辅助办公，目的是为了提高效率，正如您所说：正路行不通，可试试“歪路”，能解决 ...

可测试下面代码，不过意义不大！！！

Sub SelectAll()
With ActiveDocument.Content
With .Find
.Text = "[!一-龥^1-^0255]{1,}"
.MatchWildcards = True
Do While .Execute
n = n + 1
.Parent.Editors.Add wdEditorEveryone
Loop
End With
If n = 0 Then Exit Sub
.GoToEditableRange.Editors(1).SelectAll
.GoToEditableRange.Editors(1).DeleteAll
End With
End Sub

复制代码

413191246se · 发表于 2016-11-27 21:01

杜先生好！139好！——楼上代码真的把所有中文标点全选中了！OK！但要在第一行代码前面插入一行声明：
Dim n As Long
请问：杜先生，怎么找到汉字之间的英文标点啊？（不包括数字、字母）谢谢！

duquancai · 发表于 2016-11-27 21:14

本帖最后由 duquancai 于 2016-11-27 21:15 编辑

413191246se 发表于 2016-11-27 21:01
杜先生好！139好！——楼上代码真的把所有中文标点全选中了！OK！但要在第一行代码前面插入一行声明：
...

通配符 [一-﨩^13]([^1-^127]@)[一-﨩^13]
小括号内的就是： “汉字之间的英文标点”或者“回车符与汉字之间的英文标点”或者“汉字与回车符之间的英文标点”或者“两个回车符之间的英文标点”

duquancai · 发表于 2016-11-27 22:51

413191246se 发表于 2016-11-27 21:01
杜先生好！139好！——楼上代码真的把所有中文标点全选中了！OK！但要在第一行代码前面插入一行声明：
...

由于您没有说明找到后应该怎么处理，再者又是在本帖讨论，故：还是找到后全部处于选中状态吧！！！
请测试代码：

Sub SelectAll()
Dim S As Range, n&, P As Range
Set P = ActiveDocument.Content
With P.Find
Do While .Execute("[一-﨩^13][^1-^127]@[一-﨩^13]", MatchWildcards:=True)
Set S = .Parent.Duplicate
With S.Find
Do While .Execute("[!一-﨩^13]{1,}", MatchWildcards:=True)
If .Parent.Start > P.End Then Exit Do
n = n + 1
.Parent.Editors.Add wdEditorEveryone
Loop
End With
Loop
If n = 0 Then Exit Sub
P.GoToEditableRange.Editors(1).SelectAll
P.GoToEditableRange.Editors(1).DeleteAll
End With
End Sub

复制代码

13907933959 · 发表于 2016-11-28 10:32

duquancai 发表于 2016-11-27 22:51
由于您没有说明找到后应该怎么处理，再者又是在本帖讨论，故：还是找到后全部处于选中状态吧！！！
请测 ...

前辈好！
感谢前辈！
前辈可能看错了，我师傅的意思是：不包括数字、字母，该代码我测试了，好象数字及字母辆都会被选中。

duquancai · 发表于 2016-11-28 11:19

本帖最后由 duquancai 于 2016-11-28 11:42 编辑

13907933959 发表于 2016-11-28 10:32
前辈好！
感谢前辈！
前辈可能看错了，我师傅的意思是：不包括数字、字母，该代码我测试了，好象数字及 ...

Sub SelectAll()
Dim S As Range, n&, P As Range
Set P = ActiveDocument.Content
With P.Find
Do While .Execute("[一-﨩^13^11][^1-^47^58-^62^91-^96^123-^127\?\@]@[一-﨩^13^11]", MatchWildcards:=True)
Set S = .Parent.Duplicate
With S.Find
Do While .Execute("[!一-﨩^13^11]{1,}", MatchWildcards:=True)
If .Parent.Start > P.End Then Exit Do
n = n + 1
.Parent.Editors.Add wdEditorEveryone
Loop
End With
Loop
If n = 0 Then Exit Sub
P.GoToEditableRange.Editors(1).SelectAll
P.GoToEditableRange.Editors(1).DeleteAll
End With
End Sub

复制代码

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

[求助] 如何实现让查找到的字符、只处以被选中的状态？