officefileapi-devexpress-dot-xtrarichedit-dot-api-dot-native-dot-commentcollection-dot-create-x28-system-dot-string-system-dot-datetime-devexpress-dot-xtrarichedit-dot-api-dot-native-dot-comment-x29.md
Creates a nested comment with the specified author’s name and creation date.
Namespace : DevExpress.XtraRichEdit.API.Native
Assembly : DevExpress.RichEdit.v25.2.Core.dll
NuGet Package : DevExpress.RichEdit.Core
Comment Create(
string author,
DateTime date,
Comment parentComment
)
Function Create(
author As String,
date As Date,
parentComment As Comment
) As Comment
| Name | Type | Description |
|---|---|---|
| author | String |
A String value that sets the Comment.Author property.
| | date | DateTime |
A DateTime object that is the comment creation date.
| | parentComment | Comment |
A Comment object that is the parent comment.
|
| Type | Description |
|---|---|
| Comment |
A Comment object that is the nested comment.
|
The created comment is added to the SubDocument.Comments collection automatically .
static void CreateNestedComment(RichEditDocumentServer wordProcessor) {
// Load a document from a file.
wordProcessor.LoadDocument("Documents\\Grimm.docx", DocumentFormat.Docx);
// Access a document.
Document document = wordProcessor.Document;
if (document.Comments.Count > 1)
{
// Create a new comment nested in the parent comment.
Comment newComment = document.Comments.Create("Vicars Anny", document.Comments[1]);
newComment.Date = DateTime.Now;
SubDocument commentDocument = newComment.BeginUpdate();
commentDocument.InsertText(commentDocument.Range.Start, "I agree");
newComment.EndUpdate(commentDocument);
}
}
Shared Sub CreateNestedComment(ByVal wordProcessor As RichEditDocumentServer)
' Load a document from a file.
wordProcessor.LoadDocument("Documents\Grimm.docx", DocumentFormat.Docx)
' Access a document.
Dim document As Document = wordProcessor.Document
If document.Comments.Count > 1 Then
' Create a new comment nested in the parent comment.
Dim newComment As Comment = document.Comments.Create("Vicars Anny", document.Comments(1))
newComment.Date = Date.Now
Dim commentDocument As SubDocument = newComment.BeginUpdate()
commentDocument.InsertText(commentDocument.Range.Start, "I agree")
newComment.EndUpdate(commentDocument)
End If
End Sub
See Also