最新消息:非无江海志,潇洒送日月

使用宏批量解决WORD文档的合并与分拆

生活感悟 江海志 5292浏览 0评论

批量合并word文档

Word当中的插入文件,一次只可以合并59个,将更多地Word文档合并成一个文档,方法如下:

1、新建一个Word文档,命名后保存到和要合并的多篇文档所在的文件夹里。

2、按ALT+F11进入宏编辑器。

3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下:

Sub 合并文档()

Application.ScreenUpdating = False

MyPath = ActiveDocument.Path

MyName = Dir(MyPath & “” & “*.doc”)

i = 0

Do While MyName <> “”

If MyName <> ActiveDocument.Name Then

Set wb = Documents.Open(MyPath & “” & MyName)

Selection.WholeStory

Selection.Copy

Windows(1).Activate

Selection.EndKey Unit:=wdLine

Selection.TypeParagraph

Selection.Paste

i = i + 1

wb.Close False

End If

MyName = Dir

Loop

Application.ScreenUpdating = True

End Sub

4、运行,等候几分钟,即可完成合并。

合并多个word文档

把大量 Word 文档合并到一个文档中,用复制粘贴太慢了,而用下列方法能快速合并。

首先将要合并的多个 Word 文档存放到同一个文件夹中,然后新建一个空白文档,在菜单中选择“插入 → 文件”,在弹出的“插入文件”窗口中选择上述文件夹,然后用鼠标拖动选择全部文件(或者使用“ Ctrl+A ”快捷键),最后单击“插入”按钮即可完成所有文档的合并。

Word中插入多个word文档时如何按顺序插入

Word 2003插入word文件,可选用菜单栏中的插入→文件,比如选了10个word文档插入进来了,可是这些文档是无序的进来,即使事先将这些文档名字改成1.doc,2.doc,3.doc….也无济于事,把word属性的标题等删了也无用。
怎样才能让他们按照文件名的顺序插入?
Word不是无序将它们插入进来的,是有规律可循的,插入时,选择文件的先后顺序是关键,比如,有文档1—文档10共10个文档,应该这样选择:按住shift键,先单击10.doc,再单击1.doc,这样就全选它们了,最后得到的顺序是从文档1到文档10。

因此,要事先将这些文档名设置有序,方便选取;在“插入”对话框中选择文件的时候按倒序往前选。

将一个word文档按页分割成多个word文档

1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);
2、键入ALT+F11,打开VBA编辑器,选择菜单“插入-模块”;
3、粘贴下面的代码:

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
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next

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

MsgBox “结束!”

End Sub

4、键入F5运行,看到“完成!”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。

转载请注明:江海志の博客 » 使用宏批量解决WORD文档的合并与分拆

发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

网友最新评论 (2)

  1. 謝謝
    Real Estate6年前 (2013-02-23)回复
  2. 香港 miu miu
    ミュウミュウ6年前 (2013-08-07)回复