求助一个屏蔽宏运行时弹出对话框的办法

柳眉儿

一转眼，好几年过去了，曾在08年左右，我在咱们这个论坛时曾经得到过守柔等老师的帮助，解决过工作中的好几个难题，同时，EXCEL水平也得到了很大的提高，后来，由于工作变动，也很少来这个论坛了。现在又遇到了一个难题，问过多人，未曾解决，只好又求助于论坛中的老师了。
是这样子的：
我想下载一些杂志的原貌电子版（当然，正规手段是不允许下载的），通过分析，得知，该杂志的原貌版的每一页是由24个小图片组成，而对于各个小图片，杂志的网站并没有做太大的防备，前期我用下载软件将小图片全部下载下来再拼成整页文章，但这个工作量太大，效率很低，后来我想到了用WORD的粘贴图片功能，就是用宏来实现用WORD对杂志小图片的逐一粘贴，而实现整篇文章都按顺序粘贴在一个WORD页面中，最终实现整本杂志的制作。最后只要将WORD转化为PDF，就完成了一本杂志的下载。通过实践，这个方法可行，顺利的话，一本杂志10分钟左右能实现完成。
现在问题是这样子的，我想一次性下载一系列的杂志，挂着机子一个晚上来完成。但在实际过程中，会遇到有时一张小图片无法下载，会弹出一个对话框，如下：

而必须要手工点击“确定”以后，宏才会继续运行，因些无法实现挂机自动下载。目前我已在宏中加入了“Application.DisplayAlerts = wdAlertsNone ”、“Application.Options.ConfirmConversions = False” 、“On Error Resume Next”三条语句，还是无法阻止此信息的弹出。
我想请教一下论坛中的老师，我要用什么办法才能阻止此信息的弹出，或者信息弹出后能自动“确定”，而实现宏继续往下运行。其实，一本杂志里几张小图片未下载下来，关系不大，后期我用小空白图片填充即可。我就是想要宏不要因为这个信息而中断运行。我也不知道我讲清楚了没有，请知道的高手们指点，谢谢！
附上我目前用的代码：
批量下载代码.rar (1.93 KB, 下载次数: 22)

2012-12-1 16:03 上传

点击文件名下载附件

柳眉儿

555555555555,怎么没人帮我呢？

daocaoai

求助！楼主不知道你的问题解决了没，我也遇到类似的情况，我的宏每运行一下就要确认一下，我想整个文档一下子处理完就要点无数下确认。。。求助

周星骋

楼主觉得将
On Error Resume Next
一句变成两句咋样？如下：

On Error GoTo skiperror
……
……
skiperror:
On Error Resume Next

我不懂VBA，乱猜的。

pipiludaxian

Application.DisplayAlerts = wdAlertsNone

zhanglei1371

这种问题，word几乎无法完成，而ahk或按键精灵任意一个可轻松搞定。简单的掉碴了……

loquat

zhanglei1371 发表于 2014-9-19 19:12
这种问题，word几乎无法完成，而ahk或按键精灵任意一个可轻松搞定。简单的掉碴了……

但是好像用脚本还是没有自带的程序效率高。。。