Удалить знаки в последнем абзаце - VB

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

Помогите пожалуйста дополнить код, я убрала знак(*), нужно убрать знаки (-,+,*) просто перечислить их не удается. И нужно чтобы это все убиралось в последнем абзаце.
Public Sub Строковые_функции()
 
Dim St As String, Stl As String
Dim P As String * 10, Sym As String * 1
Dim KR As Long, KN As Long, i As Long
 
St = Selection.Text
If Len(St) = 1 Then                                 
MsgBox "Необходимо выделить фрагмент текста"
Exit Sub
End If
For i = 1 To Len(St)
Sym = Mid(St, i, 1)                               
 
If Not (Sym >= "A" And Sym <= "z") And Sym <> "*" Then
Stl = Stl & Sym
 
End If
Next i
Selection.Text = St & vbNewLine & vbNewLine & "Преобразованный текст:" & vbNewLine & Stl
End Sub

Код к задаче: «Удалить знаки в последнем абзаце - VB»

textual
Public Sub удаление()
 
Dim St As String, Stl As String
Dim Sym As String * 1
 
St = Selection.Text
If Len(St) = 1 Then
MsgBox "выделите текст"
Exit Sub
End If
 
cf = Selection.Paragraphs.Last.Range.Text
For i = 1 To Len(St)
Sym = Mid(St, i, 1)
Selection.Paragraphs.Last.Range.Text = Replace(Replace(Replace(cf, "*", ""), "+", ""), "-", "")
Stl = St & Sym
Next i
Selection.Paragraphs.Last.Range.Text = St & vbNewLine & vbNewLine & "Преобразованный текст:" & vbNewLine & Sym
End Sub

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ