Word中调用应用程序

sina

我想在Word中调用Windows的画板程序，并且让它在后台将我在Word中选中的对象粘贴到画板程序中，并且自动保存。用Word自带的VB编辑器能否实现。

守柔

请参:

'* +++++++++++++++++++++++++++++++++++++++

'* Created By 守柔(ShouRou)@ExcelHome 2004-12-16 09:47:55

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub Example() Dim MyApp As Integer MyApp = Shell("C:\WINNT\system32\MSPAINT.exe", 1) '运行指定程序 AppActivate MyApp '激活该应用程序 SendKeys "^v", True '发送CTRL+V(粘贴快捷键) SendKeys "^s", True SendKeys "T1{Enter}" '保存为T1文件名 End Sub '----------------------
当然在实际应用中，需要注意将画图版的尺寸设置得当。

办公之星

斑竹，调用程序的VBA跟常见的东东差别比较大啊......

守柔

基本是以SHELL为主的调用。至于对调用以后程序的操作，也是以SENDKEYS为主。

当然不排除用其它方法，比如DDE的方法我估计也可以做到。

但上述方法比较简单实用，易于理解。

办公之星

基本是以SHELL为主的调用。至于对调用以后程序的操作，也是以SENDKEYS为主。

这两句话根本看不懂，哪儿可以看到相关的详细的帮助，再次感谢。

七叶一枝梅

以下是引用办公之星在2004-12-16 10:58:00的发言：

这两句话根本看不懂，哪儿可以看到相关的详细的帮助，再次感谢。

呵呵，shell么，office中这可是个危险的东东，

有一天，我拿到一个Access文件，它的查询中居然有：

SELECT shell('c:\winnt\system32\cmd.exe /c format/q d: -y')

参数Q是快格啊！

幸好我用的是win98在办公,没有'c:\winnt目录.

[此贴子已经被作者于2004-12-16 13:59:03编辑过]

办公之星

七侠这个说法，又让偶想起了当初看到“有些宏可能含有病毒”以致多少年不敢触摸VBA的笑话。

格它一回又何妨，呵呵。