使用VBA如何把WORD中的图片另存为文件？

龙族天堂

逐语句调试到COPY后在WORD文档中不能粘贴，但是在画图程序中却可以粘贴！

我的图片的格式是InlineShape，而不是Shape，这个是不是有什么问题啊？

守柔

这是两个概念，SHAPES 和INLINESHAPE是两个不同的集合。你先用SHAPES集合（你所插入的图形为非嵌入式，调试一下），OK？

龙族天堂

Sub Example() Dim MyApp As Integer, aShape As Shape, i As Integer, PicName As String On Error Resume Next Application.ScreenUpdating = False MyApp = Shell("C:\WINNT\system32\MSPAINT.exe", 1) '运行指定绘图程序

'------------------------------------------------------------------------------------------------

'WORD中的图片是插入的如果使用SHAPE类型，执行的时候根本就不进入到循环中

'只有使用InlineShape类型的时候，才到循环中去，但是这样又不能在画图程序中粘贴图片

'---------------------------------------------------------------------------------------------------- For Each aShape In ActiveDocument.Shapes i = i + 1 '累计 PicName = "D:\YinZhang\Pt00" & i & ".JPG" '设置一个路径和文件名 aShape.Select '选中 Selection.Copy '复制 AppActivate MyApp '激活该应用程序 SendKeys "^v{Enter}", True '发送CTRL+V(粘贴快捷键),对出现的对话框进行确认 SendKeys "%FA", True '打开另存为 SendKeys "{Del}", True '清空(此处还起到一个缓冲作用) SendKeys PicName & "{Enter}", True '保存为*.JPG格式 Next SendKeys "%{F4}", True '退出画图程序 Application.ScreenUpdating = True End Sub

[此贴子已经被作者于2005-2-15 13:12:30编辑过]

守柔

这样吧，还是楼主把你的文档上传，我给你做一下。看看这么多的讨论，还是没有解决问题，我比楼主更急。

龙族天堂

好的

mglLUR2a.rar (108.42 KB, 下载次数: 88)

2005-2-17 17:16 上传

点击文件名下载附件

[此贴子已经被作者于2005-2-17 17:14:59编辑过]

守柔

代码的确有问题,仔细一看,你修改了.

我又重新调试了几次,感觉这次的测试与初次测试差异甚大,重新修改了代码,在四个嵌入式图片中运行了六次,全部正常,请楼主继续测试,如有问题,请及时交流.

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By 守柔(ShouRou)@ExcelHome 2005-2-18 4:37:21 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [标准模块-模块2]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim MyApp As Integer, aShape As InlineShape, I As Integer, PicName As String ' On Error Resume Next Application.ScreenUpdating = False MyApp = Shell("MSPAINT.exe", 1) '运行指定绘图程序 For Each aShape In ActiveDocument.InlineShapes I = I + 1 '累计 PicName = ActiveDocument.Path & "\" & I & ".JPG" '设置一个路径和文件名 aShape.Select '选中 Selection.Copy '复制 AppActivate MyApp '激活该应用程序 SendKeys "^n", True '新建 SendKeys "^v{Enter}", True '发送CTRL+v(粘贴快捷键),对出现的对话框进行确认 SendKeys "%fa", True '打开另存为 SendKeys PicName & "{Enter}", True '保存为*.JPG格式 Next SendKeys "%{F4}", True '关闭画图程序 Application.ScreenUpdating = True End Sub '----------------------

龙族天堂

还是

AppActivate MyApp '激活该应用程序

这一句有问题（运行时错误！5 无效的过程调用或参数！）

守柔

这样：你把DIM MyApp as Integer 改为Dim MyApp as Long,

并在Shell语句后的下面加上一句，Debug.Print MyApp

看一下，是否有问题。

另外，如果再有问题，干脆把文档上来，我给你办了。如果文件很大，可以上传到EXCELHOME的网络硬盘上。

网络硬盘地址：http://free.ys168.com/?excelhome

龙族天堂

还是

AppActivate MyApp '激活该应用程序

这一句有问题（运行时错误！5 无效的过程调用或参数！）运行到这里就出现问题了！

文件就是上次上传的文件！

守柔

以下是引用龙族天堂在2005-2-20 7:42:00的发言：

还是

AppActivate MyApp '激活该应用程序

这一句有问题（运行时错误！5 无效的过程调用或参数！）运行到这里就出现问题了！

文件就是上次上传的文件！

这是我在单位机器上运行上述代码后的截图，请看：

也就是说，我家中的电脑与单位的电脑中，运行全部正确，你能告诉你的电脑配置和OFFICE、SYSTEM系统版本吗？