Word: Как найти все заблокированные поля в документе?

Question

Можно ли получить список всех полей, которые я использовал в текстовом документе? Я хочу выяснить, какое поле заблокировано, не проходя каждое поле отдельно. Нечто похожее на список, когда вы показываете все связанные файлы, находится в списке, к которому вы можете получить доступ, например, в меню: Файл -> Информация -> Редактировать связанные файлы.

Обычно я использую код VBA для обхода заблокированных полей (как в этом примере: https://word.tips.net/T001367_Locating_Locked_Fields.html), но в этом случае мне нужно сделать это без помощи VBA.

Может быть, есть вариант, который я еще не нашел, например, пометить все заблокированные поля красным, что также сработало бы (хотя я бы предпочел список).

Answer 1

С VBA вы можете добавить комментарий к каждому заблокированному полю в документе. Это приближает вас к первоначальному списку, который вы хотели.

Sub FindLockedFields()
Dim rng As Word.Range
ActiveDocument.Fields.ToggleShowCodes
For Each rng In ActiveDocument.StoryRanges
    With rng.Find
        .ClearFormatting
        .Format = True
        .Forward = True
        .Text = "^d"
        .Wrap = wdFindStop
        .Execute
        Do While .Found
            If rng.Fields.Locked = True Then
                rng.Comments.Add rng, "Locked"
            End If
            rng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            .Execute
        Loop
    End With
Next
ActiveDocument.Fields.ToggleShowCodes

End Sub

Надеюсь это поможет

Answer 2

Без VBA вы не найдете функцию, которая создает список полей в документе. Что вы можете сделать на вкладке «Главная», выберите пункт «Перейти» в группе «Редактировать» и выберите «Поля». Затем вы можете довольно быстро переключаться между полями документа.