fieldset{padding:10px;}
Word07 VBA读取修订信息Revisions出错，运行时错误'5852'，要求的对象不可用Word07VBA读取修订信息Revisions出错，运行时错误’5852’，要求的对象不可用代码如下：PublicSubExecuteCompare(KeyDocPathAsString,CompareDocDirPathAsString)DimkeyDocAsDocument,comDocAsDocument,newDocAsDocument’打开原始文档SetkeyDoc=Documents.Open(FileName:=KeyDocPath,Visible:=False)SetcomDoc=Documents.Open(FileName:=CompareDocDirPath,Visible:=False)SetnewDoc=Application.CompareDocuments(keyDoc,comDoc)keyDoc.ClosecomDoc.CloseWriteResultToTextFilenewDoc.Revisions,Replace(CompareDocDirPath,”.docx”,”.txt”)EndSub’将不同之处记录到一个与doc文档同名的txt文件中PrivateSubWriteResultToTextFile(ResultRevisionsAsRevisions,FileNameAsString)DimiCountAsInteger,revAsRevisionDimFSOAsNewFileSystemObject,tsAsTextStreamSetts=FSO.CreateTextFile(FileName)ts.WriteLine(“共”&CStr(ResultRevisions.Count)&”处修订:”)ts.WriteBlankLines1iCount=1ForEachrevInResultRevisionsts.WriteLineiCount&TypeToDescription(rev.Type)ts.Writerev.Rangets.WriteBlankLines2iCount=iCount+1Nextts.CloseSetts=NothingEndSub’返回用户更改的类型对应说明PrivateFunctionTypeToDescription(revTypeAsWdRevisionType)AsStringDimretStrAsStringSelectCaserevTypeCaseWdRevisionType.wdNoRevisionretStr=”无修订”CaseWdRevisionType.wdRevisionConflictretStr=”将修订标记为冲突”CaseWdRevisionType.wdRevisionDeleteretStr=”删除”CaseWdRevisionType.wdRevisionDisplayFieldretStr=”域显示方式已更改”CaseWdRevisionType.wdRevisionInsertretStr=”插入”CaseWdRevisionType.wdRevisionParagraphNumberretStr=”段落编号已更改”CaseWdRevisionType.wdRevisionParagraphPropertyretStr=”段落属性已更改”CaseWdRevisionType.wdRevisionPropertyretStr=”属性已更改”CaseWdRevisionType.wdRevisionReconcileretStr=”将修订标记为已解决的冲突”CaseWdRevisionType.wdRevisionReplaceretStr=”已替换”背起简单的行攘，沐浴自由的风。
