VBA能实现打开文件的指定页吗？

[wangonly75]

比如，WORD文件，打开后显示第2页,这个VBA能实现吗？
打开文件我是这样写的：
Dim wdApp
Set wdApp = CreateObject("word.application")
wdApp.Visible = True
wdApp.Documents.Open("D:\test.doc")

[lzqgj]

可以的。录制宏，然后在编辑中点定位，选择页码，确定后，查看录制的宏，看看有什么内容

[Tiger_Zhao]

Option Explicit

Sub Main()
    Dim wdApp As Word.Application
    Set wdApp = New Word.Application
    wdApp.Visible = True
    wdApp.Documents.Open ("C:\temp\1.doc")
    wdApp.Selection.GoTo wdGoToPage, wdGoToNext, , "2"
End Sub

[wangonly75]

[Quote=引用 2 楼 tiger_zhao 的回复:]
VB code
Option Explicit

Sub Main()
Dim wdApp As Word.Application
Set wdApp = New Word.Application
wdApp.Visible = True
wdApp.Documents.Open ("C:\temp\1.doc")
wdApp.Selecti……
[/Quote]
dApp.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=2
VBA里面应该是这样写的吧。可为啥没有效果呢？test.doc一共4页。

[wangonly75]

PPT、PDF文件呢？

[Tiger_Zhao]

要添加对 Word 的引用。

[hualoveqi]

[Quote=引用 2 楼 tiger_zhao 的回复:]

VB code
Option Explicit

Sub Main()
Dim wdApp As Word.Application
Set wdApp = New Word.Application
wdApp.Visible = True
wdApp.Documents.Open ("C:\temp\1.doc")
wdApp.Selection.GoT……
[/Quote]
支持！！~