Spire.Presentation支持开发人员在PowerPoint文档中添加批注以及对现有批注进行各种丰富的操作。本文将介绍如何使用该组件添加批注，编辑和提取批注文本，以及删除批注。

添加批注

//初始化一个Presentation对象
Presentation presentation = new Presentation();
//加载文档
presentation.LoadFromFile("测试文档.pptx");
//设置批注的作者
ICommentAuthor author = presentation.CommentAuthors.AddAuthor("E-iceblue", "E");
//添加批注到第一张幻灯片
presentation.Slides[0].AddComment(author, "E-iceblue产品简介", new PointF(21, 31), DateTime.Now);
//保存文档
presentation.SaveToFile("添加批注.pptx", FileFormat.Pptx2010);

'初始化一个Presentation对象 Dim presentation As New Presentation() '加载文档
presentation.LoadFromFile("测试文档.pptx")
'设置批注的作者 Dim author As ICommentAuthor = presentation.CommentAuthors.AddAuthor("E-iceblue","E") '添加批注到第一张幻灯片
presentation.Slides(0).AddComment(author, "E-iceblue产品简介", New PointF(21, 31), DateTime.Now)
'保存文档 presentation.SaveToFile("添加批注.pptx",FileFormat.Pptx2010)

编辑批注

//初始化一个Presentation对象 Presentation presentation = new Presentation();//加载文档 presentation.LoadFromFile(@"添加批注.pptx");//编辑第一张幻灯片的第一个批注 presentation.Slides[0].Comments[0].Text = "修改";//保存文档 presentation.SaveToFile(@"编辑批注.pptx",FileFormat.Pptx2010);

'初始化一个Presentation对象
Dim presentation As New Presentation()
'加载文档 presentation.LoadFromFile("添加批注.pptx") '编辑第一张幻灯片的第一个批注
presentation.Slides(0).Comments(0).Text = "修改"

'保存文档 presentation.SaveToFile("编辑批注.pptx",FileFormat.Pptx2010)

提取批注

//初始化一个Presentation对象 Presentation presentation = new Presentation();//加载文档 presentation.LoadFromFile("添加批注.pptx");StringBuilder str = new StringBuilder();//获取第一张幻灯片的所有批注 Comment[] comments = presentation.Slides[0].Comments;//提取批注文本并保存到文本文档 for (int i = 0;i < comments.Length;i++){str.Append(comments[i].Text + "\r\n");}File.WriteAllText("提取批注.txt",str.ToString());

'初始化一个Presentation对象
Dim presentation As New Presentation()
'加载文档 presentation.LoadFromFile("添加批注.pptx") Dim str As New StringBuilder() '获取第一张幻灯片的所有批注
Dim comments As Comment() = presentation.Slides(0).Comments

'提取批注文本并保存到文本文档 For i As Integer = 0 To comments.Length - 1 str.Append(comments(i).Text + vbCr & vbLf) Next File.WriteAllText("提取批注.txt",str.ToString())

删除批注

//初始化一个Presentation对象 Presentation presentation = new Presentation();//加载文档 presentation.LoadFromFile(@"添加批注.pptx");//删除第一张幻灯片的第一个批注 presentation.Slides[0].DeleteComment(presentation.Slides[0].Comments[0]);//保存文档 presentation.SaveToFile(@"删除批注.pptx",FileFormat.Pptx2010);

'初始化一个Presentation对象
Dim presentation As New Presentation()
'加载文档 presentation.LoadFromFile("添加批注.pptx") '删除第一张幻灯片的第一个批注
presentation.Slides(0).DeleteComment(presentation.Slides(0).Comments(0))

'保存文档 presentation.SaveToFile("删除批注.pptx",FileFormat.Pptx2010)