можно ли в ворде сделать сравнительный поиск

Iska · Отправлено: **17:50, 31-07-2013** | #7

kontox, задача в изложенном виде автоматизации в принципе не поддаётся. Прежде всего — из-за ужасающе разношерстного оформления.

Вот пример попытки решения первого вопроса. Первое — надо как-то получить из документа ФИО. Предположим, это будет первое слово (предполагается, что «И.О.» отделены от «Ф», как и положено, неразрывным пробелом) в абзацах, содержащих нумерацию:

Код:

Option Explicit

Sub qww()
    Dim objParagraph As Paragraph
    
    For Each objParagraph In ThisDocument.Paragraphs
        If objParagraph.Range.ListFormat.ListValue <> 0 Then
            Debug.Print Split(objParagraph.Range.Text)(0)
        End If
    Next
End Sub

И что мы видим? Кто в лес, кто по дрова:

Я — пас. С таким материалом работать не возьмусь.

Цитата:

Если бы губы Никанора Ивановича да приставить к носу Ивана Кузьмича, да взять сколько-нибудь развязности, какая у Балтазара Балтазарыча, да, пожалуй, прибавить к этому еще дородности Ивана Павловича — я бы тогда тотчас же решилась.

P.S. «*» — так форум трактует неразрывный Word'овский пробел.