Find the marked words that have comment on it

[htchanit]

Hi Spire Supporter,
I'm using VB.NET trying to search for words in the paragraph that have marked and comment on it. I can easily know which paragraph that has comment but unable to pinpoint the group of words that have been marked for comment. Could you have a look at the attached photo ? Do we have anyway in the code to know the phrase ".NET introduction" is marked for comment ?

[amy.zhao]

Hello,

Thanks for your inquiry.
Please refer to the following example code.

Code: Select all

Dim doc As Document = New Document()
        doc.LoadFromFile("C:/test.docx")
        Dim textRanges As List(Of TextRange) = New List(Of TextRange)()

        For Each comment As Comment In doc.Comments
            Dim paragraph As Paragraph = comment.OwnerParagraph

            For i As Integer = 0 To paragraph.ChildObjects.Count - 1

                If paragraph.ChildObjects(i).DocumentObjectType = DocumentObjectType.CommentMark Then

                    If (TryCast(paragraph.ChildObjects(i), CommentMark)).Type = CommentMarkType.CommentStart Then

                        While TypeOf paragraph.ChildObjects(i).NextSibling Is TextRange
                            textRanges.Add(TryCast(paragraph.ChildObjects(i).NextSibling, TextRange))
                            i += 1
                        End While

                        Exit For
                    End If
                End If
            Next
        Next

If the above code doesn't meet your requirement, please tell me and share your example Word file, I will do a demo for you.

Sincerely
Amy
E-iceblue support team

[amy.zhao]

Hello,

Greetings from E-iceblue!
Has your issue been resolved?
I will appreciate it if you could give me some feedback at your convenience.

Sincerely
Amy
E-iceblue support team

[htchanit]

Hi Amy,
Thanks for your help. I got it working

Great !

Regards,
Tom Huynh

[amy.zhao]

Hello,

Thanks for your feedback.
Glad to hear that your issue has been solved.
Feel free to contact us if you have any issues in the future.

Sincerely
Amy
E-iceblue support team