Вероника
ДП
Денис Павлов
Держи:
Sub kuyan()
Dim myText As String
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
myText = myText + Left(p.Range.Text, Len(p.Range.Text) - 1)
Next
myText = Replace(myText, "a", "ab")
Selection.WholeStory
Selection.Text = myText
End Sub
Похожие вопросы