我尝试修改了将多页Word文档分隔为N页一份的代码. 请问如何保留原来格式

天宇行健 · 发表于 2013-5-30 15:19

这代码是网上找的. 不过是分隔为1页一份.
我尝试了分为3页一份.

不过代码无法保留原有格式(如字体等)

Word 有什么方法可以达到这个目的呢? 我应该去看什么文档呢? 谢谢.

我修改后的代码如下:

Option Explicit
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
if nIndex Mod 3 = 0 then
oNewDoc.SaveAs strNewName
oNewDoc.Close False
endif
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束！"
End Sub

复制代码

psystyle · 发表于 2013-5-30 16:49

日常生活中一般是对文档按节、按章来拆分

zhanglei1371 · 发表于 2013-5-30 23:36

本帖最后由 zhanglei1371 于 2013-5-31 09:56 编辑

草草写了个，应该能满足你的要求：
原理：在原始文档没下移三页便剪切一次粘到新文档，新文档按123...顺序生成在C盘根目录：
Sub abc()
On Error Resume Next
n = InputBox(" 请输入要分的页数：", "页数", 3)
m = Int(Selection.Information(wdNumberOfPagesInDocument) / n)
If m <> Selection.Information(wdNumberOfPagesInDocument) Then m = m + 1
For i = 1 To m
If i = m Then
ActiveDocument.Content.Cut
Else
      Selection.GoTo wdGoToPage, wdGoToNext, , n + 1
      Selection.HomeKey wdStory, wdExtend
      Selection.Cut
      End If
      With Documents.Add
      .Activate
         Selection.Paste
         .SaveAs "c:\" & i & ".doc"
         .Close True
         End With
      Next
End Sub

13907933959 · 发表于 2016-6-16 15:21

本帖最后由 13907933959 于 2016-6-17 21:06 编辑

zhanglei1371 发表于 2013-5-30 23:36
草草写了个，应该能满足你的要求：
原理：在原始文档没下移三页便剪切一次粘到新文档，新文档按123...顺序 ...

前辈好！

用该代码拆分后的小文档末尾，都有一页多余的空白页，今天还发现一个问题，当指定拆分的页数超过2页（如3页），拆分后的文档1、文档2，能正常为3页（末尾都有一页多余的空白页），文档3、文档4、文档5……则都为1页（末尾都有一页多余的空白页），能否劳请前辈修改一下，让文档3、文档4、文档5……也能按指定的页数正常拆分，并去掉每个末尾的空白页。谢谢！

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

[求助] 我尝试修改了将多页Word文档分隔为N页一份的代码. 请问如何保留原来格式