word标题怎么调间隔

1.如何批量设置word标题

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

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