vba关闭word
- 作者: 不许调戏小黄鸡
- 来源: 51数据库
- 2020-04-21
一、如何在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
二、vba关闭word总出现normal.dot
你这段vba程序是写在word里吗？
如果是的话就有问题了，不能用wjm.Quit，因为wjm是word应用对象，vba不能关闭自身所在的word。
如果不是在word里，运行前先看看任务管理器的进程里有没有winword.exe进程，有的话先杀掉。
其实你可以用F8单步运行的，看走到哪一步出错。
____________________________________________________________
回补充的那个问题，我也不是很懂。
请参见链接 http://www.china-askpro.com/msg7/qa28.shtml，试试 .GetFromClipboard 方法。我没试成功。
又看到论坛上说：在Office 2003版中，VBA不直接提供操作Office剪贴板的方法，因此只能借助API函数来完成。
没有深入研究，楼主再请教高手吧。
三、vba关闭word总出现normal.dot
你这段vba程序是写在word里吗？如果是的话就有问题了，不能用wjm.Quit，因为wjm是word应用对象，vba不能关闭自身所在的word。
如果不是在word里，运行前先看看任务管理器的进程里有没有winword.exe进程，有的话先杀掉。其实你可以用F8单步运行的，看走到哪一步出错。
____________________________________________________________回补充的那个问题，我也不是很懂。请参见链接 http://www.china-askpro.com/msg7/qa28.shtml，试试 .GetFromClipboard 方法。
我没试成功。又看到论坛上说：在Office 2003版中，VBA不直接提供操作Office剪贴板的方法，因此只能借助API函数来完成。
没有深入研究，楼主再请教高手吧。
四、求教VBA问题,如何让word在另存关闭
Private Function SaveAsFile(ByVal fileFormat As String)
Dim strDocName As String
Dim intPos As Integer
'Find position of extension in filename
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")
If intPos = 0 Then
'If the document has not yet been saved
'Ask the user to provide a filename
strDocName = InputBox("Please enter the name of your document.")
Else
'Strip off extension
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & fileFormat
End If
'Save file with new extension
ActiveDocument.SaveAs fileName:=strDocName, fileFormat:=wdFormatText
'Close active document
ActiveDocument.Close SaveChanges:=wdSaveChanges, OriginalFormat:=wdOriginalDocumentFormat
End Function
五、不能关闭Word VBA设计模式问题,怎么解决
在word中使用控件工具箱，往往会出现一个问题，设计完成保存之后再打开word（指的是office软件）就会默认进入设计模式（用WPS打开不存在这个问题），换台电脑就无效。下面通过四步操作来实现设置默认退出设计模式。
1.WORD加入控件设计完毕后，退出设计模式，然后保存；
2.在退出设计模式状态下另存为RTF格式；
3.打开RTF格式文件，选择退出设计模式，然后保存；
4.将退出设计模式状态下的RTF格式文件另存为DOC格式，即可。
六、列举出五种关闭WORD2010的方法
方法1 建好Excel工作薄，点击左上角“文件”选项，在菜单中我们可以看到“保存”和“另存为”两个选项，点击即可。
方法2 直接点击左上角的两个“保存”按钮，只需点击其中一个即可。 方法3 点击编辑栏右边的“关闭”按钮，然后选择“保存”选项。
方法4 在“经典菜单”功能栏中点击“全部”，然后在下拉菜单中的“文件”里短戟“保存”或者“另存为”，其实可以直接点击“文件”，也可以点击保存选项。 方法5 在键盘上按"Ctrl+S"组合键或者是"Ctrl+F12"组合键，都可以直接进行保存。
