VB macro for reading pagenumber of MS Document

19 Sep 2005 9:07 AM

Manu

hi all,
I have MS office Document which contains lot of comments.i want to read the
page number & the line number of each comment using MS office Excel macro.how
can i do this.does anybody give me some idea about it.

Thanx
Manu

19 Sep 2005 9:48 AM

Steve Barnett

This isn't actual code! It should get you started in the help files though.

Dim oWord as word.application
Dim oDoc as word.document
Dim oComment as word.comment

    set oWord = createobject("Word.application")
    set oDocument = oWord.documents.open(filename)

    For Each oComment in oDocument.Comments
        '*** Index is the number of the comment. Reference.Information is
the thing it's attached to
        msgbox oComment.Index & " - " &
oComment.Reference.Information(wdActiveEndPageNumber)
   next

    oDocument.close
    set oDocument = nothing

    oWord.quit
    set oWord = nothing

HTH
Steve

Show quoteHide quote

"Manu" <M***@discussions.microsoft.com> wrote in message
news:67593A15-2806-43C3-B417-71ABECF41E55@microsoft.com...
> hi all,
> I have MS office Document which contains lot of comments.i want to read
> the
> page number & the line number of each comment using MS office Excel
> macro.how
> can i do this.does anybody give me some idea about it.
>
> Thanx
> Manu