Удалить знаки в последнем абзаце - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д