Символы последнего абзаца - VBA

Формулировка задачи:

Этот код удаляет указанные символы во всём тексте. Нужно исправить так чтобы удалялись только символы в последнем абзаце. Помогите исправить, кому не сложно)

Public Sub Удалить_символы()
Dim inp As String, list As Variant
    inp = "* , : ; + -" 'Запрашиваем список удаляемых слов
    list = Split(inp, " ") 'Создаем список слов
        For i = LBound(list) To UBound(list) 'Циклом заменяем слова списка
                Selection.Find.ClearFormatting
                Selection.Find.Replacement.ClearFormatting
                With Selection.Find
                    .Text = list(i)
                    .Replacement.Text = ""
                End With
                Selection.Find.Execute Replace:=wdReplaceAll
        Next i
End Sub

Решение задачи: «Символы последнего абзаца»

textual
                            Листинг программы 
                        

                            Public Sub Удалить_символы()
Dim inp As String, list As Variant
    inp = "* , : ; + -" 'Запрашиваем список удаляемых слов
    list = Split(inp, " ") 'Создаем список слов
        ActiveDocument.Paragraphs.Last.Range.Select
        For i = LBound(list) To UBound(list) 'Циклом заменяем слова списка
                Selection.Find.ClearFormatting
                Selection.Find.Replacement.ClearFormatting
                With Selection.Find
                    .Text = list(i)
                    .Replacement.Text = ""
                End With
                Selection.Find.Execute Replace:=wdReplaceAll
        Next i
End Sub
                        