找到方法：在word中如何仅在选定文字中进行替换

rover

有时候希望仅在一段选定的文字中进行替换操作，而不替换全文。可以这样：

选定文字--替换--输入好“查找内容”和“替换为”，点击“全部替换”，完成后word会询问“是否查找文档其它部分”，选“否”。搞定啦！

守柔

QUOTE:

以下是引用rover在2008-2-13 13:45:27的发言：

有时候希望仅在一段选定的文字中进行替换操作，而不替换全文。可以这样：

选定文字--替换--输入好“查找内容”和“替换为”，点击“全部替换”，完成后word会询问“是否查找文档其它部分”，选“否”。搞定啦！

谢谢rover!

Word中的查找和替换非常有用，也很管用，实用，希望我们一起来挖掘Word中的华彩篇章。

zhouqiong

不错，谢谢！以前还没有注意过这个问题。

ak47ok

请教众高手，这用VBA的代码如何写，
我试用了 Wrap:=wdFindStop，还会继续往下替换。
完整代码如下：如何解决。谢谢！
ActiveDocument.Content.Find.Execute findtext:=",color*,", replacewith:=",", Replace:=wdReplaceAll, MatchWildcards:=True, Wrap:=wdFindStop

sqhsqhli

我录制后改改挺好的


Sub Macro2()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "1"
        .Replacement.Text = "2"
        .Forward = True
        .Wrap = wdFindStop
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub

Echo^-^Lee

sqhsqhli 发表于 2013-2-28 09:25
当仅为一光标时，5楼代码会将光标后的文本进行替换。真正做到选区替换，可使用以下代码：
Sub 仅选区替 ...

您找到了问题所在，给出代码能够完美执行，强烈支持！向您学习啦。

房产大亨

原来如此，学习啦！！！

Echo^-^Lee

同问四楼的问题，他的代码哪里出问题了？

sqhsqhli

Echo^-^Lee 发表于 2013-2-28 00:06
同问四楼的问题，他的代码哪里出问题了？

当仅为一光标时，5楼代码会将光标后的文本进行替换。真正做到选区替换，可使用以下代码：
Sub 仅选区替换()
If Selection.Start <> Selection.End Then ActiveDocument.Range(Selection.Start, Selection.End).Find.Execute findtext:="a", replacewith:="b", Replace:=wdReplaceAll
End Sub