求助帮忙修改：去掉一个文件夹里的所有word的修订痕迹（track change）

comma6859

Public Sub allwordtoexcel()

Dim folder$

Dim worddoc As word.document

Dim wordapp as word.application

Dim mydoc As String

folder = ThisWorkbook.Path

mydoc = Dir(folder & "\*.docx")

Do While mydoc <> ""

Set worddoc = wordapplication.documents.Open(folder &"\" & mydoc)

worddoc.AcceptAllRevisions

worddoc.TrackRevisions = False

worddoc.Close

mydoc = Dir

Loop

End Sub

显示“Dim wordapp as word.application”这一句，“compile error user-defined type not defined”，该怎么修改呢？

谢谢大神们！