Всем привет!!!А Подскажите, пожалуйста, почему не заменяется текст

With Selection.Find
.Text = "_начало_удаления_*_конец_удаления_"
Selection.Delete

End With

или
wDoc.Range.Find.Execute FindText:="_начало_удаления_*_конец_удаления_", ReplaceWith:="", Replace:=2
Код отрабатывает без ошибок, но ничего не удаляет/заменяет. Может я неправильно диапазон меток указываю ("_начало_удаления_*_конец_удаления_") ?
Пишу из VBA Excel, метки скопированы в VBA

Shocker.Pro, я пытаюсь удалить текст между этими тегами. Параграф не работает в excel, поменяла на метки начала и метки окончания.
По FindText - замены единичных меток работают, поэтому и кусок текста стараюсь так удалять