VBA Word 从特定单词复制文本到文档末尾

Question

我需要从特定单词（假设它是特定要求）中复制文本，直到文档末尾。

我已经准备了可能解决问题的代码，但我不知道必须添加什么到 .text 才能使其按我希望的方式工作。

---

Sub Copying()
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Format = False
    .Forward = True
    .MatchWildcards = True
    .Wrap = wdFindContinue
    .Text = "Specific Requirements"
    .Execute
  End With
  If .Find.Found = True Then .Copy
End With
End Sub

Answer 1

当您使用 Find 时，活动范围移动到 Found 范围。 要将其扩展到文档的末尾，您需要如下代码：

Sub Copying()
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Format = False
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
    .Text = "Specific Requirements"
    .Execute
  End With
  If .Find.Found = True Then
    .End = ActiveDocument.Range.End
    .Copy
  End If
End With
End Sub