如何以编程方式在整个 Word 文档中查找和替换

Question

我有一个Word文档，其中有表格内的文本和表格外的文本。我想查找并替换所有文本，而不仅仅是表格外的文本。文档的内容属性只是“主要故事”，而不是表格。我不想遍历所有表对象。我只想在所有文本中查找和替换，就像我使用 Word gui 手动执行操作一样。

请把我从正在燃烧的精神地狱中拯救出来。

[肉体燃烧的恶臭开始让我担心。几乎和我四肢的剧痛一样强烈。]

[我的腿和手臂都被火焰吞噬了。我用鼻子写下这些，鼻子上粘着按键上融化的塑料。]

Answer 1

使用Find属性，它与UI相同。搜索“查找属性”的帮助主题以帮助您入门。

With ActiveDocument.Range.Find
    .Text = "hi"
    .Replacement.Text = "hello"
    .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With