Sub Remove_Trailing_spaces()
  Dim i As Integer, rng As Range, d As Integer, e As Integer, para As Paragraph
For e = 1 To ActiveDocument.Paragraphs.Count
Set para = Selection.Paragraphs(1)
'On Error Resume Next
With para.Range
    Select Case para.Range.words(1).Text
        Case "Now", "So", "Again", "Also", "Given", "Here", "Then", "Let"


        Case "or", "Or", "i", "ii", "iii", "iv", "v", "vi", "vii", "vii", "a", "b", "c", "d", "e", "f", "g", "&", " "

            d = para.Range.words(1).Characters.Count

            If .Characters(d).Next.Text = "." Or .Characters(d).Next.Text = ")" Or .Characters(d).Next.Text = "," Then
            d = d + 2
            End If
            If .words(2).Text <> "," Then
                For i = d To .Characters.Count
                    If .Characters(d).Text = " " Or .Characters(i).Text = Chr(9) Then
                        .Characters(i).Delete
                        If i = 10 Then Exit For
                    Else
                       Exit For
                    End If
                Next
             Else
             For i = d To .Characters.Count
                    If .Characters(i).Text = " " Or .Characters(i).Text = Chr(9) Then
                        .Characters(i).Delete
                        i = d
                        If i = 10 Then Exit For
                    Else
                        .Characters(d).InsertAfter vbTab
                       Exit For
                    End If
                Next
            End If
    Case Chr(40), Chr(38)
        For i = d To .Characters.Count
                   If .Characters(i).Text = " " Or .Characters(i).Text = Chr(9) Then
                        .Characters(i).Delete
                        If i = 10 Then Exit For
                    Else
                        Exit For
                    End If
                Next
        .Characters(1).InsertAfter vbTab

    Case Else

       
        If .words(1) <> "vbtab" Then
        .words.First.InsertBefore vbTab

        End If

    End Select
End With
Next

End Sub