我需要从特定的单词(比如说它是特定的要求)复制文本,直到文档结束。 我已经准备了可能解决这个问题的代码,但我不知道需要添加什么。文本才能让它如我所愿工作。 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
|
|