Re: Word 2000 Comments Pane

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hi Cindy,

Thanks very much... I used an adapted version of the above and I believ
to have solved the problem... Let me just put the tentative solution
here for the benefit of others..

Sub AnnotationEdit()
Selection.Expand (WdUnits.wdWord)
Dim i As Integer
If (Selection.Comments.Count = 1) Then
i = Selection.Comments(1).Index
Else
Selection.Collapse wdCollapseEnd
Selection.Expand WdUnits.wdWord
i = Selection.Comments(1).Index
End If

' Call the WordBasic AnnotationEdit
WordBasic.AnnotationEdit

With ActiveDocument.ActiveWindow.View
.SplitSpecial = wdPaneComments
End With

ActiveDocument.Comments(i).Range.Select
Selection.Collapse wdCollapseEnd

End Sub

Thanks and Regards,
Laks

.