做好的word怎么加题目

1.怎样大量提取word的标题

你把所有WORD文件复制到一个文件夹，然后按下面步骤进行：

工具→宏→宏：随便输个宏名（如AAA） ：创建

然后把代码粘进去，把D:\213改成你的WORD文档所在文件夹路径名（有两处）；

按F5运行

Dim S As String, T1, T2, i As Long

Set T1 = Documents.Add

S = Dir("D:\213\*.DOC")

Do While S <> ""

Set T2 = Documents.Open("D:\213\" & S)

S = T2.Paragraphs(1).Range

i = 2

Do While (Len(S) <= 2 And i < 5)

S = T2.Paragraphs(i).Range

i = i + 1

Loop

T2.Close

T1.Content.InsertAfter S

S = Dir

Loop

注意：

1、本代码检测前5行内长度超过2个字符的行作为标题（当然，你可以把5和2改成别的）

2、本代码新建了一个文档，将所有标题写进该文档

3、最后别忘了把代码（包括自动生成的宏名）全部删除。