如何用VBA提取大批word中的第一页15位数字到excel中

在有word文件的文件夹中新建一个excel工作簿，打开工作簿，按alt+f11，把下面的代码复制进去，按f5执行。
代码会复制work文件的前300个字符到excel中。

sub test()
dim i%, myname$, mypath$, appword as object
set appword = createobject("word.application")
mypath = thisworkbook.path & ""
myname = dir(mypath & "*.doc*")
with activesheet
.columns("a:b").clearcontents
do while myname <> ""
appword.documents.open filename:=mypath & myname
i = i + 1
.cells(i, 1) = myname
.cells(i, 2) = appword.activedocument.range(start:=0, end:=300).text
appword.activedocument.close false
myname = dir
loop
end with
appword.quit
set appword = nothing
msgbox "已完成。"
end sub

如果你对编程不熟悉，可以试试使用现成的工具或插件如DocXToCSV这类转换器，在Word文档预览状态下选择页面范围并导出为CSV文件，然后在Excel中直接读取数据即可。当然这需要额外安装软件，并且可能无法精确控制提取的位置

另一种方法是利用Word对象模型中的Find和Replace功能。设置查找模式为数字（`\d{1,}`），替换为（空字符串），遍历整个文档直到找不到匹配项。这样每次替换后都会将找到的数字存入变量中，累积到一定数量就写入Excel

首先，你需要在VBA中打开Excel工作簿，然后创建一个宏。在代码编辑器里，你可以使用`ActiveDocument.Range(start, end)`来选取Word文档的第一页内容，比如从位置1开始到15位。接着用`Selection.Text`获取文本，再通过正则表达式或者Split函数截取前15位数字