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

龙族天堂

电脑配置：

office版本：

[此贴子已经被作者于2005-2-20 10:59:29编辑过]

守柔

可能是OFFICE版本的差异造成的。记得好多程序在WORD2000中都有问题。能否请你到OFFICXP的电脑上试一下，以及你可否考虑升级为2002（XP）或者2003啊？

龙族天堂

在2003版本中也是不可以的啊！

也是AppActivate MyApp '激活该应用程序这句有问题！

henterwu

2003En中没有发生楼上的问题，不能传递Ctrl + V， Alt +e,p也不行。我再试试其他途径。

不理解：SendKeys "^v{Enter}", True 能解释一下吗？没有Enter会怎样，我这里出同样错！

[此贴子已经被作者于2005-2-20 17:05:28编辑过]

cxffxc

直接录制一个另存为htm文档的宏如何？

henterwu

以下是引用cxffxc在2005-2-20 19:07:00的发言： 直接录制一个另存为htm文档的宏如何？

这不符合楼主的精神！虽然我还觉得这是最好的方法。

龙族天堂

斑竹：

还有什么方法吗？

守柔

以下是引用龙族天堂在2005-2-21 13:47:00的发言：

斑竹：

还有什么方法吗？

用此法应该没有问题：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-2-21 14:10:59 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [标准模块-模块2]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim aShape As InlineShape, I As Integer, PicName As String ' On Error Resume Next Application.ScreenUpdating = False For Each aShape In ActiveDocument.InlineShapes Shell "MSPAINT.exe", 1 '运行指定绘图程序 I = I + 1 '累计 PicName = ActiveDocument.Path & "\" & I & ".JPG" '设置一个路径和文件名 aShape.Select '选中 Selection.Copy '复制 SendKeys "^v{Enter}", True '发送CTRL+V(粘贴快捷键),对出现的对话框进行确认 SendKeys "%fa", True '打开另存为 SendKeys PicName & "{Enter}", True '保存为*.JPG格式 SendKeys "%{F4}", True '退出画图程序 Next Application.ScreenUpdating = True End Sub '---------------------- 显然此法较以上方法，是在反复开关绘图程序，通常不提倡，但既然行不通，则好这样了。请楼主再试一下。

守柔

以下是引用henterwu在2005-2-20 17:04:00的发言：

2003En中没有发生楼上的问题，不能传递Ctrl + V， Alt +e,p也不行。我再试试其他途径。

不理解：SendKeys "^v{Enter}", True 能解释一下吗？没有Enter会怎样，我这里出同样错！

关于SendKeys 的应用可参：http://club.excelhome.net/viewthread.php?tid=71671

button

chijanzen先生有在EXCEL中用API实现图片另存为BMP的例子，可以到他的网页上去下一个，