Sub CommentJumpInOut()
' Paul Beverley - Version 13.06.22
' Jumps in and out of comment text

inCommentBox = Selection.Range.Information(wdInCommentPane)
If inCommentBox Then
  Selection.Comments(1).Scope.Select
  Selection.Collapse wdCollapseStart
Else
  Set rng = ActiveDocument.Range(0, Selection.End)
  cmtNum = rng.Comments.count + 1
  If cmtNum > ActiveDocument.Comments.count Then
    cmtNum = ActiveDocument.Comments.count
  End If
  ActiveDocument.Comments(cmtNum).Edit
End If
End Sub