vb.net对doc文件进行处理，批量接受全部修订

 在处理文档的时候遇到一个问题，不知道怎么修订，后面在文档中终于翻到了。

部分代码

Dim tgtDocument As Microsoft.Office.Interop.Word.Document
Dim tgtWordApp As New Microsoft.Office.Interop.Word.Application
//打开目标文档
tgtDocument = tgtWordApp.Documents.Open(tgtFile, [ReadOnly]:=0)
//接受修订
tgtDocument.Revisions.AcceptAll()