如何在vb中实现word和excle 的全文检索

Question

用 Find 对象，Word 2000 VBA 帮助的例子：
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="hi", ReplaceWith:="hello", _
    Replace:=wdReplaceAll

Answer 1

同意上面的，具体你可用word的macro record功能来录制，然后看看所生产的代码就应该大致明白了

Answer 2

    Cells.Find(What:="Hi").Activate
    Cells.FindNext.Activate