作者：乔山办公网日期：
返回目录：word文档
代码如下e68a84e8a2ad7a64335：
Dim wdapp As Object
Dim wd As Object
Private Sub Command1_Click()
Set wdapp = CreateObject("Word.Application") '创建Word运用环境
Set wd = wdapp.Documents.open(App.Path & "\mi.docx") '打开Word
wdapp.Visible = True
End Sub
Private Sub Command2_Click()
wdapp.selection.insertafter "Hello World!" '插入相关字符！
MsgBox wdapp.selection.range.start
End Sub
Private Sub Form_Unload(Cancel As Integer)
wd.Close True '关闭Word文件
wdapp.Quit '退出word运用环境
End Sub
附件如下：
话说大哥，一分悬赏分都不给吗？专门给你写的代码和测试文件啊，你这个题怎么滴也得50分吧，我觉得！
方法和详细的来操作步骤如下：
1、第一步，打开包含4页的word文档，见下图，转到下面的步骤。
2、第二步，自完成上述步骤后，如果要快速将光百标移至第3页，则可以单击“替换”选项，见下图，转到下面的步骤。
3、第三步，完成上述步骤后，弹出一个对话框，单击“定位”选项卡，见下图，转到下面的步骤。
4、第四步，完成上述步骤后，弹出一个对话框，单击“定位目度标”选项中的“页”选项，在右问侧的页面编号栏中输入页号“
3”，然后单击“定位”按钮，答见下图，转到下面的步骤。
5、第五步，完成上述步骤后，光标将快速移至页面3的第一行，见下图，转到下面的步骤。
6、第六步，完成上述步骤后，要找到该行，请选择左侧的“行”，然后在右侧输入行号以进行定位，见下图，转到下面的步骤。
7、第七步，完成上述步骤后，就获得了想要的结果了，见下图。这样，就解决了这个问题了。
'移动光标至zhidao当前段专落的开始 Selection.MoveUp unit:=wdParagraph End Sub Sub MoveToCurrentParagraphEnd() '移动光标至当前段落的结尾属 Selection.MoveDown unit
拿API
SetCursorPos
别说不会算位置