Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
Dim oRng As Range
  For lngIndex = ActiveDocument.Range.Comments.Count To 1 Step -1
    Set oRng = ActiveDocument.Range.Comments(lngIndex).Reference
    oRng.InsertAfter " " & ActiveDocument.Range.Comments(lngIndex).Range.Text
    ActiveDocument.Range.Comments(lngIndex).Delete
  Next lngIndex
lbl_Exit:
  Exit Sub
End Sub