MS Word игнорирует контроль содержимого внутри Rich Text Box

Question

Есть ли причина, по которой мой макрос MS Word VBA игнорирует раскрывающийся список, который я разместил внутри формы (богатое текстовое поле)? Я пытался со ссылкой на него тег, имя, номер и т.д. У меня даже был макрос сказать мне счет контроля содержания:

MsgBox(ActiveDocument.ContentControls.Count) 

я получаю 0.

Ничего не работает. Если я вынесу его из формы, он отлично работает. MS Word дает мне счет 1 пункта. Но по какой-то причине MS Word не признает его внутри формы. Любая помощь в том, как это сделать?

Answer 1

Отредактировано как мой предыдущий пост, было совершенно неправильно.

Каждое текстовое поле в основной текстовой истории представляет собой форму, к которой вы можете получить доступ, используя номер индекса. Форма имеет различные свойства, но текст и т. Д. Находится в его Textframe, если он есть. Но в этом случае диапазон, который вам нужен, не называется Range, а TextRange. Так, например, первый ContentControl в форму 2,

ActiveDocument.Shapes (2) .TextFrame.TextRange.ContentControls (1)

Вы, вероятно, понадобится перебрать ваши формы, и вы, возможно, потребуется, чтобы убедиться, что данная форма текстовое поле и/или что он имеет TextFrame.

Если ваше текстовое поле находится в другой истории, такой как верхний или нижний колонтитул, вам, вероятно, потребуется определить соответствующий StoryRange.