快速合并文本到Word – 利用VBA代码

热门标签

admin

发表文章数:3278

首页 » 网络资源 » Windows » 正文

  为了提高录入的效率,同事分别安排下属录入不同的文本,并以数字序号进行命名,最后再在Word中将这些文本文档合并起来。常规的方法是切换到“插入”选项卡,在“文本”功能组选择“对象→文件中的文字”,如图1所示,按照提示插入相关的文本,操作起来比较麻烦一些。其实,我们也可以利用VBA代码实现快速合并文本的任务:
  
  打开Word文档,按下“Alt+F11”组合键,打开Microsoft Visual Basic for Applications编辑器窗口,依次选择“插入→模块”,在右侧窗格插入一个空白模块,如图所示,手工输入或粘贴如下代码:

快速合并文本到Word – 利用VBA代码

  

Sub hebin() 
  Dim fs1, f1 
  Set fs1 = CreateObject("Scripting.FileSystemObject") 
  For i = 1 To 4 
  file1 = "h:Download文本合并" & i & ".txt" 
  Set f1 = fs1.OpenTextFile(file1, 1, 0) 
  Selection.TypeText f1.Readall 
  Selection.TypeParagraph 
  f1.Close 
  Next i 
  Set f1 = Nothing 
  Set fs1 = Nothing 
  End Sub

  上述代码中的代码名“hebin”可以任意命名,“h:Download文本合并”表示文本文档所在的路径名称,“For i = 1 To 4”表示待合并文本的数量,代码检查没有错误之后,依次选择“文件→关闭并返回到Microsoft Word”命令,返回Word主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏,很快就可以完成合并文本的任务。

  补充:如果文本文档的数量发生变化,只需要修改“ For i = 1 To 4”即可,但必须保证这些文本文档的文件名都是数字的形式。

标签:

未经允许不得转载:作者:admin, 转载或复制请以 超链接形式 并注明出处 夜河资源网
原文地址:《快速合并文本到Word – 利用VBA代码》 发布于2019-09-22

分享到:
赞(0) 打赏

评论 抢沙发

2 + 4 =


撰写不易~如果您觉得文章对您有帮助的话可以打赏我哦~谢谢亲亲~

支付宝扫一扫打赏

微信扫一扫打赏

外服网游加速器破解版
包含腾讯网游加速器、海豚网游加速器等八款知名加速器,可加速外服游戏,永久包售后包更新,不定时添加新款破解版加速器!
切换注册

登录

忘记密码 ?

切换登录

注册