查看: 1397|回复: 10
请大神来帮忙！谢谢 ！使用EXCEL VBA获取WORD文件里的部分内容
阅读权限20
在线时间 小时
使用EXCEL VBA获取WORD文件里的部分内容，自动生成(表头字段可以不用自动的),请各位大神们多多指教.
(81.3 KB, 下载次数: 4)
16:22 上传
点击文件名下载附件
阅读权限20
在线时间 小时
自己顶顶& & 是不是太难了& &。。
阅读权限95
在线时间 小时
请测试:Sub Macro1()
& & Dim p$, f$, arr(1 To 10000, 2 To 10), i&, j&, m&
& & Application.ScreenUpdating = False
& & p = ThisWorkbook.Path & &&
& & With CreateObject(&WORD.APPLICATION&)
& && &&&f = Dir(p & &*.rtf&)
& && &&&Do While f && &&
& && && && &m = m + 1
& && && && & .Documents.Open p & f
& && && && &With .ActiveDocument.Tables(2)
& && && && && & For j = 2 To 7
& && && && && && &&&arr(m, j) = Replace(.Cell(j, 2).Range.Text, Chr(7), &&)
& && && && && & Next
& && && && &End With
& && && && &With .ActiveDocument.Tables(3)
& && && && && & For j = 3 To 5
& && && && && && &&&arr(m, j + 5) = Replace(.Cell(j, 2).Range.Text, Chr(7), &&)
& && && && && & Next
& && && && &End With
& && && && &.ActiveDocument.Close
& && && && &f = Dir
& && &&&Loop
& && &&&.Quit
& & End With
& & ActiveSheet.UsedRange.Offset(1).ClearContents
& & Range(&a2&).Resize(m, 9) = arr
& & Application.ScreenUpdating = True
End Sub
阅读权限95
在线时间 小时
(81.17 KB, 下载次数: 17)
17:11 上传
点击文件名下载附件
NB的版主！！
你真太强了！
阅读权限20
在线时间 小时
zhaogang1960 发表于
太棒了！！！！& &
& && &要跟版主多学学
阅读权限95
在线时间 小时
arr定义为2——10
第一个循环2 To 7，下一个应该从8开始
第二个循环3 To 5，j=3时arr应该是8，中间差5
阅读权限20
在线时间 小时
zhaogang1960 发表于
& &这行 arr(m, j + 5) = Replace(.Cell(j, 2).Range.Text, Chr(7), &&) 看了半天没看明白 能否简单讲解一下&&
阅读权限20
在线时间 小时
zhaogang1960 发表于
arr定义为2——10
第一个循环2 To 7，下一个应该从8开始
第二个循环3 To 5，j=3时arr应该是8，中间差5
感谢版主&&虽然还是不大明白为什么要这样计算& & 自己在多学习学习& &感谢
阅读权限20
在线时间 小时
zhaogang1960 发表于
版主你好& &我还有个问题望解答一下&&这段代码 你是如何去找文档内的表格呢？
新手 还望解答&&谢谢
阅读权限95
在线时间 小时
nanohappy 发表于
版主你好& &我还有个问题望解答一下&&这段代码 你是如何去找文档内的表格呢？
新手 还望解答&&谢谢
Dim MyTable As Object
For Each MyTable In ActiveDocument.Tables
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师手动给第一代ipod nano换电池_生活记录_什么值得买
手动给第一代ipod nano换电池
小编注：快过年啦，好文想送你台iPhone X做年货！#年货大作战#征稿活动正在火热进行中，分享年货选购经验、年货选购清单及年货战绩晒物，参与赢iPhone X大奖，更有Kindle、京东礼品卡等多重好礼！戳了解详情手里的这个ipod nano还是第一代的nano，高三暑假的时候拿到的。当时康正处在风口浪尖上，为了平息员工民愤，员工都可以半价购买ipod nano(谁让ipod是富士康代工的呢)，所以就要父亲大人报名去买了一个ipod nano。唯一美中不足的就是是这款后面不是ipod的logo而是富士康的logo，然而现在看来还蛮特别的。一用好几年了，的性能已经大不如前了，以前关上背景灯可以听8个来小时，现在4个小时都不到了。于是起了拆机换电池的念头，淘宝上搜到个卖电池的，拍了下来。顺便在淘宝拍了全套，包括电烙铁，松香，焊锡丝，镊子，支架，吸锡器，准备开工。首先是对ipod的拆开，我不得不说，ipod做的真精密。加之新手第一次拆ipod，2张撬棒全磨废了，手上挂彩了2处才拆开，太不容易！！！真正拆应该从ipod下端也就是数据口那用撬棒小撬一下，ipod的边缘就有一点缝，然后就把撬棒伸进缝里用力撬吧。ipod基本是撬不坏的，不下点狠劲是撬不开的。被磨坏的撬棒。然后就可以看到内部的结构了，由于我要换的仅仅是电池。用电烙铁进行更换就行了，不过得记住电线的顺序，搞错了ipod肯定得挂。按照白红黑三线的顺序依次焊接，买的电池和原装电池的的线的颜色是一样的，对着来就行了。这是更换电池后的ipod nano。最后合上盖子即可，这下ipod nano 初代版算满血复活了，终于充满电能听个5、6个小时了。but！！！&&用了大半年，最后我还是嫌弃它续航短和体积大，最后还是买了个iPod shuffle代替之，只留下这篇文章做纪念了~
本文著作权归作者本人和什么值得买共同所有，未经许可不得转载。文章仅代表作者看法，如有更多内容分享或是对文中观点有不同见解，值客原创欢迎您的投稿。
推荐关注：
鼠标移到标签上方，
尝试关注标签~
相关热门原创
作者其他原创（5）
【轻众测】GANSS GS87-D 蓝牙双模版 樱桃轴机械键盘
iFASUN智能电动四轮金刚滑板车
FIIL 随身星PRO
Forzieri情人节特供 LE PARMENTIER 轻奢女包（随机发货）
DJI大疆创新
PFU HHKB BT蓝牙版 静电容键盘
DJI大疆创新 灵眸OSMO手机云台 2
飞宇科技 Vimble 2 手机稳拍杆（颜色随机）
Wisgrow 慕奈花舍 三生石 智能养花机（颜色随机
赞55评论93
赞35评论62
赞40评论90
赞656评论358
赞860评论367
赞669评论541
赞451评论315
赞630评论368
扫一下，分享更方便，购买更轻松
用户名/邮箱
两周内免登录(溺死的人鱼姬)
(冲浪的枕头)
(you are so char)
(Clover的Solace)
(溺死的人鱼姬)
第三方登录：后使用快捷导航没有帐号？
只需一步，快速开始
查看: 693|回复: 13
在线时间0 小时G币143 最后登录注册时间帖子阅读权限30UID4690578
初中生, 积分 98, 距离下一级还需 2 积分
TA的每日心情郁闷 02:32签到天数: 20 天[LV.4]偶尔看看III
G币143 最后登录注册时间
马上注册，结交更多机友，下载更多应用，让你轻松玩转手机。
已有帐号？　　　下载游戏和软件，请【】进入机锋市场！
就是这样，那位大神知道怎么回事，怎么能改回来，
我先说说手机情况，
今天刷了SuperSU-v2.50&&和Nexus6 官方6.0.1 最新固件mmb29s的包
然后用了一下那个改电量百分比的软件，然后显示百分比不对，卸载了都没用
求救，求救
19:48 上传
点击文件名下载附件
在线时间0 小时G币143 最后登录注册时间帖子阅读权限30UID4690578
初中生, 积分 98, 距离下一级还需 2 积分
TA的每日心情郁闷 02:32签到天数: 20 天[LV.4]偶尔看看III
G币143 最后登录注册时间
是不是root的不对
在线时间0 小时G币143 最后登录注册时间帖子阅读权限30UID4690578
初中生, 积分 98, 距离下一级还需 2 积分
TA的每日心情郁闷 02:32签到天数: 20 天[LV.4]偶尔看看III
G币143 最后登录注册时间
在线时间0 小时G币72 最后登录注册时间帖子阅读权限50UID
大学专科, 积分 248, 距离下一级还需 152 积分
TA的每日心情无聊 17:30签到天数: 54 天[LV.5]常住居民I
G币72 最后登录注册时间
在线时间15 小时G币314 最后登录注册时间帖子阅读权限50UID
大学专科, 积分 337, 距离下一级还需 63 积分
TA的每日心情无聊 20:23签到天数: 129 天[LV.7]常住居民III
G币314 最后登录注册时间
从新刷系统，别ROOT可以正常显示电量。本人也在苦恼不能ROOT
在线时间25 小时G币1010 最后登录注册时间帖子阅读权限80UID
研究生, 积分 1226, 距离下一级还需 474 积分
TA的每日心情怒 05:07签到天数: 110 天[LV.6]常住居民II
G币1010 最后登录注册时间
这个可以有，我也想弄一个
在线时间2 小时G币599 最后登录注册时间帖子阅读权限100UID
博士, 积分 2825, 距离下一级还需 675 积分
TA的每日心情无聊 20:57签到天数: 262 天[LV.8]以坛为家I
G币599 最后登录注册时间
那可以用很长时间啊···
在线时间40 小时G币143 最后登录注册时间帖子阅读权限50UID8287961
大学专科, 积分 308, 距离下一级还需 92 积分
TA的每日心情无聊 19:10签到天数: 54 天[LV.5]常住居民I
G币143 最后登录注册时间
这个刷个修复包就可以了。这是链接
在线时间1556 小时G币387 最后登录注册时间帖子阅读权限90UID5052591
硕士, 积分 2055, 距离下一级还需 445 积分
TA的每日心情慵懒 18:18签到天数: 1 天[LV.1]初来乍到
G币387 最后登录注册时间
内核& && && && &
在线时间46 小时G币159 最后登录注册时间帖子阅读权限60UID7300018
大学本科, 积分 639, 距离下一级还需 61 积分
TA的每日心情无聊 06:40签到天数: 77 天[LV.6]常住居民II
G币159 最后登录注册时间
电量增加了3999%，充电5分钟，通话十年:lol，这句广告词。
Powered by各位贝斯大神们 - 歌单 - 网易云音乐
各位贝斯大神们
播放：60次
喜欢这个歌单的人
网易云音乐多端下载
同步歌单，随时畅听320k好音乐
网易公司版权所有(C)杭州乐读科技有限公司运营：}