word2000，插入目录，怎么没有大纲形式呢？

办公之星

点击F9，就显示为域结果了^-^

瑾果

以下是引用办公之星在2004-11-11 18:19:00的发言： 点击F9，就显示为域结果了^-^

可是，以前都不是这样的啊，直接显示的就是正文，现在怎么先显示那些域呢？

cbyqpy

Sub 生成标题大纲()
    Dim p As Paragraph, i As Range, MyStr As String, r As Range
    Application.ScreenUpdating = False
    MyStr = "一二三四五六七八九十"
    For Each p In Selection.Paragraphs
        If (p.Range.Tables.Count > 1) Then GoTo H
        If (p.Range.Start + 10 > ThisDocument.Range.End) Then
            GoTo H
        Else
            Set r = ThisDocument.Range(p.Range.Start, p.Range.Start + 10)
        End If
        
        If r Like "#.#.#.#*" = True Then
        '    p.OutlineLevel = wdOutlineLevel4
        ElseIf r Like "#.#.#*" = True Then
        '    p.OutlineLevel = wdOutlineLevel3
        ElseIf r Like "#.#*" = True Then
            p.OutlineLevel = wdOutlineLevel2
        ElseIf r Like "#.*" = True Then
            p.OutlineLevel = wdOutlineLevel1
        ElseIf (InStr(MyStr, Left(r.Text, 1)) > 0 And Mid(r.Text, 2, 1) = "、") Then
            p.OutlineLevel = wdOutlineLevel1
        Else
'            i.Style = wdStyleNormal
        End If
    Next p
H:
    Application.ScreenUpdating = True
End Sub

liucixin

楼主对word样式和多级编号的理解尚未入门，先看看我的这个吧

cumulonimbus

守柔 发表于 2004-11-11 14:06
TO 果果：
我不是表扬你，这种文档一般不可以拿出来的。你不但连样式设置一塌糊涂，连格式/项目符目与编号 ...

守柔版主，为什么我写的程序和你的一模一样，可无法执行。老提示“无效使用ME关键字”。希望能够得到解答哈，谢谢

dandan076

cumulonimbus 发表于 2012-4-3 23:41
守柔版主，为什么我写的程序和你的一模一样，可无法执行。老提示“无效使用ME关键字”。希望能够得到解答 ...

嗯……因为放的位置不对，你的代码应该要放在ThisDocument中，不能放在模块中