find如何找到规定的目标

craty57

我的word里面有一段 是“调整企业所得税利润总额并补缴企业所得税52.32元，滞纳金22.22元”
我需要提取的是52.32  22.22 在excel里面
但是我按照下面的代码提取出来的是 企业所得税利润总额并补缴企业所得税52.32元 最后显示的是总额并补缴企业所得税52.32 不是我想要的答案
如果能限定*为数字 最多只能有空格，不要文字？

Sub 提取特定字符中间的内容() '查找替换
    Dim wdapp As Object, wdoc As Object   '声明wdapp和wdoc变量为对象类型
    Set wdapp = CreateObject("Word.Application")  '将新建word程序对象赋给变量wdapp
    Dim Findchar As String  '要查找的字符
    Findchar = "企业所得税*元"
    Set wdoc = wdapp.Documents.Open(ThisWorkbook.Path & "\范例.docx") '打开word文档
    With wdoc.Content.Find '此处针对全文档
        .MatchWildcards = True '使用通配符
        Do While .Execute(FindText:=Findchar) = True '将内容返回到Excel
            k = k + 1
            Cells(k, 1) = .Parent  '此代码没有处理符号
            Cells(k, 2) = Replace(Replace(.Parent, "企业所得税", ""), "元", "")  '此代码去除符号
        Loop
    End With
    wdoc.Close False  '关闭word文档，不保存更改。
    wdapp.Quit '关闭word程序
    Set wdapp = Nothing     '释放内存
    Set wdoc = Nothing      '释放内存
End Sub

daibao88

建议使用正则表达式查找