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

如何解决VBA Word 将文本从特定单词复制到文档末尾

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

我已经准备了可能解决问题的代码，但我不知道必须向 .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

解决方法

当您使用 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