Word控件Spire.Doc 【文档操作】教程(二十)：通过比较 C#/VB.NET 中的两个 Word 文档来获取差异

如何添加复选框和图片内容控件的代码片段：

【C#】

using Spire.Doc;using Spire.Doc.Documents;using Spire.Doc.Fields;using Spire.Doc.Formatting.Revisions;using System;namespace GetWordDifferences{class Program{static void Main(string[] args){//Load the first Word documentDocument doc1 = new Document();doc1.LoadFromFile("Sample1.docx");//Load the second Word documentDocument doc2 = new Document();doc2.LoadFromFile("Sample2.docx");//Compare the two Word documentsdoc1.Compare(doc2, "Author");foreach (Section sec in doc1.Sections){foreach (DocumentObject docItem in sec.Body.ChildObjects){if (docItem is Paragraph){Paragraph para = docItem as Paragraph;if (para.IsInsertRevision){EditRevision insRevison = para.InsertRevision;EditRevisionType insType = insRevison.Type;string insAuthor = insRevison.Author;DateTime insDateTime = insRevison.DateTime;}else if (para.IsDeleteRevision){EditRevision delRevison = para.DeleteRevision;EditRevisionType delType = delRevison.Type;string delAuthor = delRevison.Author;DateTime delDateTime = delRevison.DateTime;}foreach (ParagraphBase paraItem in para.ChildObjects){if (paraItem.IsInsertRevision){EditRevision insRevison = paraItem.InsertRevision;EditRevisionType insType = insRevison.Type;string insAuthor = insRevison.Author;DateTime insDateTime = insRevison.DateTime;}else if (paraItem.IsDeleteRevision){EditRevision delRevison = paraItem.DeleteRevision;EditRevisionType delType = delRevison.Type;string delAuthor = delRevison.Author;DateTime delDateTime = delRevison.DateTime;}}}}}//Get the difference about revisionsDifferRevisions differRevisions = new DifferRevisions(doc1);var insetRevisionsList = differRevisions.InsertRevisions;var deletRevisionsList = differRevisions.DeleteRevisions;}}}

【VB.NET】

Imports Spire.DocImports Spire.Doc.DocumentsImports Spire.Doc.FieldsImports Spire.Doc.Formatting.RevisionsImports SystemNamespace GetWordDifferencesClass ProgramPrivate Shared Sub Main(ByVal args() As String)'Load the first Word documentDim doc1 As Document = New Documentdoc1.LoadFromFile("Sample1.docx")'Load the second Word documentDim doc2 As Document = New Documentdoc2.LoadFromFile("Sample2.docx")'Compare the two Word documentsdoc1.Compare(doc2, "Author")For Each sec As Section In doc1.SectionsFor Each docItem As DocumentObject In sec.Body.ChildObjectsIf (TypeOf docItem Is Paragraph) ThenDim para As Paragraph = CType(docItem,Paragraph)If para.IsInsertRevision ThenDim insRevison As EditRevision = para.InsertRevisionDim insType As EditRevisionType = insRevison.TypeDim insAuthor As String = insRevison.AuthorDim insDateTime As DateTime = insRevison.DateTimeElseIf para.IsDeleteRevision ThenDim delRevison As EditRevision = para.DeleteRevisionDim delType As EditRevisionType = delRevison.TypeDim delAuthor As String = delRevison.AuthorDim delDateTime As DateTime = delRevison.DateTimeEnd IfFor Each paraItem As ParagraphBase In para.ChildObjectsIf paraItem.IsInsertRevision ThenDim insRevison As EditRevision = paraItem.InsertRevisionDim insType As EditRevisionType = insRevison.TypeDim insAuthor As String = insRevison.AuthorDim insDateTime As DateTime = insRevison.DateTimeElseIf paraItem.IsDeleteRevision ThenDim delRevison As EditRevision = paraItem.DeleteRevisionDim delType As EditRevisionType = delRevison.TypeDim delAuthor As String = delRevison.AuthorDim delDateTime As DateTime = delRevison.DateTimeEnd IfNextEnd IfNextNext'Get the difference about revisionsDim differRevisions As DifferRevisions = New DifferRevisions(doc1)Dim insetRevisionsList = differRevisions.InsertRevisionsDim deletRevisionsList = differRevisions.DeleteRevisionsEnd SubEnd ClassEnd Namespace

欢迎下载|体验更多E-iceblue产品

如需获取更多产品相关信息请咨询在线客服  

标签：