DocumentBase.OriginalDocumentTitle, propriété
Obtient le titre du document original après avoir exécuté une opération de comparaison de document en mode révision.
Espace de noms : Microsoft.Office.Tools.Word
Assembly : Microsoft.Office.Tools.Word.v4.0.Utilities (dans Microsoft.Office.Tools.Word.v4.0.Utilities.dll)
Syntaxe
'Déclaration
Public ReadOnly Property OriginalDocumentTitle As String
public string OriginalDocumentTitle { get; }
Valeur de propriété
Type : System.String
Titre du document original après exécution d'une opération de comparaison de document en mode révision.
Notes
Pour exécuter une opération de comparaison de document en mode révision, utilisez la méthode CompareDocuments de la propriété Application.
Exemples
L'exemple de code suivant compare le document Word dans la personnalisation au niveau du document (appelé « document d'origine ») avec une autre version du même document (appelé « document révisé »). Il insère le résultat de la comparaison dans le document d'origine. L'exemple informe ensuite l'utilisateur si le titre du document d'origine et celui du document révisé sont identiques ou différents, puis affiche les titres des deux documents à la fois. Pour utiliser cet exemple, exécutez-le à partir de la classe ThisDocument dans un projet au niveau du document.
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
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());
}
Sécurité .NET Framework
- Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.