Массовая замена

[Rossoman]

Нужно сделать массу замен в документе ворд, например:
я реализую через функцию

но это же наверно не самый быстрый способ?))
если документ очень большой... это просто невыносимо...

Public Function Zamena(Stroka As String, NStroka As String, Registr As Boolean, Celoe As Boolean) As Boolean
Selection.StartOf wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Stroka
        .Replacement.Text = NStroka
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = Registr
        .MatchWholeWord = Celoe
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Function

Zamena "^p<!--pagebreak-->^p- ", "- ", False, False
Zamena "^p<!--pagebreak-->^p* ", "* ", False, False
Zamena "^p<!--pagebreak-->^p• ", "• ", False, False
Zamena "^p<!--pagebreak-->^p> ", "> ", False, False
Zamena "***^?^p***", "***", False, False
Zamena "<!--pagebreak-->^p^p^p^p#####", "#####", False, False
Zamena "<!--pagebreak-->^p^p^p#####", "#####", False, False
Zamena "<!--pagebreak-->^p^p#####", "#####", False, False
Zamena "^p***^p^p^p", "^p^p^p", False, False
Zamena "***", "<hr>", False, False
Zamena "см. рис. ^?^?", "", False, False
Zamena "см. рис. ^?", "", False, False
Zamena ", см. рисунок", "", True, False
Zamena "Per. ", "Рег. ", True, False
Zamena "рer. ", "рег. ", True, False
Zamena "Продолжение в следующем номере.", "", False, False
Zamena "[формула]", "", False, False
Zamena "прим, ред", "Прим. ред", False, True
Zamena "показано на рисунке на с. ^?^?", "описано дальше(ниже)", False, False
Zamena "показано на рисунке на с. ^?", "описано дальше(ниже)", False, False
Zamena "показано на рисунке ^?^?", "описано дальше(ниже)", False, False
Zamena "показано на рисунке ^?", "описано дальше(ниже)", False, False
Zamena "показано на диаграмме", "описано дальше(ниже)", False, False
Zamena "показано на диаграммах, представленных на рисунках", "описано дальше(ниже)", False, False
Zamena "показано в таблице ^?(^?)", "описано дальше(ниже)", False, False
Zamena "показано в таблице на стр. ^?^?", "описано дальше(ниже)", False, False
Zamena "показано в таблице на стр. ^?", "описано дальше(ниже)", False, False
Zamena "показано в таблице ^?^?", "описано дальше(ниже)", False, False
Zamena "показано в таблице ^?", "описано дальше(ниже)", False, False
Zamena "показано в таблице", "описано дальше(ниже)", False, False
Zamena "показано в табл. ^?.^?", "описано дальше(ниже)", False, False
Zamena "показано в табл. ^?^?", "описано дальше(ниже)", False, False
Zamena "показано в табл. ^?", "описано дальше(ниже)", False, False
Zamena ":^p^p<!--pagebreak-->", ":", False, False
Zamena "—", "-", False, False
Zamena "^+", "-", False, False
Zamena ": *", ": ^p*", False, False
Zamena ": -", ": ^p-", False, False
Zamena ": •", ": ^p•", False, False
Zamena ": >", ": ^p>", False, False

[viter.alex]

А другого способа не существует. Попробуйте заменить Selection на ActiveDocument.Range. Почему сделали функцией, если нигде не возвращаете значение? Сделайте процедурой:

Public Sub Zamena(Stroka As String, NStroka As String, Registr As Boolean, Celoe As Boolean)
    With ActiveDocument.Range.Find
        .Text = Stroka
        .Replacement.Text = NStroka
        .MatchCase = Registr
        .MatchWholeWord = Celoe
        .Execute Replace:=wdReplaceAll
    End With
    DoEvents 'Это чтобы не зависало
End Sub

[Skif-F]

Можно ещё заняться контектсным анализом без использования функции Find. Что-то наподобие этого:

Dim R As Range, T As String
Set R = ActiveDocument.Words.First 'Sentences/Paragraphs/Words'

Do
    Set R = R.Next(Unit:=wdWord, Count:=1)  'wdCharacter/wdSentence/wdParagraph и т.д.'
    T = R.Text 'Получаем текстовое значение'
    'А вот тут вставляем самое интересное - анализ и изменение'
    ...

    R.Text = T  'Возвращаем изменённое текстовое значение'
Loop While Not (R Is Nothing)

Нельзя всегда надеяться только на встроенные возможности Офиса

[viter.alex]

Да, есть такое дело с перебором через Next. Оно иногда быстрее работает, чем цикл For Each (например, с таблицами), но чтобы быстрее поиска? Да и возможности ограничены словом, символом, предложением и т.д.

[Skif-F]

Сообщение от viter.alex

Да, есть такое дело с перебором через Next. Оно иногда быстрее работает, чем цикл For Each (например, с таблицами), но чтобы быстрее поиска? Да и возможности ограничены словом, символом, предложением и т.д.

Открой тему "как подсчитать количество символов?" и сравни скорости работы вариантов...
Find довольно медленная штука, особенно на больших текстах...

[viter.alex]

Так там же задача стояла другая. А здесь стоит задача замены выражений. Поиск мне представляется наглядным и простым

[Sasha_Smirnov]

Сообщение от viter.alex

...Поиск мне представляется наглядным и простым

Я, пока не углублялся, тоже так думал

[Skif-F]

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

но это же наверно не самый быстрый способ?))
если документ очень большой... это просто невыносимо...

Что значит ОЧЕНЬ БОЛЬШОЙ? для пробы прогнал Вашу программу на файле 1,5МБ - работал 2 сек. Куда быстрее? С поправкой на процессор допускаю 10-15 сек, неужели Вам надо обрабатывать десятки файлов?

[Aent]

IMHO, оптимален поиск с заменой.
Не оптимальны приведённые в первом посте запросы. (Если это не абстрактный пример) Их явно можно оптимизировать путём объединения.
Skif-F, встречаются увы документы и по 1,5ГБ

[viter.alex]

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

…Skif-F, встречаются увы документы и по 1,5ГБ

При том, что текста не может быть более 32Мб!