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

Sub Read_Word()
Dim worDoc As object
Dim wordappl As object
Dim mydoc As String
Dim myappl As String
mydoc = 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.quit
set wordappl =nothing
End Sub