替换选中的文字，不是所有文字

hiqt · 发表于 2017-11-20 09:27

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
发何修改代码，只对所选的文字执行，而不是所有文字

hiqt · 发表于 2017-11-20 10:12

如何修改，请指教，谢谢！

13907933959 · 发表于 2017-11-20 14:36

hiqt 发表于 2017-11-20 10:12
如何修改，请指教，谢谢！

网友好！
请看这里：
http://club.excelhome.net/thread-298456-1-1.html

hiqt · 发表于 2017-11-20 15:31

13907933959 发表于 2017-11-20 14:36
网友好！
请看这里：
http://club.excelhome.net/thread-298456-1-1.html

非常感谢！但还有问题，确定值替换可以执行，用变量替换不响应。

13907933959 · 发表于 2017-11-20 16:23

本帖最后由 13907933959 于 2017-11-21 09:36 编辑

hiqt 发表于 2017-11-20 15:31
非常感谢！但还有问题，确定值替换可以执行，用变量替换不响应。

网友好！
求助解答问题，建议上传一个“测试附件”，附件上最好有“模拟的效果”，这样才可能有更多的人帮到你，因各人对问题的描述、理解不同，很容易有偏差，您把问题描述得再清楚，都不如帮助您的人看到“模拟的效果”更直观，如没有“测试附件”，得到帮助的概率会不高！

wdpfox · 发表于 2017-11-20 18:50

本帖最后由 wdpfox 于 2017-11-20 21:13 编辑

学习中

duquancai · 发表于 2017-11-20 20:31

本帖最后由 duquancai 于 2017-11-20 20:33 编辑

hiqt 发表于 2017-11-20 10:12
如何修改，请指教，谢谢！

Sub shishi()
Dim Q As Range
If Selection.Type <> wdSelectionIP Then
Set Q = Selection.Range
Q.Find.Execute "^p", , , , , , , , , "", 2
End If
End Sub

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

[求助] 替换选中的文字，不是所有文字