object associated with the specified shape.
expression.WebTextBox
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example creates a new Web text box, specifies default text, indicates that entry is required, and limits entry to 50 characters.
Dim shpNew As Shape Dim wtbTemp As WebTextBox Set shpNew = ActiveDocument.Pages(1).Shapes _ .AddWebControl(Type:=pbWebControlSingleLineTextBox, _ Left:=100, Top:=100, Width:=150, Height:=15) Set wtbTemp = shpNew.WebTextBox With wtbTemp
.DefaultText = "Please Enter Your Full Name" .RequiredControl = msoTrue .Limit = 50
End With