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

【问题标题】：VBA Word o set textbox text/paragraph vertical alignment to "center"VBA Word o将文本框文本/段落垂直对齐设置为“中心”
【发布时间】：2020-06-29 21:22:34
【问题描述】：

我在 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.

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

【问题讨论】：

标签： ms-word textbox vertical-alignment shapes

【解决方案1】：

属性为TextFrame.VerticalAnchor，使用枚举MsoVerticalAnchor

例如：

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

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

【讨论】：

谢谢。难怪我找不到它 - 它在层次结构中的两个级别！