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

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

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

 我来答

3个回答

#热议# 什么是淋病？哪些行为会感染淋病？

百度网友2effcdb
2011-12-02 · 超过24用户采纳过TA的回答

知道答主

回答量：63

采纳率：0%

帮助的人：67.7万

我也去答题访问个人页

关注

展开全部

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

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


本回答被网友采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起