问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

如何从word文件中提取所有word文档对象?

发布网友 发布时间:2022-03-17 02:48

我来回答

1个回答

热心网友 时间:2022-03-17 04:17

代码不多,可是费了老劲。亲:一定要及时采纳哟。

Sub a()
'导出OLE里的文档
Dim strPath$, strTopic$, intCount%, intEnt%, OActdOC

strPath = ActiveDocument.Path & "\"

Set OActdOC = ActiveDocument
intCount = ActiveDocument.InlineShapes.Count

If intCount = 0 Then Exit Sub

For cx = 1 To intCount
With OActdOC.InlineShapes(cx).OLEFormat
If InStr(UCase(Format(.ClassType)), "WORD.DOCUMENT") <> 0 Then
With .Object
strTopic = Trim(.Paragraphs(1).Range.Text)
intEnt = InStr(strTopic, Chr(13)) - 1
strTopic = Left(strTopic, intEnt)
If Len(strTopic) > 200 Then strTopic = Left(strTopic, 30)
'如果出错,则是内嵌文件第一段里有不适用于文件名的字符,可用正则排除,本人不熟
.SaveAs strPath + strTopic
End With
End If
End With
Next

End Sub
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
关于第一次经典语录 ...三个月后打开包装发现里面零件全部损坏,请问能去超市退换 微单相机哪个品牌好 一首歌在酷狗上查找猪猪非主流歌曲club 沙拉拉就有求歌名 一首英文DJ,歌词是"刷啦啦哩,刷啦啦啦哩"还有歌词听起来好像是:"I wa... sha la la la sha la la lei 是什么歌 男孩起名字大全免费2025年 姓李的男孩起名字大全 ...九月十二(阴历)下午16点 出生 姓李 希望大师给起个好点的名字... 电脑开机提示先激活windows电脑上出现要激活WINDOWS是什么意思_百度知 ... 中国建设银行从邮政储蓄银行提钱会产生多少费用 怎样把Microsoft Word 文档中的照片提取出来? word中插入的对象文件如何提取出来? 如何提取word中内嵌的excel文件(显示为图片),并以文件的形式保存? Word档中附件PDF如何提出来 在拼多多,和客服聊天,为什么手机没法点拍视频按键 ⅤiVO手机拼多多里的多多视频变成了直播怎么办? 拼多多的商品视频是怎么找的? 手机版拼多多出售中的产品怎么添加视频? 片片多多的视频怎么能保存到手机上 请问羽绒服是干洗还是水洗好,应该如何清洗? 请问羽绒服能不能水洗啊,还是一定要干洗呢。 羽绒服是不是要干洗? 苏州的朋友我想问你们知道羽绒服是水洗还是干洗? 羽绒服清洗是要用水洗还是需要送去干洗?哪种清洗方式不伤衣服? 羽绒服应该水洗还是干洗?是不能分开那种。 羽绒服是鸭绒好还是鹅绒好,羽绒服可以跟普通的衣服那样洗吗?可不可以干洗?怎样洗才可以保护的更好? 把羽绒服拿到外面的洗衣店去水洗的话,他们是手洗还是机洗? 洗羽绒服干洗还是水洗? 羽绒服一定要干洗还是水洗? 羽绒服是干洗好还是水洗好啊? 如何把文件夹中的word文档名称提取出来? 如何将插在word文档里的图片提取出来成为单独的文件? 如何批量提取多个Word的文件名? 如何把word中的visio文件提取并保存 手机和电脑怎样互传文件? 手机文件怎么互传 两台手机怎么互传文件 手机怎么互相传文件 一加手机怎么与iPhone互传文件? 两手机怎么互传文件 如何使用手机蓝牙互传文件件 安卓手机如何将文件传送到另一个手机? 怎样去除洗手池上的水渍 洗手池污垢怎么去除? 洗手池污渍怎么去除 洗脸池里面的污渍怎么去除 洗脸池,陶瓷上的污垢怎么祛除 怎么清洗洗手盆上的污渍 洗手盆污渍 洗手池的锈渍怎么去除 洗手台有黄渍怎么去除