Opv
07-06-2012, 06:11 PM
Is there a way to modify the following script to cause Word to display permanently (until turned off) the full text of comments rather than having to hover over the comment to view the text in popup showtip?
Sub DisplayComments()
Dim objPara As Paragraph
Dim objComment As Comment
Dim strRemarks As String
For Each objPara In ActiveDocument.Paragraphs
strRemarks = ""
For Each objComment In objPara.Range.COMMENTS
If Len(strRemarks) = 0 Then
strRemarks = objComment.Range.Text
Else
strRemarks = strRemarks & ", " & _
objComment.Range.Text
End If
Next objComment
If Len(strRemarks) <> 0 Then _
Debug.Print strRemarks
Next objPara
End Sub
EDIT: Just for the sake of clarity, I mean by my question whether there is a way to display them inline (where they occur) rather than having to have to either hover over the comment or to display the comment window at the bottom of the screen.
Sub DisplayComments()
Dim objPara As Paragraph
Dim objComment As Comment
Dim strRemarks As String
For Each objPara In ActiveDocument.Paragraphs
strRemarks = ""
For Each objComment In objPara.Range.COMMENTS
If Len(strRemarks) = 0 Then
strRemarks = objComment.Range.Text
Else
strRemarks = strRemarks & ", " & _
objComment.Range.Text
End If
Next objComment
If Len(strRemarks) <> 0 Then _
Debug.Print strRemarks
Next objPara
End Sub
EDIT: Just for the sake of clarity, I mean by my question whether there is a way to display them inline (where they occur) rather than having to have to either hover over the comment or to display the comment window at the bottom of the screen.