如何批量设置word标题？

Question

如何批量设置word标题？
情况是这样的：有1000个word文档，文件名都是不规则的数字，但文档的正文内容都比较规则，正文第一行是内容标题，这些标题都是居中的．现在我想将文档正文的标题作为文件名，手工操作太费时了，有没有简便的方法或软件呢？ 多谢高手．
也就是如何提取正文第一行（如果第一行为空，则提取第二行...）内容作为文件标题．

Answer 1

打开wps文档，在文档中添加内容，如需要设置多级标题时，只需将下级标题增加缩进即可。选中内容，点击鼠标右键，打开项目符号和编号设置功能。选择需要的编号，点击确定。确定后，即可完成批量标题设置。

工具/原料：

ThinkPadk4e

Windows10

wps11.1.0

1、打开wps文档，在文档中添加内容，如需要设置多级标题时，只需将下级标题增加缩进即可。

2、选中内容，点击鼠标右键，打开项目符号和编号设置功能。

3、选择需要的编号，点击确定。

4、确定后，即可完成批量标题设置。

Answer 2

Answer 3

如果你非要这么玩.有方法.

将下列代码写入宏中，再用autoopen.main来调用，批量打开后即可批量改名,代码里有个保存地址你需要改一下
注：标题后须为硬回车，因代码读取的是段

Sub Macro2()

Dim xx As String
Dim lenth As Integer

Set myDoc = ActiveDocument
Set myrange = myDoc.Range(Start:=myDoc.Paragraphs(1).Range.Start, _
End:=myDoc.Paragraphs(1).Range.End)
myrange.Select

xx = Trim(Selection.Text)
lenth = Len(xx)
xx = Left(xx, lenth - 2)

ActiveDocument.SaveAs FileName:="F:\" & xx & ".doc"
Documents.Close SaveChanges:=wdDoNotSaveChanges
End Sub

Answer 4

在我们日常工作和日常学习中，有时候需要将一些Word 文件进行压缩，如何做到呢？我们可以使用[风云压缩]完成。一起来看下具体步骤吧！