Question

一个Word文档里面有几百页，我想把每页变成一个Word文档，并且Word文档文件名采用里面的第一行文字

一个Word文档里面有几百页，我想把每页变成一个Word文档，并且Word文档文件名采用里面的第一行文字

Answer 1

刚看到一个，蛮好用的，新建一个宏：
代码是：
Sub SplitPagesAsDocuments()

Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content

oRange.Collapse wdCollapseStart
oRange.Select

For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next

strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next

Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing

MsgBox "结束！"

End Sub

Answer 2

这个只有使用Word中的宏来批量处理，代码也不会很复杂。

Answer 3

那样就很费劲罗。我现在知道的只能是手动操作。剪切然后点新建文档，再点保存就可以是第一行字为文件名了。
如果有谁知道能有办法几下字就搞定的话，我也想见识下。。。
嘻嘻

Answer 4

你用“主控文档”功能试试看吧！