用word VBA 实现， 如何实现word文件中任意两个关键词之间的所有文字道一个新Word 文件中？

Question

例如文字如下：
11月19日,工业和信息化部等三部门联合发文,进一步降低党政机关公务用车的采购价格,明确要求排气量不超过1.8升,价格不超过18万元。这比此前的标准降了2万元。

想复制“三部门”和“2万元”之间的全部文字，到新word文件中

Answer 1

参考代码，如果需要其他功能，自己修改一下吧。

Dim mydocument As New Document

ActiveDocument.Range.Copy
mydocument.Range.Paste

With mydocument.Range
.Find.ClearFormatting
.Find.Replacement.ClearFormatting
With .Find
.Text = "*三部门(*)2万元*"
.Replacement.Text = "\1^13"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With

.Find.Execute Replace:=wdReplaceAll
End With本回答被网友采纳

Answer 2

用快捷键ctrl+c复制出你想要的东西到新word文件中再用ctrl+v粘贴即可

Answer 3

选择它们，复制，然后粘贴到新的word中