关于柔老大回答果果关于段落样式我的问题

wyanshan

这是老大的回答：
http://club.excelhome.net/viewthread.php?tid=69053&replyID=339856&skin=1

这个帖子里面附带的word文档，按照老大的说法项目编号都没有使用，而是手工输入的，比如1,1.1,1.1.1等等。
我的问题：
1、对于
If i.Range Like "#.# *" = True Then
            i.Style = wdStyleHeading9
End If
这个确实可以把以1.1开头的段落变成了标题九，但是有一个问题就是样式标题九不能设置编号，如果设置了编号，那么由于文本“1.1”还是里面，所以就存在重复现象。假如标题就是：1.1.1.1样式，那么程序运行完毕就变成了：1.1.1.1   1.1内容  的样子了。我说得对吗？所以，假如标题九是包含有编号的样式的话，那么还需要额外的程序就是把文本“1.1”删除。我说得对吗？
2、假如word里面确实使用了编号，不像老大评价果果说甚至连编号都不使用。曾经我有过一篇长文挡摆在我面前，我不知道样式怎么使用，我只使用编号，但是到了最后才发现不能提取目录。要是再给我机会的话，我一直会的。因为编号和样式没有连起来。如果不通过vba程序的话，解决办法就是选择相同编号的实例，直接改变成标题就可以。但是如果使用vba修改，该怎么实现？
我是不是有点烦啊。。。。。

konggs

建议:在原贴提问,否则,大家可能没时间看.

Sub Auto_list()

    Dim tempPar As Paragraph
    For Each tempPar In ThisDocument.Paragraphs
   
        If tempPar.Range Like "#. *" Then
           ThisDocument.Range(tempPar.Range.Start, tempPar.Range.Start + 3).Delete
           tempPar.Style = wdStyleHeading1
        ElseIf tempPar.Range Like "#.#. *" Then
           ThisDocument.Range(tempPar.Range.Start, tempPar.Range.Start + 5).Delete
           tempPar.Style = wdStyleHeading2
        ElseIf tempPar.Range Like "#.#.#. *" Then
           ThisDocument.Range(tempPar.Range.Start, tempPar.Range.Start + 6).Delete
           tempPar.Style = wdStyleHeading3
           '自己加
        End If
       
    Next

End Sub

[此贴子已经被作者于2007-4-21 11:52:54编辑过]