在有檔案的資料夾中新建一個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
在有檔案的資料夾中新建一個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