万伟锋
word 如何进入VBA
第一步：打开word，如果功能区有开发工具选项，跳到步骤四，如果没有，继续第二步：打开【文件】选项，点选【选项】第三步：选择“自定义功能区”中点选“开发工具”，然后点击确定第四步：点击菜单栏的【开发工具】，点击“Visual Basic”选项，完成。
如何用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...
怎样在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...
如何使用vba语句打开一个word文件.这个wo
Sub test()Dim doc As DocumentSet doc = Documents.Open(＂d：\某文件.doc＂)'打开d盘根目录下名为 某文件.doc 的文档MsgBox doc.Tables(1).Cell(2, 3).Range.Text'显示该文档第1个表格第2行第3列的单元格的文本End Sub
EXCEL VBA 获取打开的word文件名
建议把myworkbook 改为全局变量，在打开过程赋值后，后面的Dim myworkbook As Word.DocumentSet myworkbook = Application.Documents(＂C：\网络公共盘\Normal\C.docm＂)'上面这句执行不了啊这两句去掉，不再重新定义并赋值。
直接使用即可。
这里主要是你在程序内部打开的，操作起来还算便利。
如果是在程序运行之前就已经打开的Word可以用其他方式（GetObject）获得。
excel中如何通过VBA打开word文件和ppt文件？
展开全部 一、打开word文件代码：Set wo = CreateObject(＂Word.Application＂)wo.Documents.Open ThisWorkbook.Path & ＂\流程.doc＂wo.Visible = True二、打开ppt文件代码：方法1:Set wo = CreateObject(＂Powerpoint.Application＂)wo.Visible = Truewo.Presentations.Open ThisWorkbook.Path & filename方法2:Sub dd()Dim filepath$, filename$filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)Shell ＂POWERPNT.EXE ＂ & filepathEnd Sub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。
PrivateSub CommandButton1_Click()Dim wo AsObject Dim app AsObject' 创建PowerPoint应用实例Set app = CreateObject(＂Powerpoint.Application＂)' 使PowerPoint可见app.Visible = True ' 打开PPS文件Set wo = app.Presentations.Open(ThisWorkbook.Path & ＂\a.pps＂)' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误OnErrorGoTo errHandle' PPS演示时全屏...
如何在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...
转载请注明出处51数据库 » vba word 打开文件
