主题：表中右击快捷键上移一行和下移一行

If CurrentTable.Current IsNot Nothing AndAlso CurrentTable.current.Index > 0 Then
    CurrentTable.Current.move(CurrentTable.Current.Index-1)
End If

-------------

If CurrentTable.Current IsNot Nothing AndAlso CurrentTable.current.Index < CurrentTable.Rows.count-1 Then
    CurrentTable.Current.move(CurrentTable.Current.Index+1)
End If

改成

With CurrentTable
        .Current.Delete
End With