如何批量设置word标题?

发布网友 发布时间：2022-04-23 02:20

我来回答

共3个回答

热心网友 时间：2022-06-18 22:28

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

工具/原料：

ThinkPadk4e

Windows10

wps11.1.0

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

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

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

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

热心网友 时间：2022-06-18 23:46

热心网友 时间：2022-06-19 01:21

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

将下列代码写入宏中，再用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