VBA Word o 将文本框 text/paragraph 垂直对齐设置为 "center"

Question

我在Word中创建了一个文本框，可以为其设置各种属性，例如位置、文本、文本样式、文本水平对齐方式(left/right/center)、颜色等等。

但我找不到任何设置来将框中文本的垂直对齐设置为 Top/Middle/Bottom。功能区上有一个用于设置属性的垂直对齐按钮，但我无法通过对象检查器、智能感知或网络搜索找到它。我尝试录制一个宏，但宏中唯一出现的行是文本框 select 的 VBA 行。没有其他的。 :-(

功能区按钮在 "set text direction" 选项旁边，但我也找不到该设置的 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

（问题中提到的枚举是针对页面布局的。）

VBA Word o 将文本框 text/paragraph 垂直对齐设置为 "center"

VBA Word o set textbox text/paragraph vertical alignment to "center"

textbox

ms-word

shapes

vertical-alignment