VBA词o将文本框文本/段落垂直对齐设置为“中心”

Question

我已经在Word中创建了一个文本框，并可以为其设置各种属性，例如位置，文本，文本样式，文本水平对齐方式（左/右/中心），颜色等。

但是我找不到任何将框内文本的垂直对齐设置为上/中/下的设置。功能区上有一个用于垂直对齐的按钮来设置该属性，但是我无法通过对象检查器，Intellisense或搜索网络来找到它。我尝试录制宏，但是宏中显示的唯一一行是用于选择文本框的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.

有人知道我需要设置属性以在文本框形状内垂直对齐文本的语法吗？谢谢

Answer 1

该属性是使用枚举TextFrame.VerticalAnchor的MsoVerticalAnchor

例如：

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

（问题中提到的枚举用于页面布局。）