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
