sub Read _ Word()\ x0d \ Dim Word oc As object \ x0d \ Dim Word appl As object \ x0d \ Dim mydoc As String \ x0d \ Dim myappl As String \ x0d \ mydoc = this workbook . path & amp；" \ " & amp“文件名。doc" \x0d\' Doc文件在這個文檔目錄下，在這裏妳可以直接把它改成路徑+文件名\ x0d \ Set word app = createobject(" word。application ")' Set word app object \ x0d \ Set word oc = word appl . documents . open(mydoc)\ x0d \ '打開壹個word文檔，mydoc變量指定路徑和文件名\x0d\worDoc。“激活”激活打開的文檔\ x0d \ wordappl . selection . whole story“選擇所有文檔\ x0d \ word appl。'將所選內容復制到剪貼板\x0d\worDoc。Application.Quit '關閉word文檔\x0d\Set WordApp = Nothing '並釋放對象變量\x0d\ Workbooks的內存(1)。床單(2)。激活excel \ x0d \ activesheet中第壹個工作簿的第二個工作表。usedrange.clear '清除當前工作表。如果有重要數據，刪除此項\x0d\Cells(1，1)。選擇'選擇單元格A1 \x0d\ActiveSheet。“粘貼”以粘貼復制的內容\ x0d \ word appl . quit \ x0d \ setwordappl = nothing \ x0d \ end sub。
上一篇:flash制作下雪下一篇:爐石傳說月初拿低保狂野赫米特dk海盜戰卡組搭配