Где ошибка?

[VoVchik11]

Подскажите где в макросе ошибка? Может где-то в условии...

Dim oRng As Range
Dim oDoc As Document
Dim oPar As Paragraph

Set oDoc = ActiveDocument

For Each oPar In oDoc.Paragraphs
Set oRng = oDoc.Range
With oRng.Find
.Text = "$&&^p"
.Format = False
.MatchWildcards = True
While .Execute
.Parent.Select
With Selection
.MoveLeft Unit:=wdCharacter, Count:=1
.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend
.Delete
.MoveUp Unit:=wdParagraph, Count:=1
.HomeKey Unit:=wdLine
.TypeText Text:="$&&"
End With
Wend
End With
Next

End Sub

[shanemac51]

на этой строке While .Execute

в чем идея макроса

[VoVchik11]

Идея макроса заключается в том что:
Есть определенный текст, в конце абзацев стоят символы ($&&, &&$$ и др.) которые нужно удалить в конце и перенести в начало этих абзацев. Нужно зациклить это действие для разных вариантов символов.

[prokh]

Позвольте предложить другой способ перемещения меток (у Вас -- символы ($&&, &&$$ и др.) от конца абзаца в начало
1) Создаем пользовательский стиль абзаца=параграфа -- например Style_Vpered_Iz_Zadu
2) Выполняем замену метки -- например $&& -- на метку с заданным стилем:
Найти: "$&&"
Заменить на: "$&&"
Дополнительнно: Стиль "Style_Vpered_Iz_Zadu"
3) Перемещаем метку в начало абзаца, удаляем стиль:
Режим: Подстановочные знаки
Найти: "(?@)$&&(^13)"
Дополнительнно: Стиль "Style_Vpered_Iz_Zadu"
Заменить на: "$&&\1\2"
Дополнительнно: Стиль "Normal" (или "Обычный", или тот, который Вы использовали ранее)
Эти действия без труда возможно записать макрорекордером, пункты 2) и 3) повторить для других меток, это возможно в цикле