我在 Word 中创建了一个文本框,我想在其中插入文本:
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
关于vba - 如何在Word宏中的TextBox中插入文本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17126517/