1

Тема: Снятие блокировки сразу с нескольких эл-тов управления

Приветствую!
Такое вот неудобство...
Имеется док-т word2010, в нём таблица, в ячейках которой натыкано много элементов управления содержимым (ЭУС) - поля и списки. На всех стоят атрибуты: не удалять и/или не редактировать.
Вопрос знатокам: как снять/поставить сразу со всех ЭУС галки??  И как их вообще выделить все?
Кстати, такую ячейку (в которой есть залоченный ЭУС) не удалишь, и не изменишь даже цвет границы..((

2

Re: Снятие блокировки сразу с нескольких эл-тов управления

Выделить все не получится
А вот цикл по каждому можно организовтаь с помощью макроса

Sub Разблокировать_ЭУС()

    Dim j As Object
    
    For Each j In ActiveDocument.ContentControls
    
        j.LockContentControl = False
        j.LockContents = False
    
    Next
    
End Sub

3

Re: Снятие блокировки сразу с нескольких эл-тов управления

Отлично! Работает!! big_smile
Не сочтите за наглость, а можно попросить прикрутить (или объяснить принцип) такое:
- если ЭУС "...........список" (любой), то его только лочить от удаления.
- если это "выбор даты", "поле со списком", "раскрывающийся список" - лочить от удаления и редактирования...
---------------
Спасибо! roll

4

Re: Снятие блокировки сразу с нескольких эл-тов управления

azur пишет:

.......
- если ЭУС "...........список" (любой), то его только лочить от удаления.
- если это "выбор даты", "поле со списком", "раскрывающийся список" - лочить от удаления и редактирования...

--------------------------------
Ой!! нет!! ...на радостях всё перепутал, в зобу дыхание спёрло)) ...
False на True я заменил... теперь бы вот такую селекцию:
- если ЭУС "форматированный тескт", "обычный тескт" - лочить от удаления и редактирования...
- если это "выбор даты", "поле со списком", "раскрывающийся список" - то этот ЭУС лочить только от удаления, (но не от редактирования, чтобы можно было выбирать из него)
--------------------------------
Спасибо! smile