VBA Word o установить текстовое поле текста / параграфа по вертикали в «центр» - PullRequest
1 голос
/ 18 марта 2020

Я создал текстовое поле в Word и могу установить для него различные свойства, такие как положение, текст, стиль текста, горизонтальное выравнивание текста (влево / вправо / по центру), цвет и т. Д.

Но я не могу найти какие-либо настройки, чтобы установить вертикальное выравнивание текста в поле сверху / снизу / сверху. Есть кнопка для вертикального выравнивания на ленте, чтобы установить это свойство, но я не могу найти его через инспектор объектов, через Intellisense или через поиск в net. Я попытался записать макрос, но единственной строкой, которая появилась в макросе, была строка VBA для выбора текстового поля. Ничего больше. : - (

Кнопка ленты находится рядом с опцией «установить направление текста», но я также не смог найти VBA для этого параметра. Я также пробовал свойство Textframe2, но там ничего не видел для вертикального выравнивания.

Вот код, который устанавливает горизонтальное выравнивание текста. Также я включил перечисление, которое, я думаю, мне нужно использовать. Но я не могу найти свойство, чтобы принять значение из перечисления.

   tbox.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphRight

WdVerticalAlignment enumeration (Word):
Name                 Value  Description
wdAlignVerticalBottom   3   Bottom vertical alignment.
wdAlignVerticalCenter   1   Center vertical alignment.
wdAlignVerticalJustify  2   Justified vertical alignment.
wdAlignVerticalTop      0   Top vertical alignment.

Кто-нибудь знает синтаксис свойства, которое мне нужно установить для вертикального выравнивания текста внутри формы текстового поля? Спасибо

1 Ответ

1 голос
/ 21 марта 2020

Свойство TextFrame.VerticalAnchor использует перечисление MsoVerticalAnchor

Например:

ActiveDocument.Shapes(1).TextFrame.VerticalAnchor = msoAnchorMiddle

(перечисление, упомянутое в вопросе, относится к макету страницы.)

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...