A way to see how many "uncompleted" comments you have in Word
Here's a macro to see how many "uncompleted" comments you have in a Word doc.
When I began addressing my editor's notes on Shadow Drive, I found that instead of going linearly page by page, I began attacking the easy notes first. I wanted to wait to address the hard notes last since I needed time to think about them. But as I bounced around the manuscript addressing notes, I had no idea of how much progress I was making.
The problem is Word doesn't really provide you with a good way to keep track of how many comments you've addressed. They do provide the Reviewing panel, but it only tells you how many comments are in the manuscript. They don't tell you how many comments you still have left to address. The easiest solution is to just delete the comments you've finished. But I wanted to "resolve" the comments so that they would still be in the manuscript for reference later. Another issue is that sometimes I didn't address a note or at least didn't address it in the exact way suggested, and I explained my reasoning by responding to the editor's comment. The problem is the Reviewing panel only shows you the total number of comments. If you resolve or respond to a comment, that number doesn't change.
I needed some sort of progress indicator.
So I wrote this macro that will return how many "uncompleted" comments you still have left. By "uncompleted," I mean comments you haven't resolved or responded to. If you resolve, respond, or delete a comment, the "uncompleted" number goes down. Here's the code:
Sub howManyUncompletedComments() Dim i As Integer Dim f As Integer Dim g As Object Dim h As Integer Dim sMsg As String For i = 1 To ActiveDocument.Comments.Count 'count all comments that have not been marked resolved If ActiveDocument.Comments(i).Done = False Then f = f + 1 End If 'count all comments made by me If ActiveDocument.Comments(i).Author = "Nolan Cubero" Then f = f - 1 End If 'count all comments I have replied to Set g = ActiveDocument.Comments(i).Replies h = h + g.Count Next 'subtract my replies from total f = f - h sMsg = "You have " & f & " uncompleted comments." MsgBox sMsg End Sub
If you don't know how to setup a macro, follow this process:
Open Visual Basic (which is in the Developer tab)
From the Menu Bar, click Insert > Module
Paste above code into module. You'll only need to change the name of the author to your name.
Close Visual Basic.
Add a Macro button to the ribbon.
Then just click the button each time you want to see how many unresolved comments you have left.
Even if you do work linearly, this should still be helpful since the comments you have are probably not distributed to each page evenly.