DocumentBase.RevisedDocumentTitle 属性
定义
重要
一些信息与预发行产品相关，相应产品在发行之前可能会进行重大修改。 对于此处提供的信息，Microsoft 不作任何明示或暗示的担保。
获取执行显示更改的文档比较操作后的修订文档的标题。
public string RevisedDocumentTitle { get; }属性值
执行显示更改的文档比较操作后的修订文档的标题。
示例
下面的代码示例将文档级自定义项中的 Word 文档（称为原始文档）与同一文档的另一版本（称为修订的文档）进行比较。 它将比较结果置于原始文档中。 然后，该示例向用户通知：原始文档的标题和修改后的文档的标题是否相同或不同，并显示这两个文档标题。 若要使用此示例，请在 ThisDocument 文档级项目的类中运行它。
private void GetDocumentTitlesAfterComparison()
{
object OriginalFileName = @"c:\myDocs\HikingGuide.docx";
Word.Document originalDoc = this.Application.Documents.Open(
ref OriginalFileName, ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing, ref missing,
ref missing);
object RevisedFileName = @"c:\myDocs\RevisedHikingGuide.docx";
Word.Document revisedDoc = this.Application.Documents.Open(
ref RevisedFileName, ref missing, ref missing, ref missing, ref missing,
ref missing,ref missing, ref missing, ref missing, ref missing,
ref missing, ref missing, ref missing, ref missing,ref missing,
ref missing);
this.Application.CompareDocuments(
originalDoc, revisedDoc,
Word.WdCompareDestination.wdCompareDestinationOriginal,
Word.WdGranularity.wdGranularityWordLevel, true, true,
true, true, true, true, true, true, true, true, "", true);
StringBuilder sb = new StringBuilder();
if (this.OriginalDocumentTitle == this.RevisedDocumentTitle)
{
sb.Append(
"The titles of the orginal and revised document are identical.");
}
else
{
sb.Append(
"The titles of the orginal and revised document are different.");
}
sb.Append(
"\r\nTitle of original document: " + this.OriginalDocumentTitle
+ "\r\nTitle of revised document: " + this.RevisedDocumentTitle);
MessageBox.Show(sb.ToString());
}
Private Sub GetDocumentTitlesAfterComparison()
Dim originalFileName As Object = "c:\myDocs\HikingGuide.docx"
Dim originalDoc As Word.Document = Me.Application.Documents.Open( _
originalFileName)
Dim revisedFileName As Object = "c:\myDocs\RevisedHikingGuide.docx"
Dim revisedDoc As Word.Document = Me.Application.Documents.Open( _
revisedFileName)
Me.Application.CompareDocuments( _
originalDoc, revisedDoc, _
Word.WdCompareDestination.wdCompareDestinationOriginal, _
Word.WdGranularity.wdGranularityWordLevel, True, True, _
True, True, True, True, True, True, True, True, "", True)
Dim sb As StringBuilder = New StringBuilder()
If Me.OriginalDocumentTitle = Me.RevisedDocumentTitle Then
sb.Append("The titles of the orginal and revised document are identical.")
Else
sb.Append("The titles of the orginal and revised document are different.")
End If
sb.Append( _
vbCrLf + "Title of original document: " _
+ Me.OriginalDocumentTitle _
+ vbCrLf + "Title of revised document: " _
+ Me.RevisedDocumentTitle)
MessageBox.Show(sb.ToString())
End Sub
注解
若要执行以精确比较的文档比较操作，请使用 CompareDocuments 属性的方法 Application 。