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编辑过]