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:\ IE天使\ICO图标制作\ICO图标文件2\ICO2\s023.ico,c:\.ico,
If fileExist("C:\3.ico")
Menu, Tray, Icon, c:\.ico, , ;显示图标
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*, , %子文件夹% ;第三个参数:-仅文件;-文件+文件夹;-仅文件夹,但是若是前面仅仅给出个母文件夹的话,可以但限制了具体文件后缀的话2就无效了;最后一个为1时为递归;
{
st:=doc0.range.end-
if(扩展名=)
doc0.range.InsertAfter(A_LoopFileName "`r`n") ;带扩展名
else
doc0.range.InsertAfter(RegExReplace(A_LoopFileName,"`ami)\..*$") "`r`n") ;不带扩展名 doc0.Range(st,doc0.range.end-).Style := ("标题 2")
doc0.Range(st,doc0.range.end-).Font.Color:= ;0x0000FF ;RGB(, , )
doc0.range(doc0.range.end-,doc0.range.end-).Insertfile(A_LoopFileLongPath) ;插入文件
}
WinActivate, % doc0.name ;激活文档
MsgBox "已完成!!!"
;~ doc0.saveas "c:\tesd.doc"
return 定位:
FileSelectFolder,fod,,,文件夹选择 ;FileSelectFolder, OutputVar, ::{20d04fe0-3aea--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文档批量转html
企业有很多的科室,科室的每个人或多或少都会写一些文档,有些文档领导需要浏览,解决的办法是将编辑的文档打印出来,供领导浏览,或是为了节约企业成本,文档就在人与人这间或部门之间copy过来,copy过去. ...
- Python将word文档批量转PDF
前面有一篇<Python批量创建word文档(2)- 加图片和表格>的文章,利用这篇文章创建的word文档来批量转PDF文档.代码: 1 ''' 2 #python批量将word文档转换成 ...
- python 使用win32com实现对word文档批量替换页眉页脚
最近由于工作需要,需要将70个word文件的页眉页脚全部进行修改,在想到这个无聊/重复/没有任何技术含量的工作时,我的内心是相当奔溃的.就在我接近奔溃的时候我突然想到完全可以用python脚本来实现这 ...
- java 在线拆分 word文档采用什么技术比较好?
在Java项目开发中,偶尔会遇到通过程序动态拆分word文档的需求,由于Java本身不能操作Word文档,在网上也都是讨论如何动态合并word,所以这个需求实现起来相当困难,下面就将近期对于Word文 ...
- word文档的动态添加数据
解释:其实主要的思路就是先把word文档转化成xml格式的数据,然后在把xml格式的数据转化成字节流让程序来读取,最后在把字节流转化成xml格式的数据,然后在转化成word文档. poi工具也是这个思 ...
- 使用Python3将word文档和pdf电子书进行格式互转(兼容Windows/Linux)
原文转载自「刘悦的技术博客」https://v3u.cn/a_id_96 一些重要文档格式之间的互转在目前显得尤为重要,pdf作为通用格式在现在各个平台上兼容性是最好的,所以写python脚本将这些w ...
- C# 导出word文档及批量导出word文档(1)
这里用到了两个dll,一个是aspose.word.dll,另外一个是ICSharpCode.SharpZipLib.dll,ICSharpCode.SharpZipLib.dll是用于批量 ...
- C# 导出word文档及批量导出word文档(4)
接下来是批量导出word文档和批量打印word文件,批量导出word文档和批量打印word文件的思路差不多,只是批量打印不用打包压缩文件,而是把所有文件合成一个word,然后通过js来调用 ...
- 一键批量打印EXCEL、WORD文档
一键批量打印EXCEL.WORD文档,本方法也可以打印同一个文档N份,可以批量打印A3.A4文档,包括单.双面打印等.希望能帮到广大朋友.请大家注重原创版权,不得在未经许可的下转载.传播,或者用来对同 ...
随机推荐
- HDU 6351 Beautiful Now(DFS)多校题解
思路:一开始对k没有理解好,题意说交换k次,如果我们不需要交换那么多,那么可以重复自己交换自己,那么k其实可以理解为最多交换k次.这道题dfs暴力就行,我们按照全排列最大最小去找每一位应该和后面哪一位 ...
- Nginx + LUA下流量拦截算法
前言 每逢大促必压测,每逢大促必限流,这估计是电商人的常态.每次大促期间,业务流量是平时的几倍十几倍,大促期间大部分业务都会集中在购物车结算,必须限流,才能保证系统不宕机. 限流算法 限流算法一般有三 ...
- HDU 1166 敌兵布阵(线段树 or 二叉索引树)
http://acm.hdu.edu.cn/showproblem.php?pid=1166 题意:第一行一个整数T,表示有T组数据. 每组数据第一行一个正整数N(N<=50000),表示敌人有 ...
- C++网络通信字节序问题
htonl(), ntohl(), htons(), ntohs() 函数 在C/C++写网络程序的时候,往往会遇到字节的网络顺序和主机顺序的问题.这是就可能用到htons(), ntohl(), n ...
- java学习之浅谈多线程4--SwingWorker
GUI事件处理和绘图代码在一个被称为事件分发线程的特殊线程中执行.如果一个事件需要很长的时间处理,线程就不能顾及到队列中的其他任务.为了解决这个问题,可以运行费时的任务来处理单独线程中的事件.Swin ...
- [翻译]PyMongo官方文档
PyMongo官方文档翻译 周煦辰 2016-06-30 这是本人翻译的PyMongo官方文档.现在网上分(抄)享(袭)的PyMongo博客文章很多,一方面这些文章本就是抄袭的,谈不上什么格式美观,另 ...
- Luogu P4062 [CTSC2018]混合果汁 (主席树)
二分$d$, 转为判断判断是否能取到$Lj$升, 再可持久化一下就好了 #include <iostream> #include <algorithm> #include &l ...
- URAL 1106 Two Teams (DFS)
题意 小组里有N个人,每个人都有一个或多个朋友在小组里.将小组分成两个队伍,每个队伍的任意一个成员都有至少一个朋友在另一个队伍. 思路 一开始觉得和前几天做过的一道2-sat(每个队伍任意两个成员都必 ...
- 关于app
刷新功能的话只需要在前端重新调用一下原来的方法即可
- .ashx接口单元测试
最近项目中需要修改一个文件上传的.ashx处理,代码的大概形式是这样的: public void ProcessRequest(HttpContext context) { CallA(context ...