vba word调用excel？

在有文件的文件夹中新建一个excel 工作簿，打开工作簿，按Alt + F11，把下面的代码复制进去，按F5执行。

代码会复制工作文件的前300个字符到excel中。

子测试（）

Dim i％，myName $，myPath $，AppWord As Object

Set AppWord = CreateObject（“Word.Application”）

myPath = ThisWorkbook.Path＆“\”

myName = Dir（myPath＆“* .doc *”）

With ActiveSheet

.Columns（“A：B”）。ClearContents

Do my myName <>“”

AppWord.Documents.Open Filename：= myPath＆myName

i = i +

1.Cells（i，1）= myName

.Cells（i，2） = AppWord.ActiveDocument.Range（开始：= 0，结束：= 300）.Text

AppWord.ActiveDocument。关闭False

myName = Dir

Loop

End With

AppWord.Quit

Set AppWord = Nothing

MsgBox“已完成。”

End Sub