The sample demonstrates how to insert comments into a Word document.
private void button1_Click(object sender, EventArgs e)
{
//Create word document
Document document = new Document();
InsertComments(document.AddSection());
//Save doc file.
document.SaveToFile("Sample.doc",FileFormat.Doc);
//Launching the MS Word file.
WordDocViewer("Sample.doc");
}
private void InsertComments(Section section)
{
Paragraph paragraph = section.AddParagraph();
paragraph.AppendText("The sample demonstrates how to insert a comment into a document.");
paragraph.ApplyStyle(BuiltinStyle.Heading2);
paragraph = section.AddParagraph();
paragraph.AppendText("Spire.Doc can generate, modify, convert, render and print documents without utilizing Microsoft Word.");
paragraph.AppendComment("This is a comment");
paragraph = section.AddParagraph();
paragraph.AppendText("Microsoft Word is a word processor designed by Microsoft. It was first released in 1983 under the name Multi-Tool Word for Xenix systems. Subsequent versions were later written for several other platforms including IBM PCs running DOS (1983), the Apple Macintosh (1984), the AT&T Unix PC (1985), Atari ST (1986), SCO UNIX, OS/2, and Microsoft Windows (1989).");
}
private void WordDocViewer(string fileName)
{
try
{
System.Diagnostics.Process.Start(fileName);
}
catch { }
}
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
'Create word document
Dim document_Renamed As New Document()
InsertComments(document_Renamed.AddSection())
'Save doc file.
document_Renamed.SaveToFile("Sample.doc",FileFormat.Doc)
'Launching the MS Word file.
WordDocViewer("Sample.doc")
End Sub
Private Sub InsertComments(ByVal section_Renamed As Section)
Dim paragraph_Renamed As Paragraph = section_Renamed.AddParagraph()
paragraph_Renamed.AppendText("The sample demonstrates how to insert a comment into a document.")
paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading2)
paragraph_Renamed = section_Renamed.AddParagraph()
paragraph_Renamed.AppendText("comment demonstration")
paragraph_Renamed.AppendComment("This is a comment")
End Sub
Private Sub WordDocViewer(ByVal fileName As String)
Try
Process.Start(fileName)
Catch
End Try
End Sub
