如何把多页WORD文档自动分离成1页1个文档

shirleynov21 · 发表于 2009-9-25 14:02

需要把WORD多页文档按照每个页独立成1个word文件，除了复制黏贴，有没有简便的方法啊，这里先谢过了！

[ 本帖最后由 shirleynov21 于 2009-9-25 14:04 编辑 ]

dsp5000 · 发表于 2009-9-25 14:08

试试这段代码
Sub aa()
myPath = "E:\temp\"
Selection.HomeKey Unit:=wdStory
Set myRange = Selection.Range
curpage = 0
Application.ScreenUpdating = False
Do
prepage = curpage
pagenum = pagenum + 1
Set myRange = myRange.GoToNext(What:=wdGoToPage)
curpage = myRange.Start
endpage = myRange.Previous.Start
If curpage = prepage Then _
   endpage = ActiveDocument.Content.End
ActiveDocument.Range(prepage, endpage).Copy
With Documents.Add
   .Content.Paste
   .SaveAs myPath & "Page" & pagenum & ".doc"
   .Close
End With
If curpage = prepage Then Exit Do
Loop
Application.ScreenUpdating = True
End Sub

dsp5000 · 发表于 2009-9-25 14:11

需要建立文件夹E:\temp\，选中要分页的文档后，运行代码

shirleynov21 · 发表于 2009-9-25 15:45

继续求助！！

直接运行，不可行。
加了文件名也不可行。myPath = "d:\temp\Formule QQ FF LEVRES - BAUME LEVRES HYDRATANT.doc"

dsp5000 · 发表于 2009-9-25 16:10

原帖由 shirleynov21 于 2009-9-25 15:45 发表
继续求助！！

直接运行，不可行。
加了文件名也不可行。myPath = "d:\temp\Formule QQ FF LEVRES - BAUME LEVRES HYDRATANT.doc"

你要放D盘的话，先在D盘建立一个temp文件夹，再改代码中的myPath = "E:\temp\"为myPath = "d:\temp\"，你的文件名是什么无所谓，注意的是保存文件的路径。
选中要分页的文档，要分3页就选中3页的内容，运行代码。

[ 本帖最后由 dsp5000 于 2009-9-25 16:16 编辑 ]

shirleynov21 · 发表于 2009-9-25 16:26

原帖由 dsp5000 于 2009-9-25 16:10 发表

你要放D盘的话，先在D盘建立一个temp文件夹，再改代码中的myPath = "E:\temp\"为myPath = "d:\temp\"，你的文件名是什么无所谓，注意的是保存文件的路径。
选中要分页的文档，要分3页就选中3页的内容，运行代码 ...

我传个文档上来，请帮助一下，搞不定，很是茫然。谢谢！！

dsp5000 · 发表于 2009-9-25 16:34

这段代码是放在word里运行的，不是批处理。
打开附件中的源文件，在word中按Alt+F11可以打开VBE编辑界面，查看代码。

temp.rar (135.99 KB, 下载次数: 110)

[ 本帖最后由 dsp5000 于 2009-9-25 16:37 编辑 ]

shirleynov21 · 发表于 2009-9-25 16:49

谢谢，成功了。

kqbt · 发表于 2009-9-27 11:30

学习一下这个方法

qujin820415 · 发表于 2010-1-5 23:39

能说具体的步骤吗，如何在WORD里运行代码

		自动登录	找回密码
密码			免费注册

[求助] 如何把多页WORD文档自动分离成1页1个文档

回复 8楼 shirleynov21 的帖子