Sub TrackChangeAccept()
' Paul Beverley - Version 23.11.11
' Accepts the track changes on the current line
If Selection.Start = Selection.End Then
  Selection.HomeKey Unit:=wdLine
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  Selection.Range.Revisions.AcceptAll
  Selection.Start = Selection.End
Else
  Selection.Range.Revisions.AcceptAll
End If
End Sub