VBA Word将文本框文本/段落垂直对齐设置为“居中”

凯文

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

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

辛迪大师

属性是TextFrame.VerticalAnchor使用枚举MsoVerticalAnchor

例如:

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

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章