なるほど、確かに便利そうですね。
マクロで妥協できるなら、

' DiffNextBlock.vbs From Here --------------------------
Do
lngBefore = ExpandParameter("$y")
DiffNext()
Loop While CLng(lngBefore) + 1 = CLng(ExpandParameter("$y"))
' DiffNextBlock.vbs To Here --------------------------

「前の差分へ」の動作はどんな動きを期待したらよいのでしょう？
下記例は、連続したブロックの各先頭を探します。
つまり「次の差分へ」での移動位置を、逆順にたどる方式。
それとも連続したブロックの下端が必要でしょうか？
' DiffPrevBlock.vbs From Here -------------------------------
Call Main
Sub Main
lngBefore = ExpandParameter("$y")
DiffPrev()
If CLng(lngBefore) = CLng(ExpandParameter("$y")) Then Exit Sub

Do While (1)
lngBefore = ExpandParameter("$y")
DiffPrev()
Select Case CLng(ExpandParameter("$y"))
Case CLng(lngBefore)
Exit Sub
Case CLng(lngBefore) - 1
Case Else
DiffNext()
Exit Do
End Select
Loop
End Sub
' DiffPrevBlock.vbs To Here -------------------------------