word的<em>VBA</em>问题，如何让光标移动到指定的位置

使用API函数：
'取得zd当前鼠内标位置容
Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
'设置当前鼠标位置
Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

1、打开zhidaoword文档，这个文档有4页。

2、想将光标迅速移动到第3页，可以点击开始，替换。

3、弹出对话框，点击定位。

4、弹出对话框，点击定位目标专内容“页”，右边输入页号栏输入页码“3”，点击定位。

5、光标就会迅速移动到第3页第第一行位置。

6、要想定位行属，就在左边选择行，在右边输入行号，定位。

7、光标就会迅速移动到指定的行号开头。

“新的一行 ”是指当前选择的下一行的话可以试试下面的代码

Sub test()
ActiveCell.Offset(1, 0).Select
End Sub

Range("B13").select 这样的语句即可以让光标转移到第13行（选中B13格）