如何取得word目录树中指定的目录对应的文档内容

zxyding

例如：目录中有 aaa 1 bbbbbb 4 cccccccc 6 fffffffffff 7 ggggggggg 10 我想取bbbbbb 到fffffffffff 之间的文档内容

zjx3456

插入-索引与目录

zxyding

要求，用vba完成。 请斑竹帮忙

zxyding

目录我已取得。 怎样取得两个超连接之间的内容。

紫秋的玻璃板

等待答案

守柔

QUOTE:

以下是引用zxyding在2003-6-23 15:06:00的发言：
要求，用vba完成。
请斑竹帮忙

以下代码供参考：

Sub Example()
    Dim i As Field, strCode As String
    Dim StartToc As String, EndToc As String
    Dim lngStart As Long, lngEnd As Long
    StartToc = "Bbbbbb"
    EndToc = "Fffffffffff"
    With ActiveDocument
        For Each i In .TablesOfContents(1).Range.Fields
            strCode = i.Code.Text
            strCode = VBA.Replace(strCode, " HYPERLINK \l ", "")
            strCode = VBA.Mid(strCode, 2, Len(strCode) - 3)
            '            Debug.Print strCode
            If VBA.InStr(i.Result, StartToc) = 1 Then
                lngStart = .Bookmarks(strCode).Range.Start
            ElseIf VBA.InStr(i.Result, EndToc) = 1 Then
                lngEnd = .Bookmarks(strCode).Range.Start
                Exit For
            End If
        Next
        .Range(lngStart, lngEnd).Select
    End With
End Sub