usrname_aj
12-29-2011, 02:59 PM
I know how to extract comments from word document using VBA but I am not able to get section heading name under which a comment is enterd.
Here is code to extract comment ...
Dim oDoc As Word.Document
Dim objComment As Word.Comment
Dim oCommentedTextSentence as String
Set oDoc = oWordApp.Documents.Open(“c:\samplefil1.doc”, , True)
Set objComment = oDoc.Comments
'Refer the Comment Object
objComment.Reference.Select
'Extract the comment and display
oCommentedTextSentence = objComment.Reference.Sentences.Item(1).Text
msgbox (oCommentedTextSentence)
Any help in this regard is much appritiated.
Here is code to extract comment ...
Dim oDoc As Word.Document
Dim objComment As Word.Comment
Dim oCommentedTextSentence as String
Set oDoc = oWordApp.Documents.Open(“c:\samplefil1.doc”, , True)
Set objComment = oDoc.Comments
'Refer the Comment Object
objComment.Reference.Select
'Extract the comment and display
oCommentedTextSentence = objComment.Reference.Sentences.Item(1).Text
msgbox (oCommentedTextSentence)
Any help in this regard is much appritiated.