查看: 16293|回复: 29
如何从多个WORD文件中提取相应的文字和数值到EXCEL里
阅读权限10
在线时间 小时
WORD文件是一个报告单，里面有姓名和检验结果的数值，我想问一下达人，如何把多个文件中的姓名和数值用什么方法能放在EXCL里面，以便于统计分析。如果能把姓名相同的放在一起那就更好啦，因为文件较多，所以不能一个一个打开去复制，先谢谢大家了
阅读权限20
在线时间 小时
不知道，同等中。。。
阅读权限70
在线时间 小时
语焉不详，无所适从，没有附件，无从下手
阅读权限10
在线时间 小时
<font color="#3191246se 发表于
语焉不详，无所适从，没有附件，无从下手
(6.75 KB, 下载次数: 744)
21:34 上传
点击文件名下载附件
就是从类似N个这样格式的文件中，提取出姓名和CD4 CD3 CD8的检测结果 导入EXCEL里 以便于分析其疾病感染状态
阅读权限70
在线时间 小时
可试试如下代码。至于同姓名放在一起的问题，可在Excel中自行排序Sub test()
& & '程序在活动Excel文档运行
& & Dim WdApp As Object, myDoc As Object
& & Dim TF As Boolean, i As Integer, r As Long
& & Dim aTable As Object, a(10), n As Integer
& & On Error Resume Next
& & With Application.FileDialog(msoFileDialogFilePicker)
& && &&&.Title = &请选定要处理的Word文档&
& && &&&.Filters.Add &Word文档&, &*.doc&&&'暂定扩展名为doc的Word文档
& && &&&.AllowMultiSelect = True
& && &&&If .Show && -1 Then Exit Sub
& && &&&Set WdApp = GetObject(, &Word.Application&)
& && &&&If Err && 0 Then
& && && && &TF = True
& && && && &Set WdApp = CreateObject(&Word.Application&)
& && &&&End If
& && &&&'WdApp.Visible = True
& && &&&r = ActiveSheet.Range(&a65536&).End(xlUp).Row
& && &&&ActiveSheet.Range(&A:A&).NumberFormatLocal = &@&&&'设置第一列（编号）的数字格式
& && &&&Application.ScreenUpdating = False
& && &&&For i = 1 To .SelectedItems.Count
& && && && &Set myDoc = WdApp.Documents.Open(.SelectedItems(i))
& && && && &For Each aTable In myDoc.Tables
& && && && && & With aTable&&'暂提取10个相关数据
& && && && && && &&&If .Range.Cells.Count = 37 Then&&'以单元格数为依据对表格进行简单识别
& && && && && && && && &a(0) = .Range.Previous(Unit:=4).Text
& && && && && && && && &a(0) = Mid(a(0), 4, Len(a(0)) - 4)&&'编号
& && && && && && && && &a(1) = Replace(.Cell(8, 2).Range.Text, Chr(13) & Chr(7), &&) '姓名
& && && && && && && && &a(2) = Replace(.Cell(8, 4).Range.Text, Chr(13) & Chr(7), &&)
& && && && && && && && &a(3) = Replace(.Cell(8, 6).Range.Text, Chr(13) & Chr(7), &&)
& && && && && && && && &a(4) = Replace(.Cell(9, 2).Range.Text, Chr(13) & Chr(7), &&)&&'民族
& && && && && && && && &a(5) = Replace(.Cell(9, 4).Range.Text, Chr(13) & Chr(7), &&)
& && && && && && && && &a(6) = Replace(.Cell(9, 6).Range.Text, Chr(13) & Chr(7), &&)
& && && && && && && && &a(7) = Replace(.Cell(10, 2).Range.Text, Chr(13) & Chr(7), &&) '地址
& && && && && && && && &a(8) = Replace(.Cell(14, 1).Range.Text, Chr(13) & Chr(7), &&) 'CD4
& && && && && && && && &a(9) = Replace(.Cell(14, 2).Range.Text, Chr(13) & Chr(7), &&)
& && && && && && && && &a(10) = Replace(.Cell(14, 3).Range.Text, Chr(13) & Chr(7), &&)
& && && && && && && && &Range(Cells(r + i, 1), Cells(r + i, 11)).Value = a
& && && && && && && && &n = n + 1
& && && && && && &&&End If
& && && && && & End With
& && && && &Next
& && && && &myDoc.Close False
& && &&&Next i
& & End With
& & If TF = True Then WdApp.Quit
& & Set WdApp = Nothing
& & MsgBox &提取完毕！共提取了& & n & &个Word文档。&
& & Application.ScreenUpdating = True
End Sub复制代码
阅读权限20
在线时间 小时
sylun 发表于
可试试如下代码。至于同姓名放在一起的问题，可在Excel中自行排序
你好，我想问一下这个宏里面如果要提取其他表格样式里面的数据，我需要从那部分入手修改这段宏
阅读权限70
在线时间 小时
木人无心 发表于
你好，我想问一下这个宏里面如果要提取其他表格样式里面的数据，我需要从那部分入手修改这段宏
5楼代码中涉及表格中内容信息提取的是For each aTable ... Next这部分，是先将文档中各表格中的10个指定单元格内容（a(0)为表格前一段落的部分内容）导入数组a，然后将数组数据写入excel工作表。其中的各行代码的意思有哪行你是不清楚的？
阅读权限20
在线时间 小时
本帖最后由 jrtzxjh 于
15:07 编辑
sylun 发表于
可试试如下代码。至于同姓名放在一起的问题，可在Excel中自行排序
看论坛里这么多代码，就这个写的好，运行了一下真的不错
这个写的真好，能帮忙替我写一个吗，我是一个门外汉，还请多多帮忙哈
阅读权限70
在线时间 小时
本帖最后由 sylun 于
13:07 编辑
jrtzxjh 发表于
看论坛里这么多代码，就这个写的好，运行了一下真的不错
这个写的真好，能帮忙替我写一个吗，我是一个 ...
对代码大概修改了一下，注释可看前面的代码，只是单元格地址的表示方法不同（前者用cell方法，后者用cells属性）。代码如下：Sub test2()
& & '程序在活动Excel文档运行
& & Dim WdApp As Object, myDoc As Object
& & Dim TF As Boolean, i As Integer, r As Long
& & Dim aTable As Object, a(15)
& & Dim c As Byte, n As Integer
& & On Error Resume Next
& & With Application.FileDialog(msoFileDialogFilePicker)
& && &&&.Title = &请选定要处理的Word文档&
& && &&&.Filters.Add &Word文档&, &*.doc&&&'暂定扩展名为doc的Word文档
& && &&&.AllowMultiSelect = True
& && &&&If .Show && -1 Then Exit Sub
& && &&&Set WdApp = GetObject(, &Word.Application&)
& && &&&If Err && 0 Then
& && && && &TF = True
& && && && &Set WdApp = CreateObject(&Word.Application&)
& && &&&End If
& && &&&'WdApp.Visible = True
& && &&&r = ActiveSheet.Range(&a65536&).End(xlUp).Row
& && &&&Application.ScreenUpdating = False
& && &&&For i = 1 To .SelectedItems.Count
& && && && &Set myDoc = WdApp.Documents.Open(.SelectedItems(i))
& && && && &For Each aTable In myDoc.Tables
& && && && && & With aTable.Range&&'共提取16个相关数据
& && && && && && &&&If .Cells(1).Range.Text Like &姓名：*& Then '以第1个单元格内容为依据对表格进行简单识别
& && && && && && && && &For c = 0 To 3
& && && && && && && && && & a(c) = Replace(.Cells(c * 2 + 2).Range.Text, Chr(13) & Chr(7), &&)
& && && && && && && && &Next
& && && && && && && && &For c = 4 To 15
& && && && && && && && && & a(c) = Replace(.Cells(c * 2 + 11).Range.Text, Chr(13) & Chr(7), &&)
& && && && && && && && &Next
& && && && && && && && &Range(Cells(r + i, 1), Cells(r + i, 16)).Value = a
& && && && && && && && &n = n + 1
& && && && && && &&&End If
& && && && && & End With
& && && && &Next
& && && && &myDoc.Close False
& && &&&Next i
& & End With
& & If TF = True Then WdApp.Quit
& & Set WdApp = Nothing
& & MsgBox &提取完毕！共提取了& & n & &个Word文档。&
& & Application.ScreenUpdating = True
End Sub复制代码
优秀作品!!!学习!!!
阅读权限10
在线时间 小时
& & & & & & & &
{:soso_e134:}菜鸟，越看越迷糊，只能路过，不晓得死不是要发帖攒分，才能开主题
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
word2007中如何将表格内容转换为文本格式
在2007中，如果您想去掉表格的显示效果，可以将文档表格中选定的单元格或整个表格转换为文本内容，转换方法如下所述：
第1步，打开word2007文档，选中需要转换为文本的单元格。如果需要将整张表格转换为文本，则只需单击表格任意单元格。在&表格工具&功能区切换到&布局&选项卡，然后单击&数据&分组中的&转换为文本&按钮，如图一所示。
图一 点击&转换为文本&按钮
第2步，在打开的&表格转换成文本&对话框中，选中&段落标记&、&制表符&、&逗号&或&其他字符&单选框。选择任何一种标记符号都可以转换成文本，只是转换生成的排版方式或添加的标记符号有所不同。最常用的是&段落标记&和&制表符&两个选项。选中&转换嵌套表格&可以将嵌套表格中的内容同时转换为文本。设置完毕单击&确定&按钮即可，如图二所示。
图二 &表格转换成文本&
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------
猜你感兴趣您当前所在位置： >
Word表格内容一次性转为图片格式的方法介绍
下面是精品学习网为大家提供的关于Word表格内容一次性转为图片格式的方法的文章，希望对大家有帮助，我们期待大家的持续关注。第一步、在word创建好你想要的表格，包括表格里面的内容。边框和底纹如图设置第二步、在ps中新建空白文档，宽度高度根据需要定，背景白色第三步、依次复制word中部分表格内容如图（主要是ps能接受的一次复制粘贴的高度是有限的，具体尺寸自己摸索啦）第四步、依次将复制好的表格内容粘贴到第二步建好了空白文档中，中间稍微的排排版然后最后合并可见图层，word中好几页的表格就华丽丽的变成了ps中的一张清晰的图片咯。以上就是我们为大家提供的关于Word表格内容一次性转为图片格式的方法的文章，如果对您有帮助，请关注我们的IT教育频道。
上一篇：下一篇：
本文相关阅读
高校查询分数线
考生所在地
北京天津辽宁吉林黑龙江上海江苏浙江安徽福建山东湖北湖南广东重庆四川陕西甘肃河北山西内蒙古河南海南广西贵州云南西藏青海宁夏新疆江西香港澳门台湾
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
地区批次线查询
考生所在地
北京天津辽宁吉林黑龙江上海江苏浙江安徽福建山东湖北湖南广东重庆四川陕西甘肃河北山西内蒙古河南海南广西贵州云南西藏青海宁夏新疆江西香港澳门台湾
科目理科文科综合其他
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
<option value="
院校所在地北京天津辽宁吉林黑龙江上海江苏浙江安徽福建山东湖北湖南广东重庆四川陕西甘肃河北山西内蒙古河南海南广西贵州云南西藏青海宁夏新疆江西香港澳门台湾
其它中央部委
类型工科农业师范民族
层次本科高职(专科)
高考志愿③部曲
频道热门推荐
栏目最新更新君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
如何让Excel和word表格中的数据同步（转）
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口后使用快捷导航没有帐号？
只需一步，快速开始
在线发帖幸运送福利，奖品一波接一波 恭喜：&&
首先声明，关于四合一我们的管理是有漏洞的，请勿喷！
前不久检修遇到这
哈哈哈哈哈哈哈哈哈，看到下面这些智商感人的骗子，楼主只想说，机智！想起来楼主还在
查看: 3615|回复: 18
ASPEN PLUS中表格如何导出到EXCEl 或word中
阅读权限20
积分帖子主题
注册海川与360万海川共分享
才可以下载或查看，没有帐号？
ASPEN PLUS中表格如何导出到EXCEl 或word中，希望有人相助
鼓励新会员发言 多参与才有收获
已有&0&人打赏作者
阅读权限60
积分帖子主题
模型运行后，在主菜单的VIEW/REPORT，选择需要输出的结果点击APPLY，即可生成文本文件，可以在WORD中进行编辑。
建议可行，在2006可以使用，要运行过
阅读权限30
直接拷贝粘帖也可以的
阅读权限65
积分帖子主题
可以从aspen产生的txt文件中直接拷贝
阅读权限55
积分帖子主题
拷贝加粘贴，估计只有这种办法了！
阅读权限20
积分帖子主题
文本文件不能把所有的数据一步导入，很麻烦。有没有像PRO/II那样的一步导入到WORD或者EXCEL的方法？
阅读权限65
积分帖子主题
貌似看到的只有导出到文本然后复制到excel里，继续关注本贴，期待新方法
阅读权限20
积分帖子主题
对于专业人士很实际的问题,不错
阅读权限40
积分帖子主题
v7中有个AspenSimulationWkbook 不知道是不是可以
阅读权限65
积分帖子主题
thebest1984
ASW是用来和模拟软件直接交互，其功能不止你所提及的这些。
【海川旅游猜猜看】定军山下柏森森，千古演书画欣赏004BOG往复式压缩机【海川特产猜猜看】河北篇之01【海川美食*自己动手】039煮一锅猪肉
油箱视镜有泡沫存在，油压无规律波动。水含量为200ppm，这是什么原因？？？
广告投放&事务
事务联系邮箱：&&
日访客10万 欢迎您的参与 化工技术交流第一社区，共同学习 共同提高!
版权所有 海川云天-海川化工论坛 -2004