光标定位到第n页

lvyandan

表亲们，求指教啊！
以下这段代码，为何在word文档中可以运行，在excel中运行的结果不是想达到的结果呢？
'在桌面新建一word文档，名称为MyDoc
'在活动文档中打开要执行的文档（非活动文档）并将光标定位到第n页
Sub gotopage() '光标定位到第n页
Dim WordObject As Object
Dim wdpage As Object
Dim n As Variant
n = 5
Set WordObject = CreateObject("Word.Application")   '用set来创建Word对象，这里是运行Word程序，但未新建文档
WordObject.Application.Documents.Open ("d:\我的文档\桌面\MyDoc.docx") '打开指定文档
WordObject.Visible = 1 '后台运行Word对象，只在任务管理器中存在WinWord.exe进程，但在任务栏上看不到word；如果为1或者True则可以看到word运行界面
WordObject.Application.Activate   '将后台运行的Word激活为当前窗口
Set WordObject = WordObject.Application.Selection.GoTo(wdGoToPage, wdGoToAbsolute, n)
End Sub

lvyandan

经过几天的摸索。终于有了答案。但是word文档中图片的粘贴并不在光标的位置插入，但至少知道了excel与word交互需要引用。
在excel中做如下设置，即可完成在excelVBA中控制word光标的跳转
'打开excel --> Alt+F11 --> 工具 --> 引用 --> 选中"Microsoft Word 14.0 Object Library"