转到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

但是，我现在想添加一些使我能够直接转到文档中特定位置的内容。 因此，例如，我将第2页上的标题归类为“ area1”，并可以直接转到那里...

Answer 1

谢谢你们的建议。 解决了。 只需添加一个书签到我的worddoc中，例如使用“ appels”，然后添加以下代码：

Selection.GoTo什么：= wdGoToBookmark，名称：=“ Oranje”