VBA取干部大表WORD文件中的单元格内容到EXCEL

碰到一个问题，是要从干部大表中提取人员的各种信息，几百张大表都是DOC格式，就写了以下代码，把这个EXCEL文件和所有WORD放在同一个目录下，运行下就可以了。

Sub 读word()'选择文件夹strDir = ActiveWorkbook.Path & "\"'遍历文件Dim arrFileReDim arrFile(0)strfile = Dir(strDir & "*.*")Do While strfile <> ""ReDim Preserve arrFile(UBound(arrFile) + 1)arrFile(UBound(arrFile)) = strfilestrfile = DirLooparrdoc_1 = Filter(arrFile, ".doc") '搜索DOC DOCXiRow = 5  '从第5行开始写入'打开word文件Set docapp = New Word.Application'单独每行写入For Each fileword In arrdoc_1docapp.Documents.Open (strDir & fileword)  '打开文件Cells(iRow, 1).Value = docapp.ActiveDocument.Tables(2).Cell(1, 2).Range.Text '姓名是在第二张表的第一行第二格，其他内容可以类似获取Cells(iRow, 1).Value = Left(Cells(iRow, 1).Value, Len(Cells(iRow, 1)) - 1) '把后面多余的字符删除iRow = iRow + 1 '下一行位置NextSet docapp = NothingMsgBox ("结束")End Sub

VBA取干部大表WORD文件中的单元格内容到EXCEL相关推荐

Python提取Word文件中的目录标题保存为Excel文件
from docx import Document from openpyxl import Workbook from openpyxl.styles import Alignment, Borde ...
java拆分excel_Java 合并和拆分Word表格中的单元格
我们使用Word文档时,往往要对直接创建的表格进行编辑,如对表格的单元格进行合并和拆分,才能满足我们的工作需求.本文将介绍如何使用Free Spire.Doc for Java来合并以及拆分Word表 ...
excel中同一单元格内容分隔到不同的单元格
操作:菜单栏-数据-分列. 适用情况:有统一的分隔符号,逗号.分号.冒号等统一字符. 选择要分离的数据,点击菜单栏-数据-分列,弹出的对话框选择分隔符号. 进入下一步后,选择分隔的分隔符号,或在其它中 ...
excel中第一列相同，合并第2列中相应单元格内容，并用顿号隔开
需求:数据表名这列相同的表,汇总数据要素,并以.隔开效果实现代码: Sub test() Application.ScreenUpdating = False n = 1 Set d = Crea ...
从多个Word文件中取值到Excel中,整理文件的神器,Word精灵V7.3
Word精灵V7.3版,包含107个功能工具网址:http://excelbbx.net/Word.htm 演示一个功能: 从多个Word文件中提取指定的值到Excel中,也可以理解为把多个Word ...
python docx 合并文档图片_Python检查Word文件中包含特定关键字的所有页码
推荐教材:<Python程序设计基础与应用>(ISBN:9787111606178),董付国,机械工业出版社图书详情:配套资源:用书教师可以联系董老师获取教学大纲.课件.源码.教案.考试系 ...
Python检查Word文件中包含特定关键字的所有页码
推荐教材:<Python程序设计基础与应用>(ISBN:9787111606178),董付国,机械工业出版社图书详情: 配套资源: 用书教师可以联系董老师获取教学大纲.课件.源码.教案. ...
Python实现Excel与Word文件中表格数据的导入导出
封面图片:<Python程序设计实验指导书>(ISBN:9787302525790),董付国,清华大学出版社图书详情(京东): ============= 问题描述:Excel文件&qu ...
word(2010)使用VBA完成批处理操作-批量清除表格某单元格内容
word VBA 的使用案例 VBA是什么? 为什么要使用VBA? VBA的运用实例---批量清除表格某单元格内容结语 VBA是什么? VBA(Visual Basic for Applicatio ...

VBA取干部大表WORD文件中的单元格内容到EXCEL

VBA取干部大表WORD文件中的单元格内容到EXCEL相关推荐

最新文章

热门文章