Как узнать, есть ли в документе Перекрёстная ссылка?

[Busine2009]

То есть надо узнать, есть ли в документе поле, имеющее слово Ref.

[Aent]

Код: Выделить всё

Dim f as field

for each f in ActiveDocument.Fields
    if f.type = wdFieldRef then
          MsgBox "Есть поле REF в документе"
          exit for
    end if
next f

Но поля могут быть и в шейпах в документе и в клонтитулах. Если эти случаи вас так же интересуют то нужно по аналогичной схеме проверять и там.

[Busine2009]

Aent
в принципе я подумал, подходит, просто после первого найденного поля wdFieldRef ставить выход из процедуры. Я почему не хотел такой способ - потому что он долгий и будет все Поля просматривать - если в документе много полей - то много время уйдёт (5 минут - тоже время в моей работе) - наверное не буду это использовать.