Sub CommentBubblesToBrackets()
' Paul Beverley - Version 10.08.24
' Copies comments into brackets in running text

addBold = False
highlightComment = True
colourComment = wdColorBlue

highlightRange = True
colourRange = wdYellow

removeComments = True
numCmts = ActiveDocument.Comments.Count
ReDim rStart(numCmts) As Long
ReDim rEnd(numCmts) As Long

For i = 1 To numCmts
  Set myCmt = ActiveDocument.Comments(i)
  myCmt.Range.Copy
  Set cmnt = myCmt.Scope
  rStart(i) = cmnt.start
  rEnd(i) = cmnt.End
  cmnt.start = cmnt.start + Len(cmnt.Text)
  myStart = cmnt.start
  cmnt.InsertAfter Text:=" []"
  cmnt.Collapse wdCollapseEnd
  cmnt.MoveEnd , -1
  cmnt.Paste
  cmnt.start = myStart
  If addBold = True Then cmnt.Font.Bold = True
  If highlightComment Then
    cmnt.MoveStart , 2
    cmnt.Font.Color = colourComment
  End If
Next i
If removeComments = True Then ActiveDocument.DeleteAllComments
Set rng = ActiveDocument.Content
nudge = 0
For i = 1 To numCmts
  rng.start = rStart(i) - nudge
  rng.End = rEnd(i) - nudge
  rng.HighlightColorIndex = colourRange
  nudge = nudge + 1
Next i
End Sub