Поиск и замена текста в значениях полей

Идея в ручной расстановке номеров страниц заключается в том, что если в процессе просмотра пояснительной записки преподавателем он захочет изменить порядок разделов/подразделов или что-то выбросить/добавить, то нумерация полностью поплывет и придется перепечатывать всю пояснительную записку. Изначально мне такая идея тоже казалась дурной, но столкнувшись на деле с проблемой понял ее преимущество.
По поводу обновления оглавления оно и понятно, что номера страниц появятся снова, поэтому я и хочу сделать скрипт. Вот только странности с поиском/заменой не дают этого сделать. Пробовал в ворде 2к3 и 2к7 — поведение одинаковое.

А ларчик просто открывался. Поле TOC, которое реализует содержание, создаёт набор полей HyperLink и PageRef, разделённых табуляцией. Всё, что нужно сделать, это выделить содержание и перебрать поля внутри него, делая скрытым текст полей PageRef. Это и делает предлагаемый макрос. После обновления содержания форматирование конечно слетает, и макрос нужно запустить снова.

Sub HidePageNumbersInTOC()
  Dim ofld As Field
  For Each ofld In Selection.Fields
    If ofld.Type = wdFieldPageRef Then
      ofld.Result.Font.Hidden = True
    End If
  Next
End Sub

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

ofld.Result.InsertBefore String(3, Chrw(160))

Я думаю, что причина в невозможности замены в таком поле. Т.е. найти можно, а вот заменить нельзя, поскольку содержимое поля формируется автоматически. Думаю, что то же самое касается и других ссылочных полей: указателя, списка иллюстраций, таблицы ссылок.

Странные дела. Макрос проработал очень мало времени, после чего текст полей wdFieldPageRef перестал скрываться. Может где в настройках ворда чего наковырял и не заметил, а может какой-то глюк, но переустановка офиса не помогла. При этом, после выполнения макроса значение параметра Hidden становится равным минус единице, независимо от того что присваивать этому параметру: True или число. Изначально же, до применения макроса, значение равно нулю. Кстати, тип параметра отчего-то long, а не boolean как, поидее, должно быть. Выход то я нашел быстро и вообще удаляю эти поля. Кстати, это действие визуально быстрее чем скрытие текста поля.
Вот конечный макрос, может кому-то тоже пригодится.

Sub HidePageNumbersInTOC()
ActiveDocument.Sections(Selection.Information(wdActiveEndSectionNumber)).Range.Select     ' выделить все содержимое текущего раздела
  Dim ofld As Field
  For Each ofld In Selection.Fields     ' цикл по обработке всех полей в выделенном фрагменте
    If ofld.Type = wdFieldPageRef Then
      ofld.Delete                                  ' удалить поле wdFieldPageRef
    End If
  Next
Application.Selection.EndOf        ' снять выделение
End Sub

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

Отредактировано Solderer (12.06.2010 18:40:42)