如何将word中数据导入excel题库

下列代码由Excel VBA改写的，有点问题，请高手指点，谢谢！

cPath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)

doc = CreateObject("word.application") '创建Word对象
doc.Documents.Open(cPath+\ "会计试题“)
    With doc
        c = .Documents(1).Range '这里直接引用Word程序打开的第一个文档的所有内容
        regx = CreateObject("vbscript.regexp") '引用正则表达式对象
        With regx
            .Global = True
            .Pattern = "\d+、\S+。" '题目部分的正则表达式
            Mat = .Execute(c)
            For Each m In Mat '循环所有符合条件的匹配值
                n = n + 1
                Cells(n, 1) = m.Value '提取所有符合条件的段落到excel中
            Next
        End With
    End With
    doc.Quit '退出word程序

[此贴子已经被作者于2024-5-3 21:46编辑过]

没有将word数据提取到excel中