精华内容
下载资源
问答
  • 批量打印定制Word文档合并Word文档
  • word文档批量合并工具

    千次阅读 2016-12-29 23:42:05
    合并word文档

    用于批量合并word文档

    #NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
    ; #Warn  ; Enable warnings to assist with detecting common errors.
    SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
    SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
    
    #SingleInstance Force
    FileInstall ,D:\2 IE天使\ICO图标制作\ICO图标文件2\ICO2\s023.ico,c:\3.ico,1
    If fileExist("C:\3.ico")
    	Menu, Tray, Icon, c:\3.ico, , 1  ;显示图标
    try 
    {
    	wd:=ComObjActive("word.Application")
    }catch e{  ;用于捕获错误,未启动word就抛出!!!
    	MsgBox 当前未启动word,请先打开word,注意不是WPS!!!
    	return
    }
    SetWorkingDir %A_ScriptDir%
    Gui Font, s13
    Gui Add, Text, x150 y1 w538 h50 +0x200, word文档合并工具  ;后面可修饰字体颜色,字号等;
    Gui, Add, Checkbox, x60 y175 w200 h20  v子文件夹 checked, 合并子文件夹中的文档
    Gui, Add, Checkbox, x300 y175 w200 h20  v扩展名, 显示扩展名
    Gui Add, Button, x144 y205 w160 h70  g开始合并, 开始合并
    Gui Font
    Gui Font, s14
    Gui Add, Text, x28 y44 w538 h50 +0x200, 将要合并的文件夹拖入,或者定位文件夹(必须先打开word)
    Gui Font
    Gui Add, Edit, x32 y112 w366 h49 vEdit1
    Gui Add, Button, x407 y118 w75 h47 g定位, 定位
    Gui Show, w550 h314, Word文档合并工具
    Return
    ;autogui如何反相生成gui?
    GuiEscape:
    GuiClose:
        ExitApp
    
    ; End of the GUI section
    开始合并:
    Gui, Submit
    
    doc0:=wd.documents.add
    Loop  ,%Edit1%\*.doc*, 0, %子文件夹% ;第三个参数:0-仅文件;1-文件+文件夹;2-仅文件夹,但是若是前面仅仅给出个母文件夹的话,可以但限制了具体文件后缀的话2就无效了;最后一个为1时为递归;
    {
    	st:=doc0.range.end-1
    	if(扩展名=1)
    		doc0.range.InsertAfter(A_LoopFileName "`r`n")  ;带扩展名
    	else
    		doc0.range.InsertAfter(RegExReplace(A_LoopFileName,"`ami)\..*$") "`r`n")  ;不带扩展名
    	
    	  doc0.Range(st,doc0.range.end-1).Style := ("标题 2")
          doc0.Range(st,doc0.range.end-1).Font.Color:=255 ;0x0000FF ;RGB(255, 0, 0)
    	doc0.range(doc0.range.end-1,doc0.range.end-1).Insertfile(A_LoopFileLongPath) ;插入文件
    }
    WinActivate, % doc0.name  ;激活文档
    MsgBox  "已完成!!!" 
    ;~ doc0.saveas "c:\tesd.doc"
    return
    
    定位:
    FileSelectFolder,fod,,3,文件夹选择 ;FileSelectFolder, OutputVar, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}  ; 我的电脑.
    if(fod="")
    	return
    GuiControl,, Edit1, %fod%
    return
    
    
    GuiDropFiles:  ; 对拖放提供支持.经典代码★★★★★★★★★★★★※※※※※※
    SelectedFileName := A_GuiEvent
    ;获取鼠标下面的控件★★★★★★★★★★★★★★★★★★★★★
    MouseGetPos, , , id, control
    ;~ WinGetTitle, title, ahk_id %id%
    WinGetClass, class, ahk_id %id%
    ;~ ToolTip, ahk_id %id%`nahk_class %class%`n%title%`nControl: %control%
    if (control="Edit1")
    {
    	GuiControl,, Edit1, %SelectedFileName%  ; 在控件中显示文本.
    }
    if (control="Edit2")
    {
    	GuiControl,, Edit2, %SelectedFileName%  ; 在控件中显示文本.
    }
    return
    


    展开全文
  • 功能:把一个文件夹下面的word文档按原文档的格式批量合并成一个word文档。 准备工作 把 合并文件.docm和需要合并word文档(例如:测试用的文档1.docx、测试用的文档1.docx)放入一个文件夹里面 调用宏方法 打开...
  • 批量合并word文档

    2017-12-01 17:42:06
    1、新建一个WORD文档,命名后保存到和要合并的1000多篇文档一个文件夹里。2、按ALT+F11进入宏编辑器。3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下:Sub 合并文档()Application.ScreenUpdating = ...
    1、新建一个WORD文档,命名后保存到和要合并的1000多篇文档一个文件夹里。
    
    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、按F5运行,等候几分钟,即可完成合并
    展开全文
  • 好用的word文档合并批量打印工具,BatchDoc+5.5+破解版
  • word文档批量处理工具合并拆分替换文字工具.rar
  • Word/WPS 利用邮件合并批量生成文档

    千次阅读 2021-06-16 10:25:26
    Word/WPS 利用邮件合并批量生成文档WPS1. 先找到功能所有位置2. 准备用于批量生成的数据3. 插入数据批量生成文档4. 批量生成文档参考资料 WPS 准备一个模板文档、一组数据。通过邮件合并功能,将每行数据填入模板...

    WPS

    准备一个模板文档一组数据。通过邮件合并功能,将每行数据填入模板文档指定位置,最终将生成一个文档。

    1. 先找到功能所有位置

    先打开模板文档,再:引用邮件 》(出现新标签)邮件合并

    2. 准备用于批量生成的数据

    2.1 先在excel表中准备好以下数据

    姓名职务性别
    张三官兵
    李四镖头
    王八镖师
    麻子劫匪

    3. 插入数据批量生成文档

    3.1 邮件合并打开数据库 》找到上面准备好的excel (如果xlsx数据无法正常打开,可以换成xls试试)
    如果数据加载成功,则右边的按钮完为可用:
    在这里插入图片描述
    3.2 插入数据占位符(域)

    1. 光标放在指定位置(比如姓名),点击插入合并域,打开插入域窗口。
    2. 切换到数据库域,在域列表中可以看到:姓名职务性别(与excel表格中的表头一一对应)
    3. 选择姓名字段,点击插入。
    4. 重复第一步,完成职务、性别的设置 。

    3.3 查看效果

    1. 点击激活查看合并数据,此时我们可以看到这前插入的占位符已经变成真实数据了。
    2. 通过后面的上一条下一条等导航按钮可以浏览每条数据的效果。

    4. 批量生成文档

    1. 点击合并到新文档,选全部,也就是上面的4条数据,全都生成在同一个新文档中(多页),自己选择个目录保存一下就好了。
      在这里插入图片描述
    2. 如果希望每条数据单独生成文档,就使用合并到不同新文档设置非常简单,系统也带了帮助视频的链接,就不多废话了。

    插入Next 域

    上面的方法,因为我们的模板内容,正好一页,所以有4条数据,新文档就有4页。
    但有时,我们的模板内容,并不满一页,只有几行,比如工次条我们肯定希望一页中放满N个工资条后,再换下一页。
    在这里插入图片描述
    以工资条为例:
    比如我们通过观察判断一页可以放5份,那么模板中就把5个工资条都放好。在插入域时。
    第一个使用插入合并域
    后面的三个先插入Next域插入合并域
    插入完成的域效果如下:

    1. «姓名»
    2. «Next Record»«姓名»
    3. «Next Record»«姓名»
    4. «Next Record»«姓名»

    Word

    打开邮箱合并功能
    ##

    第1步,选择文档类型

    在这里插入图片描述

    第2步,选择模板文档

    在这里插入图片描述

    第3步,选择我们准备好的excel表,然后下一步。

    在这里插入图片描述

    第4步,手动插入字段

    在这里插入图片描述

    第5步,生成

    在这里插入图片描述

    参考资料

    WPS:强大的批量制作工具
    WPS:常见邮件合并应用技巧

    展开全文
  • [PYTHON]批量合并WORD文档,DOCX格式

    千次阅读 2019-05-30 11:21:02
    该脚本作为[PYTHON]使用python将Oracle数据库结构导出为定制的word文档的补充,可以直接合并成一个word文档,也可以按照自己的需求嵌入原来的代码中,一次性导出。 # -*- encoding:utf-8 -*- # author:black_liu #...

    应用场景

    某些时候按照不同的要求需要导出单个的word文档,也有可能导出整个word文档。该脚本作为[PYTHON]使用python将Oracle数据库结构导出为定制的word文档的补充,可以直接合并成一个word文档,也可以按照自己的需求嵌入原来的代码中,一次性导出。

    # -*- encoding:utf-8 -*-
    # author:black_liu
    # date:2019/02/13
    #导入pywin32包
    import win32com.client as win32
    #打开word软件
    word = win32.gencache.EnsureDispatch('Word.Application')
    #非可视化运行
    word.Visible = False
    
    output = word.Documents.Add()#新建合并后空白文档
    
    #part1
    #需要合并的文档路径,这里有个文档1.docx,2.docx,3.docx.
    files = [r'D:\new\DFJ_BUILDING.docx', r'D:\new\DFJ_BUSINESS_SUBJECT.docx']
    for file in files:
    	output.Application.Selection.Range.InsertFile(file)#拼接文档
    #endpart1
    
    #获取合并后文档的内容
    doc = output.Range(output.Content.Start, output.Content.End)
    # doc.Font.Name = "黑体"	#设置字体
    
    output.SaveAs(r'D:\new\meger.docx') #保存
    output.Close()
    

    part1部分可以按实际使用场景替换如下:

    import os
    
    #声明一个待合并的列表,注意是有序的列表
    files=[]
    for x,y,z in os.walk(filepath):
    	for i in z:
    		file=os.path.join(x,i)
    		wordlist.append(file)
    展开全文
  • 上个月领导交给我一个非常紧急的任务,限我2天之内...我粗略计算了工作量,每次操作需要打开子目录——>找到word文档——>全选复制——>粘贴到新文档——>调整格式——>核对检查,完成一次操作至少得3分钟。合并完这...
  • Delphi开发的Word文档批量处理程序,可批量Word文字替换,批量字体修改、批量插入图片,批量合并Word文档、删除指定页等功能,还可以批量新建文档。关于本程序的使用说明:  1、系统将根据样版文件复制成多个文件;...
  • Word邮件合并技巧四则 “邮件合并”是Word的一项高级功能,是办公自动化人员应该掌握的基本技术之一。但是大多数书上对...利用Word“邮件合并”可以批量处理和打印邮件,很多情况下我们的邮件很短,只占几行...
  • 利用word 的邮件合并功能批量生成准考证一类的东西,需要一个有基本数据的电子表格,但是准考证带每个人的照片很费劲,研究了几天终于弄明白了
  • 主要功能 Word文档合并:将多种类型的多个Word文档合并为一个文档; Word文档类型批量转换:将多种文件类型的多个文档转换为指定类型的文档; Word文档批量打印及页面设置:一次打印多个文档或批量进行(打印)...
  • 应我家领导要求,开发一个word文档批处理脚本,涉及word文档、excel表格、文件存取、排序与索引、简单GUI等内容,...完整代码、示例文档详见:开发需求:素材为批量word文档集(docx):位于original文件夹中。文件...
  • word文档合并和查找替换使用通配符

    千次阅读 2018-02-06 16:38:21
    一、word批量批量合并 1、把多个文档放在一个文件夹内; 2、打开WPS Office,新建空白文档后,依次点击插入—对象—文件中的文字: 3、批量选择自己需要合并文档后,点击打开。即完成文档合并。 注意:各...
  • C#批量打印word文档

    热门讨论 2012-09-22 13:22:26
    C#批量打印WORD文档,每次打印只需弹出一次打印设置,之后就会按这个设置来打印。 这个是打印已有word文档
  • word文档批量处理器

    2009-09-13 13:23:34
    word及txt文档的批量处理,支持多文档合并批量改名,打印等功能
  • 用Python实现Word文档合并

    千次阅读 2020-07-07 18:10:55
    通过手动的方式可以很方便的把多个Word文档合并为一个。但如何通过代码实现批量Word的合并呢?操作步骤来了。 1、使用python-docx和docxcompose扩展库 安装扩展库 pip install python-docx docxompose 合并Doc
  • 上个月领导交给我一个非常紧急的任务,限我2天之内完成。...找到word文档——>全选复制——>粘贴到新文档——>调整格式——>核对检查,完成一次操作至少得3分钟。合并完这200多份报...
  • 数据源为excel,word中建立表模板,利用邮件合并功能实现批量填表,利用VBA技术将填表结果分成独立的文档
  • 接下来是批量导出word文档批量打印word文件,批量导出word文档批量打印word文件的思路差不多,只是批量打印不用打包压缩文件,而是把所有文件合成一个word,然后通过js来调用word,提交打印机,把word文档的内容...
  • Word文档合并:将多种类型的多个Word文档合并为一个文档; Word文档类型批量转换:将多种文件类型的多个文档转换为指定类型的文档; Word文档批量打印及页面设置:一次打印多个文档或批量进行(打印)页面设置; ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,672
精华内容 2,668
关键字:

批量word文档合并