Word VBA教程:AddTextbox方法

应用于 CanvasShapes对象的 AddTextbox方法。

在画布上添加一个文本框。返回代表该文本框的 Shape对象,并将其添加到 CanvasShapes集合。

expression.AddTextbox(Orientation, Left, Top, Width, Height)

expression   必需。该表达式返回一个 CanvasShapes对象。

Orientation MsoTextOrientation,必需。指定文本的方向。由于选择或安装的语言支持(例如美国英语)不同,有些常量可能无法使用。

MsoTextOrientation 可以是下列 MsoTextOrientation 常量之一:
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

Left  Single 类型,必需。文本框左侧边缘的位置,以磅为单位。

Top  Single 类型,必需。文本框上部边缘的位置,以磅为单位。

Width  Single 类型,必需。文本框的宽度,以磅为单位。

Height  Single 类型,必需。文本框的高度,以磅为单位。

应用于 Shapes对象的 AddTextbox方法。

在文档中添加一个文本框。返回一个代表该文本框的 Shape对象,并将其添加到 Shapes集合。

expression.AddTextbox(Orientation, Left, Top, Width, Height, Anchor)

expression   必需。该表达式返回“应用于”列表中的一个对象。

Orientation  MsoTextOrientation,必需。指定文本的方向。由于选择或安装的语言支持(例如美国英语)不同,有些常量可能无法使用。

MsoTextOrientation 可以是下列 MsoTextOrientation 常量之一:
msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast

Left  Single 类型,必需。文本框左侧边缘的位置,以磅为单位。

Top  Single 类型,必需。文本框上部边缘的位置,以磅为单位。

Width  Single 类型,必需。文本框的宽度,以磅为单位。

Height  Single 类型,必需。文本框的高度,以磅为单位。

Anchor  Variant 类型,可选。代表文本框所连接文本的 Range对象。如果指定 Anchor,锁定标记将位于锁定区域第一段的起始位置。如果忽略该参数,Word 将自动选定锁定区域,而该文本框将相对于页面的上部和左侧边缘进行定位。

VBA示例

当应用于 CanvasShapes对象时。

本示例在新文档中的画布上添加一个文本框。


Sub NewCanvasTextbox()
    Dim docNew As Document
    Dim shpCanvas As Shape
    'Create a new document and add a drawing canvas
    Set docNew = Documents.Add
    Set shpCanvas = docNew.Shapes.AddCanvas _
        (Left:=100, Top:=75, Width:=150, Height:=200)
    'Add a text box to the drawing canvas
    shpCanvas.CanvasItems.AddTextbox _
        Orientation:=msoTextOrientationHorizontal, _
        Left:=1, Top:=1, Width:=100, Height:=100
End Sub

当应用于 Shapes对象时。

本示例在新文档中添加一个包含文字“Test”的文本框。


Sub newTextbox()
    Dim docNew As Document
    Dim newTextbox As Shape
    'Create a new document and add a text box
    Set docNew = Documents.Add
    Set newTextbox = docNew.Shapes.AddTextbox _
        (Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=300, Height:=200)
    'Add text to the text box
    newTextbox.TextFrame.TextRange = "Test"
End Sub

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号