Шаблон поиска

[Скрипт]

Если есть какие-нибудь идеи, как составить шаблон поиска для следующего текста:
решен слово_1 слово_2 слово_3 слово_4 слово_5 слово_6 слово_7 слово_8 слово_9 слово_10 слово_11 от 01.01.2012 №

где:
решен - это корень;
слово_1 - любое слово;
01.01.2012 - любая дата в виде: ##.##.####
№ просто символ "№"

Условия:
корень "решен" находится в начале слова;
после корня "решен" не должно быть окончания "ми";
слово_1 - количество слов от нуля до 11.

Примерный шаблон я такой делаю:
<решен [!м][!и]( ){1;13}<от [0-9]{2}.[0-9]{2}.[0-9]{4} №

В выложенном файле должен находиться только второй абзац.

Примечание

1. Сделал такую работу с помощью макросов. Но сейчас на свежую голову пришла идея, что можно сделать с помощью "Найти и заменить", что может работать быстрее, да и кода меньше будет - легче будет ориентироваться в коде.
2. Использовать нужно именно средства программы Word, а не библиотеку (это в программировании VBA) "Microsoft VBScript Regular Expressions 5.5", т.к. нужно обрабатывать найденный текст и нужно получить доступ к тексту в документе, сохраняя форматирование и всё остальное.

[nerv]

Sub io()
    Dim Paragraph As Paragraph
    Dim Text As String
    
    With CreateObject("vbscript.regexp")
        .Pattern = "^\s*решен\S*\s+(?:[^_]+_+\d+[\s,.]+){1,15}\D+\d\d\.\d\d\.\d{4}\s*№\s*$"
    
        For Each Paragraph In ThisDocument.Paragraphs
            Text = Paragraph.Range.Text
            
            If .Test(Text) Then
                MsgBox Text
            
                With Paragraph.Range.Find
                    .ClearFormatting
                    
                    ' Нафти внутри абзаца весть текст (не помню, читай доку)
                    '.Execute "*"
                    
                    ' Заменить без потери форматирования
                    ' .Replacement.Text = "some"
                End With
            End If
        Next
    End With
End Sub

[Вождь]

Не будет одного шаблона для обычного поиска.

Оптимально:
1. Искать макросом, по шаблону типа такого:
<решен[!^13]@<от [0-9]{2}.[0-9]{2}.[0-9]{4} №
2. Затем дополнительно проверять найденное. Лучше всего способом, предложенным nerv. Перебор параграфов лучше исключить - это тормоза.

[Скрипт]

А как привязку сделать результата, полученного с помощью Microsoft VBScript Regular Expressions 5.5, к тексту в документе?

Порядковые номера символов в документе Word не всегда совпадают с порядковыми номерами символов, взятых в переменную.

"Microsoft VBScript Regular Expressions 5.5" работает же в переменной, а не в документе Word.

[Вождь]

Тем же поиском (Find). У вас есть текст, есть область, осталось поискать.

Утоняющую проверку можно сделать и без RegExp. Например циклом For Each для Words найденной области.

[nerv]

Сообщение от Вождь

Не будет одного шаблона для обычного поиска.

как правило да. В данном случае я бы тоже разбил на
1. примерно найдено
2. найдено наверняка (этот пункт тоже на подпункты потому, что так проще)
а) надено решен* (найти и вырезать)
б) найдены слова (найти и вырезать)
в) найдена дата

Сообщение от Вождь

Перебор параграфов лучше исключить - это тормоза.

могу ошибаться, но, думаю, в этом случае это не столь критично, главное качество (поиска). Хотите быстро? Пишите на ассемблере и компилируйте. В данном случае, исходя из файла, одним из критериев отбора является параграф.
Если метод Find обеспечивает доступ к найденному (параграф, символ и т.п., я этого не помню), можно воспользоваться им.
- нашли файндом (можно просто решен*)
- начало параграфа? проверяем дальше этот параграф,
- нет, ищем find'ом дальше

Сообщение от Вождь

Утоняющую проверку можно сделать и без RegExp. Например циклом For Each для Words найденной области.

гемморой

[Вождь]

Сообщение от Скрипт

...привязку...результата...к тексту в документе?...
...номера символов в документе...не всегда совпадают с...номерами символов, взятых в переменную...

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

...гемморой...

Как же в Word без него?

Человеку нужно получить области (Range) слов, даты и др. И ищется не обычный текст, а наверное поля, судя по цитате. На это и направлены мои советы.

[Скрипт]

Вождь, просто я не знаю, что может быть в Word-документе, поэтому я хотел бы использовать средства самой программы Word.

Можно ли Word-документ представить как переменную с типом данных String? Нет, нельзя. Простой пример - это таблица в Word-документе. Если взять фрагмент Word-документа в переменную с типом данных String, то в переменной будет больше символов, чем есть в объекте Range, поэтому сопоставить данные из переменной и Word-документом просто так не получится - нужно учитывать много факторов.

[Скрипт]

Новая идея появилась - сначала искать вот это:
<от [0-9]{2}.[0-9]{2}.[0-9]{4} №

а затем уже влево двигаться (в начало документа) и анализировать, что встречается.

Пока что на макросах остановился.

[Скрипт]

nerv: Хотите быстро? Пишите на ассемблере и компилируйте.

Есть особенности в VBA-Word, VBA-Excel, когда можно одно действие заменить другим и будет быстрее. В VBA-Word и VBA-Excel - это, например, использование команды "Find" вместо просмотра всех слов или ячеек.

nerv: В данном случае, исходя из файла, одним из критериев отбора является параграф.

файл неудачный получился (просто лень было делать). Критерий отбора в данном случае - взять нужное слово "решен" и изменить в нём форматирование. В данном случае нужное слово "решен" во втором абзаце. Но абзац здесь не играет роли - просто файл неудачно выложил.