A. 如何用vba 代码打开一个文件夹内的一个word 文档
Sub Read_Word()Dim worDoc As objectDim wordappl As objectDim mydoc As StringDim myappl As Stringmydoc = thisworkbook.path & "\" & "文件名.doc"'本文档目录下的doc文件，这里可以直接改成路径＋文件名的形式Set wordappl = CreateObject("Word.application")'设置wordappl对象Set worDoc = wordappl.Documents.Open(mydoc)'打开word文档，mydoc变量指定路径和文件名worDoc.Activate'激活打开的文档wordappl.Selection.WholeStory '全选文档wordappl.Selection.Copy'复制选择内容到剪贴板worDoc.Application.Quit'关闭word文档Set WordApp = Nothing'释放对象变量的内存Workbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表ActiveSheet.UsedRange.Clear'把当前工作表清空，如果有重要数据，这条删除Cells(1, 1).Select'选择A1单元格ActiveSheet.Paste'粘贴复制的内容wordappl.quitset wordappl =nothingEnd Sub
B. 如何用vba 代码打开一个文件夹内的一个word 文档
比如:Shell"WINWORD.EXEC:\12345.doc",vbNormalFocus在excel中，横向选中两个单元格，就打开c:\下的12345.doc文件PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfTarget.Row>2AndTarget.Rows.Count=1AndTarget.Columns.Count=2ThenShell"WINWORD.EXEC:\12345.doc",vbNormalFocusEndIfEndSub
C. 怎样在EXCEL的VBA中打开一个WORD文件
'首先要在vba中引专用属Microsoft Word 11.0 Object LibraryDim Wdapp As Word.ApplicationDim WdDocument As Word.DocumentDim UserFile As StringPrivate Sub CommandButton1_Click() Set Wdapp = New Word.Application UserFile = Wdapp.Path & "\1.doc" Set WdDocument = Wdapp.Documents.Open("c:\1.doc") Wdapp.Visible = TrueEnd Sub
D. 用vba打开word文档
1 遍历已经打开的word对象的文件名，如果跟你要打开的一致，那就是已经打开了。2 打开新文件，监控打开新文件时word的提示，如果有文件已打开的提示，那也是已经打开了。
E. 用vba打开word模板并修改后保存
1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》 【插入模块】;
F. 如何使用vba语句打开一个word文件.
这个word文件是带密码的, 但密码是已知的. 比如是66打开无密码文件时, 去掉语句的后半部分是能正常运行的. 只是不知道有密码时的语句格式.
G. 在excel里通过vba打开word文件并打印
在EXcel的VB编辑器中插入一个模块，输入如下代码试试看。Sub ExcelToWord()Dim WordObject As Object '声明一个对象变量，这里即将声明为Word对象On Error Resume NextSet 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
未经允许不得转载：山九号 » wordvba打开word文件|怎样在EXCEL的VBA中打开一个WORD文件
