转到word文档中的特定位置

Question

我编写了以下脚本，使我能够从outlook中打开一个word文档：

Sub OpenSOPRR()
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document

    Set wordApp = GetObject(, "Word.Application")
    If wordApp Is Nothing Then
        Set wordApp = CreateObject("Word.Application")
        wordApp.Visible = True
    End If
    Set wordDoc = wordApp.Documents.Open("C:\Documents and Settings\aa471714\Desktop\Doc1.doc")
    Set wordApp = Nothing
    Set wordDoc = Nothing
End Sub

我现在想添加一些能让我直接进入doc中特定位置的东西。所以我例如将第2页上的标题分类为“area1”，并且可以直接去那里......

Answer 1

感谢您的建议。解决了它。只需要为我的worddoc添加一个书签，例如“appels”，然后添加以下代码：

Selection.GoTo What：= wdGoToBookmark，Name：=“Oranje”