如何通过 VBA 在 MS Word 中定位命令按钮答案

【问题标题】：How to position a command button in MS Word via VBA如何通过 VBA 在 MS Word 中定位命令按钮
【发布时间】：2015-06-29 14:16:40
【问题描述】：

我目前有一个 VBA 脚本，除了 MS word 文档中命令按钮的位置之外，它应该可以正常工作。目前，该按钮被定位为文档上的第一件事，将现有文本推到右侧。

我用于按钮的 VBA 代码是：

Dim doc As Word.Document
Dim shp As Word.InlineShape
Set doc = ActiveDocument

Set shp = doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
shp.OLEFormat.Object.Caption = "Create PDF and print"

如何定位按钮？在同一条线上但居中会很好。居中，但在文档的最后（在键入的字母之后），甚至更好。

谢谢。

【问题讨论】：

标签： vba ms-word

【解决方案1】：

您必须将按钮添加到文档的特定段落。例如：

doc.Content.InsertParagraphAfter
Set shp = doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1", _
    Range:=doc.Paragraphs.Last.Range)

因此，您可以根据需要设置按钮段落的格式。例如：

doc.Paragraphs.Last.Alignment = wdAlignParagraphCenter

【讨论】：

非常感谢，这正是我想要的。您知道如何最好地为按钮着色和调整大小吗？我已经更改了按钮上的标题，现在它不足以显示所有文本（红色按钮也很棒）非常感谢。