Удалить вначале до определенного слова

[Foo_fighter]

Добрый день.

Помогите пожалуйста с задачкой:
надо удалить весь текст с начальной, верхней точки документа до слова "Приложение"

Не понял как слепить макрорекодер и встать курсором в начало документа.

[shanemac51]

Sub ww140409_1210()
'
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "*Приложение"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[Sasha_Smirnov]

shanemac51! Replace:=wdReplaceAll — лишнее, не так ли?

Как и 4 флажка

        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False

Я понимаю, что так учит нас макрорекордер, но ведь и осмыслить не грех!

Кроме того, "Приложение" (1-е вхождение) удалять не надо. Отредактируем?

[shanemac51]

слово Приложение может быть и в тексте,
так что задание достаточно некорректно

[Sasha_Smirnov]

Но насчёт созвучных вхождений (.MatchSoundsLike = False) я бы убрал.

И потом: идя до, например, магазина — разве мы идём до последнего?!

[Foo_fighter]

Спасибо за ответы.
Все значения с False я удалил. И действительно слова "Приложение №" необходимо оставить, я их в Replace поместил, но наверное можно и отнять количество символов.
А вопрос вот какой: как можно данную операцию проводить только для первого вхождения?

[Sasha_Smirnov]

Да просто убрать

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

Replace:=wdReplaceAll

Это будет соответствовать кнопке Заменить (вместо предложенной shanemac51 Заменить всё).

[Foo_fighter]

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

Да просто убрать


Это будет соответствовать кнопке Заменить (вместо предложенной shanemac51 Заменить всё).

Хммм, вот обрабатывающий макрос, который проставляет нумерацию, но вот шляпа, если я убираю кусок кода и оставляю только:

Selection.Find.Execute
у меня не нумерует... Со значением нумерует во всех найденных местах.


Sub ПронумероватьЧерезСловоПриложение()
N = N + 1
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFor matting
With Selection.Find
.Text = "Приложение № "
.Replacement.Text = "Приложение № " & CStr(N)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute
End Sub

[Foo_fighter]

Причем вот какая особенность. В ворде захожу в поиск\замена
в поиск: Приложение №
Замена: любое значение
Жмакаю заменить - происходит выделение слов Приложение №, но нет замены, другими словами, работает как найти.
Странно все это.

[Казанский]

Foo_fighter, можно без макроса.
1. Зайдите в Абзац - Нумерация и создайте новый формат номера, у которого "Приложение №" является частью номера (рис. 1).
2. К какому-нибудь абзацу примените эту нумерацию и создайте новый стиль на основе этого абзаца (рис. 2).
3. Поиск-замена "Приложение №" на пусто с применением стиля (рис. 3).
Теперь если Вы применяете этот стиль к какому-нибудь абзацу, нумерация меняется автоматически по всему документу.