在演示文稿中回复批注

// Open the PowerPoint presentation for editing
using (PresentationDocument presentationDocument = PresentationDocument.Open(path, true))
{
    // Check if the presentation part exists
    if (presentationDocument.PresentationPart is null)
    {
        Console.WriteLine("No presentation part found in the presentation");
        return;
    }
    else
    {
        // Prompt the user for the author's name
        Console.WriteLine("Please enter the author's name");

        string? authorName = Console.ReadLine();

        // Ensure the author name is provided
        while (authorName is null)
        {
            Console.WriteLine("Author's name is required. Please enter author's name below");
            authorName = Console.ReadLine();
        }

        // Generate initials from the author's name
        string[] splitName = authorName.Split(" ");
        string authorInitials = string.Concat(splitName[0].Substring(0, 1), splitName[splitName.Length - 1].Substring(0, 1));

        // Get or create the authors part for comment authorship
        PowerPointAuthorsPart authorsPart = presentationDocument.PresentationPart.authorsPart ?? presentationDocument.AddNewPart<PowerPointAuthorsPart>();
        authorsPart.AuthorList ??= new AuthorList();

' Open the PowerPoint presentation for editing
Using presentationDocument As PresentationDocument = PresentationDocument.Open(path, True)
    ' Check if the presentation part exists
    If presentationDocument.PresentationPart Is Nothing Then
        Console.WriteLine("No presentation part found in the presentation")
        Return
    Else
        ' Prompt the user for the author's name
        Console.WriteLine("Please enter the author's name")

        Dim authorName As String = Console.ReadLine()

        ' Ensure the author name is provided
        While authorName Is Nothing
            Console.WriteLine("Author's name is required. Please enter author's name below")
            authorName = Console.ReadLine()
        End While

        ' Generate initials from the author's name
        Dim splitName As String() = authorName.Split(" "c)
        Dim authorInitials As String = splitName(0).Substring(0, 1) & splitName(splitName.Length - 1).Substring(0, 1)

        ' Get or create the authors part for comment authorship
        Dim authorsPart As PowerPointAuthorsPart = If(presentationDocument.PresentationPart.authorsPart, presentationDocument.AddNewPart(Of PowerPointAuthorsPart)())
        If authorsPart.AuthorList Is Nothing Then
            authorsPart.AuthorList = New AuthorList()
        End If

// Try to find an existing author by name, otherwise create a new author
string? authorId = authorsPart.AuthorList.Descendants<Author>().Where(author => author.Name == authorName).FirstOrDefault()?.UserId;

if (authorId is null)
{
    authorId = Guid.NewGuid().ToString("B");
    authorsPart.AuthorList.AppendChild(new Author() { Id = authorId, Name = authorName, Initials = authorInitials, UserId = authorId, ProviderId = "Me" });
}

' Try to find an existing author by name, otherwise create a new author
Dim authorId As String = Nothing
Dim existingAuthor = authorsPart.AuthorList.Descendants(Of Author)().Where(Function(author) author.Name = authorName).FirstOrDefault()
If existingAuthor IsNot Nothing Then
    authorId = existingAuthor.UserId
End If

If authorId Is Nothing Then
    authorId = Guid.NewGuid().ToString("B")
    authorsPart.AuthorList.AppendChild(New Author() With {.Id = authorId, .Name = authorName, .Initials = authorInitials, .UserId = authorId, .ProviderId = "Me"})
End If

// Get the first slide part in the presentation
SlidePart? slidePart = presentationDocument.PresentationPart.SlideParts?.FirstOrDefault();

if (slidePart is null)
{
    Console.WriteLine("No slide part found in the presentation.");
    return;
}
else
{
    // Check if the slide has any comment parts
    if (slidePart.commentParts is null || slidePart.commentParts.Count() == 0)
    {
        Console.WriteLine("No comments part found for slide 1");
        return;
    }

' Get the first slide part in the presentation
Dim slidePart As SlidePart = presentationDocument.PresentationPart.SlideParts?.FirstOrDefault()

If slidePart Is Nothing Then
    Console.WriteLine("No slide part found in the presentation.")
    Return
Else
    ' Check if the slide has any comment parts
    If slidePart.commentParts Is Nothing OrElse Not slidePart.commentParts.Any() Then
        Console.WriteLine("No comments part found for slide 1")
        Return
    End If

// Get the comment list
DocumentFormat.OpenXml.Office2021.PowerPoint.Comment.CommentList? commentList =
    (DocumentFormat.OpenXml.Office2021.PowerPoint.Comment.CommentList?)(slidePart.commentParts.FirstOrDefault()?.CommentList);

if (commentList is null)
{
    Console.WriteLine("No comments found for slide 1");
    return;
}
else
{
    // Iterate through each comment in the comment list
    foreach (DocumentFormat.OpenXml.Office2021.PowerPoint.Comment.Comment comment in commentList)
    {
        // Display the comment text to the user
        Console.WriteLine("Comment:");
        Console.WriteLine(comment.ChildElements.Where(c => c is TextBodyType).FirstOrDefault()?.InnerText);
        Console.WriteLine("Do you want to reply Y/N");
        string? leaveReply = Console.ReadLine();

' Get the comment list
Dim commentList As CommentList = CType(slidePart.commentParts.FirstOrDefault()?.CommentList, CommentList)

If commentList Is Nothing Then
    Console.WriteLine("No comments found for slide 1")
    Return
Else
    ' Iterate through each comment in the comment list
    For Each comment As Comment In commentList
        ' Display the comment text to the user
        Console.WriteLine("Comment:")
        Console.WriteLine(comment.ChildElements.Where(Function(c) TypeOf c Is TextBodyType).FirstOrDefault()?.InnerText)
        Console.WriteLine("Do you want to reply Y/N")
        Dim leaveReply As String = Console.ReadLine()

// If the user wants to reply, prompt for the reply text
if (leaveReply is not null && leaveReply.ToUpper() == "Y")
{
    Console.WriteLine("What is your reply?");
    string? reply = Console.ReadLine();

    if (reply is not null)
    {
        // Get or create the reply list for the comment
        CommentReplyList? commentReplyList = comment.Descendants<CommentReplyList>()?.FirstOrDefault();

        if (commentReplyList is null)
        {
            commentReplyList = new CommentReplyList();
            comment.AddChild(commentReplyList);
        }

        // Add the user's reply to the comment
        commentReplyList.AppendChild(new CommentReply(
            new TextBodyType(
                new BodyProperties(),
                new Paragraph(
                    new Run(
                        new DocumentFormat.OpenXml.Drawing.Text(reply)))))
        {
            Id = Guid.NewGuid().ToString("B"),
            AuthorId = authorId,
            Created = new DateTimeValue(DateTime.Now)
        });
    }
}

' If the user wants to reply, prompt for the reply text
If leaveReply IsNot Nothing AndAlso leaveReply.ToUpper() = "Y" Then
    Console.WriteLine("What is your reply?")
    Dim reply As String = Console.ReadLine()

    If reply IsNot Nothing Then
        ' Get or create the reply list for the comment
        Dim commentReplyList As CommentReplyList = comment.Descendants(Of CommentReplyList)()?.FirstOrDefault()

        If commentReplyList Is Nothing Then
            commentReplyList = New CommentReplyList()
            comment.AddChild(commentReplyList)
        End If

        ' Add the user's reply to the comment
        commentReplyList.AppendChild(New CommentReply(
            New TextBodyType(
                New BodyProperties(),
                New Paragraph(
                    New Run(
                        New DocumentFormat.OpenXml.Drawing.Text(reply))))) With {
            .Id = Guid.NewGuid().ToString("B"),
            .AuthorId = authorId,
            .Created = New DateTimeValue(DateTime.Now)
        })
    End If
End If

// Open the PowerPoint presentation for editing
using (PresentationDocument presentationDocument = PresentationDocument.Open(path, true))
{
    // Check if the presentation part exists
    if (presentationDocument.PresentationPart is null)
    {
        Console.WriteLine("No presentation part found in the presentation");
        return;
    }
    else
    {
        // Prompt the user for the author's name
        Console.WriteLine("Please enter the author's name");

        string? authorName = Console.ReadLine();

        // Ensure the author name is provided
        while (authorName is null)
        {
            Console.WriteLine("Author's name is required. Please enter author's name below");
            authorName = Console.ReadLine();
        }

        // Generate initials from the author's name
        string[] splitName = authorName.Split(" ");
        string authorInitials = string.Concat(splitName[0].Substring(0, 1), splitName[splitName.Length - 1].Substring(0, 1));

        // Get or create the authors part for comment authorship
        PowerPointAuthorsPart authorsPart = presentationDocument.PresentationPart.authorsPart ?? presentationDocument.AddNewPart<PowerPointAuthorsPart>();
        authorsPart.AuthorList ??= new AuthorList();
        // Try to find an existing author by name, otherwise create a new author
        string? authorId = authorsPart.AuthorList.Descendants<Author>().Where(author => author.Name == authorName).FirstOrDefault()?.UserId;

        if (authorId is null)
        {
            authorId = Guid.NewGuid().ToString("B");
            authorsPart.AuthorList.AppendChild(new Author() { Id = authorId, Name = authorName, Initials = authorInitials, UserId = authorId, ProviderId = "Me" });
        }
        // Get the first slide part in the presentation
        SlidePart? slidePart = presentationDocument.PresentationPart.SlideParts?.FirstOrDefault();

        if (slidePart is null)
        {
            Console.WriteLine("No slide part found in the presentation.");
            return;
        }
        else
        {
            // Check if the slide has any comment parts
            if (slidePart.commentParts is null || slidePart.commentParts.Count() == 0)
            {
                Console.WriteLine("No comments part found for slide 1");
                return;
            }
            // Get the comment list
            DocumentFormat.OpenXml.Office2021.PowerPoint.Comment.CommentList? commentList =
                (DocumentFormat.OpenXml.Office2021.PowerPoint.Comment.CommentList?)(slidePart.commentParts.FirstOrDefault()?.CommentList);

            if (commentList is null)
            {
                Console.WriteLine("No comments found for slide 1");
                return;
            }
            else
            {
                // Iterate through each comment in the comment list
                foreach (DocumentFormat.OpenXml.Office2021.PowerPoint.Comment.Comment comment in commentList)
                {
                    // Display the comment text to the user
                    Console.WriteLine("Comment:");
                    Console.WriteLine(comment.ChildElements.Where(c => c is TextBodyType).FirstOrDefault()?.InnerText);
                    Console.WriteLine("Do you want to reply Y/N");
                    string? leaveReply = Console.ReadLine();
                    // If the user wants to reply, prompt for the reply text
                    if (leaveReply is not null && leaveReply.ToUpper() == "Y")
                    {
                        Console.WriteLine("What is your reply?");
                        string? reply = Console.ReadLine();

                        if (reply is not null)
                        {
                            // Get or create the reply list for the comment
                            CommentReplyList? commentReplyList = comment.Descendants<CommentReplyList>()?.FirstOrDefault();

                            if (commentReplyList is null)
                            {
                                commentReplyList = new CommentReplyList();
                                comment.AddChild(commentReplyList);
                            }

                            // Add the user's reply to the comment
                            commentReplyList.AppendChild(new CommentReply(
                                new TextBodyType(
                                    new BodyProperties(),
                                    new Paragraph(
                                        new Run(
                                            new DocumentFormat.OpenXml.Drawing.Text(reply)))))
                            {
                                Id = Guid.NewGuid().ToString("B"),
                                AuthorId = authorId,
                                Created = new DateTimeValue(DateTime.Now)
                            });
                        }
                    }
                }
            }
        }
    }
}

' Open the PowerPoint presentation for editing
Using presentationDocument As PresentationDocument = PresentationDocument.Open(path, True)
    ' Check if the presentation part exists
    If presentationDocument.PresentationPart Is Nothing Then
        Console.WriteLine("No presentation part found in the presentation")
        Return
    Else
        ' Prompt the user for the author's name
        Console.WriteLine("Please enter the author's name")

        Dim authorName As String = Console.ReadLine()

        ' Ensure the author name is provided
        While authorName Is Nothing
            Console.WriteLine("Author's name is required. Please enter author's name below")
            authorName = Console.ReadLine()
        End While

        ' Generate initials from the author's name
        Dim splitName As String() = authorName.Split(" "c)
        Dim authorInitials As String = splitName(0).Substring(0, 1) & splitName(splitName.Length - 1).Substring(0, 1)

        ' Get or create the authors part for comment authorship
        Dim authorsPart As PowerPointAuthorsPart = If(presentationDocument.PresentationPart.authorsPart, presentationDocument.AddNewPart(Of PowerPointAuthorsPart)())
        If authorsPart.AuthorList Is Nothing Then
            authorsPart.AuthorList = New AuthorList()
        End If
        ' Try to find an existing author by name, otherwise create a new author
        Dim authorId As String = Nothing
        Dim existingAuthor = authorsPart.AuthorList.Descendants(Of Author)().Where(Function(author) author.Name = authorName).FirstOrDefault()
        If existingAuthor IsNot Nothing Then
            authorId = existingAuthor.UserId
        End If

        If authorId Is Nothing Then
            authorId = Guid.NewGuid().ToString("B")
            authorsPart.AuthorList.AppendChild(New Author() With {.Id = authorId, .Name = authorName, .Initials = authorInitials, .UserId = authorId, .ProviderId = "Me"})
        End If
        ' Get the first slide part in the presentation
        Dim slidePart As SlidePart = presentationDocument.PresentationPart.SlideParts?.FirstOrDefault()

        If slidePart Is Nothing Then
            Console.WriteLine("No slide part found in the presentation.")
            Return
        Else
            ' Check if the slide has any comment parts
            If slidePart.commentParts Is Nothing OrElse Not slidePart.commentParts.Any() Then
                Console.WriteLine("No comments part found for slide 1")
                Return
            End If
            ' Get the comment list
            Dim commentList As CommentList = CType(slidePart.commentParts.FirstOrDefault()?.CommentList, CommentList)

            If commentList Is Nothing Then
                Console.WriteLine("No comments found for slide 1")
                Return
            Else
                ' Iterate through each comment in the comment list
                For Each comment As Comment In commentList
                    ' Display the comment text to the user
                    Console.WriteLine("Comment:")
                    Console.WriteLine(comment.ChildElements.Where(Function(c) TypeOf c Is TextBodyType).FirstOrDefault()?.InnerText)
                    Console.WriteLine("Do you want to reply Y/N")
                    Dim leaveReply As String = Console.ReadLine()
                    ' If the user wants to reply, prompt for the reply text
                    If leaveReply IsNot Nothing AndAlso leaveReply.ToUpper() = "Y" Then
                        Console.WriteLine("What is your reply?")
                        Dim reply As String = Console.ReadLine()

                        If reply IsNot Nothing Then
                            ' Get or create the reply list for the comment
                            Dim commentReplyList As CommentReplyList = comment.Descendants(Of CommentReplyList)()?.FirstOrDefault()

                            If commentReplyList Is Nothing Then
                                commentReplyList = New CommentReplyList()
                                comment.AddChild(commentReplyList)
                            End If

                            ' Add the user's reply to the comment
                            commentReplyList.AppendChild(New CommentReply(
                                New TextBodyType(
                                    New BodyProperties(),
                                    New Paragraph(
                                        New Run(
                                            New DocumentFormat.OpenXml.Drawing.Text(reply))))) With {
                                .Id = Guid.NewGuid().ToString("B"),
                                .AuthorId = authorId,
                                .Created = New DateTimeValue(DateTime.Now)
                            })
                        End If
                    End If
                Next
            End If
        End If
    End If
End Using