Выделить весь текст без кнопок ActiveX

Question

Я пытаюсь создать шаблон с кнопками ActiveX для вызова процедур Sub.В какой-то момент я должен выделить текст и преобразовать его в таблицу.

Итак, я должен найти способ выделить текст, не выбирая элементы управления ActiveX.Я полагал, что будет два подхода:

1. написать код, который выделяет текст без объектов (у меня есть только объекты ActiveX);
2. изменить свойство объектов таким образом, чтобыони не выбираются с помощью Selection.WholeStory или аналогичного кода.

Я безуспешно пытался использовать следующие методы:

• с использованием Selection.WholeStory - он выбираетвесь текст, включая элементы управления ActiveX
• , обертывающие объекты Square, не соответствующие тексту и размещающие их вне области печати - объекты по-прежнему выделены
• , помещая объекты взаголовок - таким образом, кнопки нельзя использовать / нажимать
• , помещая элементы управления в текстовое поле - они по-прежнему выбираются

Знаете ли вы способ достижения моей цели?

Answer 1

Самым простым способом было поставить маркер раздела после кнопок (которые настроены как " в строке ") и защитить первый раздел от редактирования.

Нажмите Developer -> Restrict Editing -> Отметьте Allow only this type of editing in the document и выберите Filling in forms. Затем нажмите Select Sections и выберите первый раздел.

Далее, в коде VBA, чтобы выделить весь текст, я использую этот код:

Dim rngText As Range
Set rngText = ActiveDocument.Sections(2).Range
rngText.Select