如何用vba代码打开文件夹内的word文档？

Question

如题所述

Answer 1

Sub Read_Word()\x0d\x0aDim worDoc As object\x0d\x0aDim wordappl As object\x0d\x0aDim mydoc As String\x0d\x0aDim myappl As String\x0d\x0amydoc = thisworkbook.path & "\" & "文件名.doc"　　　\x0d\x0a'本文档目录下的doc文件，这里可以直接改成路径＋文件名的形式\x0d\x0aSet wordappl = CreateObject("Word.application")　　'设置wordappl对象\x0d\x0aSet worDoc = wordappl.Documents.Open(mydoc)　\x0d\x0a'打开word文档，mydoc变量指定路径和文件名\x0d\x0aworDoc.Activate　　'激活打开的文档\x0d\x0awordappl.Selection.WholeStory '全选文档\x0d\x0awordappl.Selection.Copy　　'复制选择内容到剪贴板\x0d\x0aworDoc.Application.Quit　　'关闭word文档\x0d\x0aSet WordApp = Nothing　　'释放对象变量的内存\x0d\x0aWorkbooks(1).Sheets(2).Activate '激活excel第一个工作簿的第二个工作表\x0d\x0aActiveSheet.UsedRange.Clear　　　'把当前工作表清空，如果有重要数据，这条删除\x0d\x0aCells(1, 1).Select　　　　'选择A1单元格\x0d\x0aActiveSheet.Paste　　'粘贴复制的内容\x0d\x0awordappl.quit\x0d\x0aset wordappl =nothing\x0d\x0aEnd Sub