Помогите с VBA в Word пожалуйста. Нужен максрос, который удаляет все абзацы в тексте и заменяет все символы "a" на "ab".

Держи:

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