一、word的VBA问题,如何让光标移动到指定的位置
1、打开一个新建的Word文档,点击“插入”——“图片”——“来自文件”,选择一张图片插入到文档中。
2、然后需要在图片上任意位置,点击鼠标右键,选择“设置图片格式”。
3、设置完成,现在我们可以随意移动图片了,比如我把图片移动到了右下方。
二、word vba,怎样在光标所在的textbox中,使用按钮输入内容
楼主,有个概念你要搞清楚,这个光标会变化的,比如当光标位于textbox1时候,你点击按钮的时候,这个时候焦点迅速转移到按钮上,所以,你再去判断光标是不是在textbox1上就失去意义了,因为它肯定不在那里,那么有没有办法可以解决这个问题了,办法当然是有的,就是设置一个公共变量用来记录获得焦点的textbox,这样就会轻而易举的解决问题
Public my_object As Object
Private Sub CommandButton1_Click()
my_object.Value = 1
End Sub
Private Sub TextBox1_GotFocus()
Set my_object = Me.TextBox1
End Sub
Private Sub TextBox2_GotFocus()
Set my_object = Me.TextBox2
End Sub
Private Sub TextBox3_GotFocus()
Set my_object = Me.TextBox3
End Sub
代码解析:
设置一个公共变量my_object,然后word当中有三个textbox,名称分别为textbox1,textbox2,textbox3,然后分别添加事件代码TextBox1_GotFocus
(当光标位于textbox内即获得焦点,会自动触发事件),然后把textbox赋值给公共变量,点击按钮后,给公共变量my_object赋值即可
三、WORD VBA,如何判断当前光标:1.在哪个表格中,2.是否在最后一行
Dim myTable As TableDim talbe_IDFor Each myTable In ThisDocument.Tables If Selection.Range.InRange(myTable.Range) Then table_ID = myTable.ID End IfNext说明:由于Tables对象没有Index属性,也不会自动赋值ID属性(或Title属性),因此需要你事先自行定义各个表格的 ID 属性值,上述代码才会返回所需结果,否则返回的是默认的空值。
转载请注明出处51数据库 » wordvba光标控制