VBA 查找替换word，可以按照页来替换 可以按照章节替换

Question

我就只会全部替换例如：Sub Replace()Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="hi", ReplaceWith:="hello", _
Replace:=wdReplaceAllEnd Sub求高手帮帮忙 //

Answer 1

我把它弄好了，给大家看看
ActiveDocument.Paragraphs(2).Range.Select '将第二段中的你好替换成ok
With Selection.Find
    .Text = "你好"
    .ClearFormatting
    .Replacement.Text = "ok"
    .Replacement.ClearFormatting
    .Execute Replace:=wdReplaceAll, Forward:=True
End WithEnd Sub
按章节查找替换Sub Documents()ActiveDocument.Sections(1).Range.Select '替换第一章节
With Selection.Find
    .Text = "你好"
    .ClearFormatting
    .Replacement.Text = "ok"
    .Replacement.ClearFormatting
    .Execute Replace:=wdReplaceAll, Forward:=True
End WithEnd Sub

Answer 2

希望大家看看，比较简单，项目上临时要用，就看了一天多VBA，我是做C/C++的哈。有空看看哈

Answer 3

在Word2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。