文档中相关的标题都编号了,怎么才能将这些已编号的标题生成目录项呢?不能改变原编号的情况下?比如D1\x05GENERALREQUIREMENTSD1.1\x05GeneralD1.1.1\x05ThisSpecificationdescribesthestandards,D1.1.2\x05Theintent

Question

文档中相关的标题都编号了,怎么才能将这些已编号的标题生成目录项呢?不能改变原编号的情况下?
比如
D1\x05GENERAL REQUIREMENTS
D1.1\x05General
D1.1.1\x05This Specification describes the standards,
D1.1.2\x05The intent of the Sub-Contract is to
D1.1.3\x05For the purpose of this
a)\x05"Specification" shall mean the Specification.
b)\x05"Drawing" shall mean the drawings attached with the Specification.
c)\x05"Furnish" or "Provide" :to supply,install an
d)\x05"Install" :to erect,mount and
f)\x05"Similar" or "Equal" :equal in materials,weight,
g)\x05"Employer" referred to in the Specification shall mean "Employer".
h)\x05"Architect" referred to in the Specification,shall mean "Architect".
D1.2\x05Site of the Sub-Contract Works
D1.2.1\x05The Site of the Sub-Contract Works is at Shatin C
D1.3\x05Scope of the Sub-Contract Works
D1.3.1\x05This Sub-Contract
D1.4\x05Building Provisions
D1.4.1\x05It shall be the Sub-Contractor's
以上已编号的标题,我想要将一级编号(D1)和二级编号(D1.1 D1.2 D1.3 D1.4),变作目录项,要是我选择相应的编号设置为标题一,那么前面的编号就会消失,这样就改变了以下的三级编号（D1.1.1 这些）,使所有的三级编号都变成D1.1.1 D1.1.2 ````` D1.1.24一直下去,而不会在D1.2之后由D1.2.1重新开始.怎么办呢?这样要怎么做这个目录···请教高手,暂时无分可送···

Answer 1

解决方案：
打开WORD,依次点击：工具－宏－宏－在“宏名”框内输入宏名（好比：NumToTxt）－单击“创建”按钮,弹出Visual Basic编辑器窗口,窗口内自动出现以下内容：
Sub NumToTxt()
'
' NumToTxt Macro
' 宏在 2011-5-14 由 mcs 创建
'
End Sub
其中宏在哪天由谁创建,是根据你的创建的时间、电脑设置来决定的!
把下面的这段代码复制下来：
ActiveDocument.Content.ListFormat.ConvertNumbersToText
粘贴到编辑器窗口内容“End Sub”前面,现在,编辑器窗口的内容应该是这个样子：
Sub NumToTxt()
'
' NumToTxt Macro
' 宏在 2011-5-14 由 mcs 创建
'
ActiveDocument.Content.ListFormat.ConvertNumbersToText
End Sub
最后点Visual Basic编辑器保存按钮,将宏保存到Normal模板,然后关闭VBA窗口并返回Word.
打开你要处理的WORD文档,依次点击：工具－宏－宏－选中NumToTxt这个我们刚刚创建的宏（选中后在“宏名”框内会显示NumToTxt）－运行