怎么批量删除PDF OCR后的Word文件中的底层图片，谢谢

dtxingmc · 发表于 2017-12-3 08:20

duquancai · 发表于 2017-12-3 09:00

本帖最后由 duquancai 于 2017-12-3 09:29 编辑

Sub test1()
Dim d As Document
Set d = ActiveDocument
For i = d.Shapes.Count To 1 Step -1
d.Shapes(i).Delete
Next
End Sub
Sub test2()
For i = 1 To ActiveDocument.Shapes.Count
d.Shapes(1).Delete
Next
End Sub

以上两段代码都可以。。。。。。。。。。。。。。

dtxingmc · 发表于 2017-12-3 10:13

duquancai 发表于 2017-12-3 09:00
Sub test1()
Dim d As Document
Set d = ActiveDocument

第一段可以解决问题，第二段出现错误。谢谢大神的无私帮助，能帮忙解释一下代码的确切含意吗，谢谢。

2489586288 · 发表于 2017-12-3 11:26

第二段的d变量有问题，没有赋值

duquancai · 发表于 2017-12-3 11:38

dtxingmc 发表于 2017-12-3 10:13
第一段可以解决问题，第二段出现错误。谢谢大神的无私帮助，能帮忙解释一下代码的确切含意吗，谢谢。

现修正第二段代码如下：

Sub test2()
For i = 1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(1).Delete
Next
End Sub

13907933959 · 发表于 2017-12-3 15:00

本帖最后由 13907933959 于 2017-12-4 07:49 编辑

重了，删除。

dtxingmc · 发表于 2017-12-3 15:14

duquancai 发表于 2017-12-3 11:38
现修正第二段代码如下：

Sub test2()

第二段修改后还是不行，请大神给看看，谢谢

duquancai · 发表于 2017-12-3 15:17

dtxingmc 发表于 2017-12-3 15:14
第二段修改后还是不行，请大神给看看，谢谢

不行就用第一段能行的代码就行了，没什么好看的，不行就算了。

13907933959 · 发表于 2017-12-3 15:21

网友好！
我是学中医的，对这本书有兴趣，可否请您上传完整的全书（Word版本的），将万分感谢！

dtxingmc · 发表于 2017-12-3 15:27

13907933959 发表于 2017-12-3 15:21
网友好！
我是学中医的，对这本书有兴趣，可否请您上传完整的全书（Word版本的），将万分感谢！

等我做完了发给你，邮箱留下

		自动登录	找回密码
密码			免费注册

[求助] 怎么批量删除PDF OCR后的Word文件中的底层图片，谢谢