This question shows research effort; it is useful and clear
3
This question does not show any research effort; it is unclear or not useful
Bookmark this question.
Show activity on this post.
我在 Word 中创建了一个文本 bo,我想在其中插入文本:
Sub k()
Dim Box As Shape
Set Box = ActiveDocument.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=50, Top:=50, Width:=100, Height:=100)
//HOW TO INSERT HERE TEXT INTO TEXT BOX
End Sub
Sub k()
Dim Box As Shape
Set Box = ActiveDocument.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=50, Top:=50, Width:=100, Height:=100)
'The solution for you:
Box.TextFrame.TextRange.Text = "My text comes this way"
End Sub