手机浏览器扫描二维码访问
2.按Alt+F11打开VBA编辑器。
3.插入一个新模块,并输入以下宏代码:
vba
SubCombineDocuments DimmyDocAsDocument
DimfilePathAsString
DimfileNameAsString
DimfolderPathAsString
设置文件夹路径
folderPath="C:YourFolderPath"更改为你的文件夹路径
获取文件夹中第一个Word文件
fileName=Dir(folderPath&"*.docx")
循环遍历所有文件
DoWhilefileName<>
打开文件
SetmyDoc=Documents.Open(folderPath&fileName)
将内容添加到主文档
ActiveDocument.Content.InsertAftermyDoc.Content
关闭打开的文档
myDoc.CloseFalse
获取下一个文件
fileName=Dir Loop
EndSub
4.运行宏,将指定文件夹中的所有Word文档合并到当前打开的文档中。
选择适合你的方法进行操作,就可以快速将多个Word文档合并为一个。
喜欢日常生活工作学习知识积累请大家收藏:()日常生活工作学习知识积累
快穿之绝美宿主在线打脸 等他知我意 我,阴阳判官?本官断案死刑起步 重回80,打造全球第一餐饮帝国 快穿,更适合大学生的发癫赛道 天帝苏天 八零:家要散?别怕,亲妈穿来了 开挂了吧?在国运战场里养老 寻宝全世界从成为亿万富豪开始 让你预测天灾,你全抓了? 他从禁地来,挥袖写长生 重生八零被冒认,首长亲爹找疯了 彼岸寻仙 启明星望月明 快穿:女配要变强,美男靠边躺 长得这么好看,你还想退婚? 悍天传 斗罗之我在唐门混日子 家禾重生,逆袭为禾姐 漫综:从海贼开始修真
...
万众瞩目之下,楚浩扔出一柄剑这轩辕剑你拿好,以后别在我面前装逼。这天,这地,这沧海,这宇宙,谁都无法阻止我。ps看完了?新书搜索从诡秘复苏开始不当人推荐票刷起来,让我们再次征战。...
...
听说她在占卜,他捧着手眼巴巴的就过来了爱卿,你给本君算算,今晚是本君睡了国师呢?还是国师睡了本君?她哆嗦了一下,一脚就踹了过去谁都不睡!她今晚就阉了你!!重生前,她是惊才绝艳的大占卜师,重生后,她还是上知天文下知地理的一品国师,可是,她算了两世,却没算到自己这一世会犯桃花国师大人,不好了,帝君来了!卧槽!她一下子就从八卦盘里站了起来他来干什么?他不干什么!那就好那就好!她狂抹一把额头上的冷汗。小太监欲哭无泪可他说了,今晚他夜观星象,是个鸾凤和鸣...
...
一个浑浑噩噩的少年,在阳台吹风不小心掉了下去,死过一次的他,决定开始改变,故事从这里开始,他就是林浩...