如何用一段话中的第一句做目录？

elvislicn

比如，如果有下面一段话：
“进一步加大政府投入力度。支持西安统筹科技资源改革示范基地建设，对先进制造业、高技术产业、现代农业高技术产业等基地建设给予必要的扶持。对经济区内公益性及以公益性为主的农村基础设施、生态环保、社会事业等领域的项目建设，逐步加大投入力度，取消或减少县及县以下资金配套。”

那么如何把这段话中的第一句“进一步加大政府投入力度。”做目录，而段中的其他文字仍然是文本正文？
非常感谢！

tyxh0916

样式分隔符。ctrl+*显示编辑标记，在第一段任意位置按下ctrl+alt+enter插入一个样式分隔符（显示为段落标记外加一个虚框）选定该标记拖放到第一句话后面，就可以将第一句设置为标题，后面的依然为正文。

fengbin7506

学习了。顺便问一下：这种方法不使用快捷键，如何操作？

csnAlex

第一次见到样式分隔符。学习一下。

fengbin7506

在网上查了一下，明白了：
在word2003下，单击某一段落，再按Ctrl+Alt+Enter后，其下一段落便紧接在后面（中间有编辑标记），好像两个段落组合在一起，而样式前后各异。
        Ctrl+Alt+Enter快捷方式对应的命令为Insertstyleseparator，即插入样式分隔符。使用此方法可将段落的部分文本设置为标题样式，从而使其成为目录的一项（比插入目录项方便），也可在文档结构图中显示。
       自定义-命令-所有命令-insertStyleSeparator-拖到样式，建立样式分隔符功能；

[ 本帖最后由 fengbin7506 于 2010-9-17 14:54 编辑 ]

daocao2003

原帖由 tyxh0916 于 2010-9-17 11:23 发表
样式分隔符。ctrl+*显示编辑标记，在第一段任意位置按下ctrl+alt+enter插入一个样式分隔符（显示为段落标记外加一个虚框）选定该标记拖放到第一句话后面，就可以将第一句设置为标题，后面的依然为正文。

学习了，感谢感谢，从来没有听说过，

ohso

2楼好牛。我也是第一次知道有这个东东。学习了！

elvislicn

长见识了，多谢二楼

gl_zhangt

学无止境啊，又学一招！感谢！

如果文档很大，手工编辑也很累哦！vba也许可以省些力气。

抛砖引玉
Sub Toc()
Dim para, txt
    For Each para In ActiveDocument.Paragraphs
        txt = Split(para.Range.Text, "。")(0)
        Debug.Print txt
    Next
End Sub

[ 本帖最后由 gl_zhangt 于 2010-9-22 15:31 编辑 ]

mrshz

fengbin7506 发表于 2010-9-17 14:51
在网上查了一下，明白了：
在word2003下，单击某一段落，再按Ctrl+Alt+Enter后，其下一段落便紧接在后面（ ...

老师 请问   样式分隔符  在 查找替换  应 如何 表示