轻松获得重赏： 学习和创业真实的故事 - 求文件合并

轻松获得重赏： 学习和创业真实的故事  - 求文件合并

把这些 WORD 文件合并归总到一个文件。 WORD 文件格式不变。

自述全本.rar (696.71 KB)

2013-1-29 09:25:26 上传

批量合并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代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

新手，没有金币，无法下载

輕芣訁棄 发表于 2013-1-29 21:27
新手，没有金币，无法下载

原来下载这个文件是不需要币的。现在改成200 币，因为下载的人太多了。 这样不行。我又删不掉  所以 请网友别请下载了好不好。

呵呵。楼上的很nice, 这么详尽的办法

新手飘过，学习

努力

谢谢！