Sub UnifyFormatBackwards()
' Paul Beverley - Version 19.07.25
' Makes start of para (or selection) same format as the end


doTrack = False

myTrack = ActiveDocument.TrackRevisions
startHere = Selection.Start
If doTrack = False Then ActiveDocument.TrackRevisions = False
If Selection.Start = Selection.End Then
  Selection.Expand wdParagraph
  Selection.End = startHere
End If
myStart = Selection.Start
Do While Right(Selection, 1) = " " Or Right(Selection, 1) = vbCr
  Selection.MoveEnd , -1
Loop
Selection.Collapse wdCollapseEnd
Selection.MoveStart , -1
Selection.CopyFormat
Selection.Start = myStart
Selection.PasteFormat
Selection.Collapse wdCollapseEnd
ActiveDocument.TrackRevisions = myTrack
End Sub