Шапка!

[VoVchik11]

Всем доброго времени суток!
Собстенно в чем вопрос: нужен макрос для находжения в тексте абзаца определенных знаков и перемещение их в начало абзаца. Поковырявшись немного в И-нете нашел вот такое написание макроса, но он сделан для таблицы.

Dim t As Table /
Dim oCell As Cell /
Dim oRng As Range / условие для таблицы
Set t = ActiveDocument.Tables(1) /
For Each oCell In t.Columns(4).Cells /
Set oRng = oCell.Range
With oRng.Find
.Text = "янв. [0-9]"
.Format = False
.MatchWildcards = True
While .Execute
.Parent.Select 'сейчас работает
With Selection
.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
.Delete
.EndKey Unit:=wdLine
.TypeText Text:=" янв."
End With
Wend
End With
Next

Как переделать условие макроса для текстового абзаца?

[Sasha_Smirnov]

Сообщение от VoVchik11

определенных знаков

Каких? Весь список дайте.