Question

VBA怎样实现TextBox1文本框写满后光标自动移动到TextBox2文本框里。

Answer 1

Private Sub TextBox1_Change()
Dim L&, i%, str$, arr(), StrL&
On Error Resume Next
L = TextBox1.Font.Size
str = TextBox1.Text
For i = 1 To Len(str)
    ReDim Preserve arr(i - 1)
    If Asc(Mid(str, i, 1)) < 0 Then
        arr(i - 1) = L * 2 * 0.6
    Else
        arr(i - 1) = L * 1 * 0.6
    End If
Next
StrL = Application.Sum(arr())
If StrL >= TextBox1.Width Then
    TextBox2.SetFocus
End If
End Sub

追问

追答

最基本的常识，你没有启用宏

追问

老师，你好!你写的VBA在word2003里实现不了。

怎样启用宏?

追答

这个是excel窗体调试的代码。
你题目中没有说明是word还是excel，更没有说明textbox是表单控件还是窗体控件。
之后问问题要祥尽些。
至于你提到的问题，应该不是word 与 excel 的问题，应该是后者，表单与窗体的问题。
如果是表单控件，那么在textbox之前必须加上主体对象，如：
sheet1.textbox1

追问

是我没说明清楚。是在Word2003文档中用控件添加的两个文本框。

老师谢谢!不是表单哦。

请老师继续给个解答。谢谢您!

就是在word空白文档中用控件制作两个和文本框TextBox1和TextBox2用VBA实现两文本框自动链接，1文本框中写满后光标自动到2文本桩。