作者：乔山办公网日期：
返回目录：office365
如果你非要这么玩.有方法.
将下列代码写入宏中，再用autoopen.main来调用，批量打开后即可批量改名,代码里有个保存地e68a84e8a2ade799bee5baa6e997aee7ad94364址你需要改一下
注：标题后须为硬回车，因代码读取的是段
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
1、在“运行”中键入"cmd”（不要引号，下同）进入命令提示符模式，然后复进入WORD文件所在目录（这个进入的方法要用DOS命令，如果在C盘根目录下，要从C:\>后面打入命令：CD DOCUMENTS，回车，就进入该目录了，再用CD命令一层一层地进入，直到键入DIR后能够显示你所有的WORD文件名，扩展名都是DOC，如果是WORD2007以后的版本，就是DOCX ）。
2、键入"DIR >MULU.TXT"命令，这里的大于号是一制个重定向命令，就是把执行“DIR”的显示结果都归入文本文件《MULU.TXT》中去。“DIR”命令后面也可以加参数，如后面加上/s，就会输出含子文件夹的文件，并包含路径等。可上网查阅有关参数命令。
3、用记事本打开《MULU.TXT》文件，就会发现该目录中的所zd有文件都列出在你面前了。当然，想用WORD程序把它另存为WORD文档也可以噢！
假如你d:\word目录下
复制如百下代码:
dir d:\word\*.doc >d:\word.txt
在桌面新建一个文本文档，度将代码粘贴进入，将文本文档的后缀名改为.bat
双击运行，内它会把d:\word目录下的word文件全部找出来写在容d:\word.txt文件里。。。
具体操作步骤如下。
1、首先在word的页面，输入抄几个标题。如下图所示。
袭查看大图" class="ikqb_img_alink">
2、然后使用鼠标或者，ctrl加a把标题进行全部选择。如下知图所示。
3、然后使用右键单击，跳出右键菜单，选择段落。如下图所示。
4、进入段落按钮的页面。如下图所示。
5、段落按钮的页面，点击换行和分页道按钮将下图所示取消。
6、选择段前分页按钮，点击如下图所示。
7、这时标题已经分配，点击多页按钮。如下图所示。
8、最后，点击多页后即可看到其他标题。如下图所示。