Pywin32如何替换整个word文档中的文本

如何解决Pywin32如何替换整个word文档中的文本

我无法替换整个文本文档中的单词。以下代码可以替换主要段落中的单词，但不能替换文本框中存在的文本。

wdFindContinue = 1
wdReplaceAll = 2
word.Selection.Find.Execute(find_str,True,False,wdFindContinue,replace_str,wdReplaceAll)

有没有办法替换整个文档中的单词？

解决方法

请参阅 Word MVP 在 Using a macro to replace text wherever it appears in a document 上发表的文章。

MVP 的 Doug Robbins 和 Greg Maxey 与 Peter Hewett 和 Jonathan West 的改进

使用“编辑”菜单上的“查找或替换”实用程序，您可以找到或 替换文本“几乎”出现在文档中的任何位置。如果你 然而，记录该动作，结果的范围或“范围” 录制的宏将只作用于包含在正文中的文本 文件（或更准确地说，它只会在 包含插入点的文档）。这意味着，如果 插入点位于文档主体中 宏被执行，它不会影响在 例如，文档的页眉或页脚，或在文本框中， 脚注或正文主体之外的任何其他区域 文档。

即使是查找和替换实用程序也有一个缺点。例如，文本 位于页眉或页脚中的文本框超出了 查找和替换实用程序搜索范围。

***

要使用宏来查找或替换文档中任意位置的文本，它是 需要循环遍历文档的每个单独部分。在 VBA，这些部分称为 StoryRanges。每个 StoryRange 都被识别 通过唯一的 wdStoryType 常量。

有 11 个不同的 wdStoryType 常量可以形成 文档的 StoryRanges（或部分）（好吧，在以后的版本中还有一些 词，但它们与本次讨论无关）。简单的 文档可能只包含一两个 StoryRanges，而更复杂的 文档可能包含更多内容。在 find 中起作用的 wdStoryTypes 并替换为：

wdCommentsStory、wdEndnotesStory、wdEvenPagesFooterStory、 wdEvenPagesHeaderStory,wdFirstPageFooterStory,wdFirstPageHeaderStory、wdFootnotesStory、wdMainTextStory、 wdPrimaryFooterStory、wdPrimaryHeaderStory 和 wdTextFrameStory。

在任何地方查找或替换文本的完整代码有点复杂。 因此，让我们一步一步来更好地说明 过程。在许多情况下，更简单的代码足以获得 工作完成。

步骤 1

以下代码循环遍历活动中的每个 StoryRange 文档并用 .Replacement.Text 替换指定的 .Text：

Sub FindAndReplaceFirstStoryOfEachType()
  Dim rngStory As Range
  For Each rngStory In ActiveDocument.StoryRanges
    With rngStory.Find
      .Text = "find text"
      .Replacement.Text = "I'm found"
      .Wrap = wdFindContinue
      .Execute Replace:=wdReplaceAll
    End With
  Next rngStory
End Sub

（对于已经熟悉 VBA 的人请注意：而如果您使用 Selection.Find，你必须指定所有的查找和替换 参数，例如.Forward = True，因为设置是 否则取自“查找和替换”对话框的当前设置， 哪些是“粘性的”，如果使用 [Range]，则不需要。查找 – 如果您未指定，参数将使用其默认值 它们在您的代码中的值）。

上面的简单宏有缺点。它只作用于“第一个” 11 个 StoryType 中的每一个的 StoryRange（即第一个标题， 第一个文本框，依此类推）。虽然一个文档只有一个 wdMainTextStory StoryRange，它可以有多个 StoryRange 其他 StoryType。例如，如果文档包含 带有未链接的页眉和页脚的部分，或者如果它包含 多个文本框，它们会有多个 StoryRanges StoryTypes 和代码不会作用于第二个和后续 故事范围。更复杂的是，如果您的文件 包含未链接的页眉或页脚以及页眉或页脚之一 为空，则 VBA 可能无法“跳转”该空标题或 页脚并处理后续页眉和页脚。

该页面有更多内容，但以上内容应该会有所帮助。