vba怎么关闭word

1.如何在EXECL中用VBa打开Word,并输出数据到WORD中,保存,关闭

在EXcel的VB编辑器中插入一个模块，输入如下代码试试看。

Sub ExcelToWord()

Dim WordObject As Object '声明一个对象变量，这里即将声明为Word对象

On Error Resume Next

Set WordObject = CreateObject("Word.Application") '用set来创建Word对象，这里是运行Word程序，但未新建文档

WordObject.Visible = 0 '后台运行Word对象，只在任务管理器中存在WinWord.exe进程，但在任务栏上看不到word；如果为1或者True则可以看到word运行界面

WordObject.Documents.Add DocumentType:=wdNewBlankDocument '新建一word文档

'以下为获取Excel表格中的内容，准备把数据传送给Word，可以根据自己的实际需要定制代码，这里只是示例代码

Excel.Application.Sheets(1).Activate '切换当前电子表格的表1为当前激活表

Excel.Application.Sheets(1).UsedRange.Select '选中当前激活表的所有数据

Selection.Copy '将选中的区域进行复制

WordObject.Application.Activate '将后台运行的Word激活为当前窗口

WordObject.ActiveWindow.Selection.Paste '将刚才从Excel中复制进剪贴板中的内容粘贴进word中来

WordObject.Saved = True '将保存文档的Saved属性设置为True，这样后台运行的Word在保存文档时就不会弹出是否保存的对话框了，达到悄无声息的效果

WordObject.ActiveDocument.SaveAs "D:\temp\导出数据.doc" '调用saveas命令保存文档，根据实际，指定文档的保存路径和名称

WordObject.Application.Quit '退出并关闭程序文档

Set WordObject = Nothing '释放对象

End Sub

在word中使用控件工具箱，往往会出现一个问题，设计完成保存之后再打开word（指的是office软件）就会默认进入设计模式（用WPS打开不存在这个问题），换台电脑就无效。下面通过四步操作来实现设置默认退出设计模式。

1.WORD加入控件设计完毕后，退出设计模式，然后保存；

2.在退出设计模式状态下另存为RTF格式；

3.打开RTF格式文件，选择退出设计模式，然后保存；

4.将退出设计模式状态下的RTF格式文件另存为DOC格式，即可。

你这段vba程序是写在word里吗？

如果是的话就有问题了，不能用wjm.Quit，因为wjm是word应用对象，vba不能关闭自身所在的word。

如果不是在word里，运行前先看看任务管理器的进程里有没有winword.exe进程，有的话先杀掉。

其实你可以用F8单步运行的，看走到哪一步出错。

____________________________________________________________

回补充的那个问题，我也不是很懂。

请参见链接，试试 .GetFromClipboard 方法。我没试成功。

又看到论坛上说：在Office 2003版中，VBA不直接提供操作Office剪贴板的方法，因此只能借助API函数来完成。

没有深入研究，楼主再请教高手吧。

在office PPT中，插入向右指的手型图标的方法：

1、单击插入---->符号---->其它符号，如图所示；

2、弹出符号对话框，插入如图所示的符号即可。