请问可不可以把很多TXT文件合并为一个WORD文档。

truec

请问可不可以把很多TXT文件合并为一个WORD文档

七叶一枝梅

告诉你一个最方便的办法不需要编程： 在dos下使用copy命令，将目录下的所有“*.txt”合并到例如“A1.txt”中；三五百个TXT文档只需两秒搞定！！ 然后再用word打开A1.TXT就不用说了吧？

sunnet

Textpro 有合并 TXT 文件的功能，做得很不错。只要把合并后的新文件直接命名为“？？.DOC”就行了。 Textpro 有不少 Word 没有的功能，占用的资源很小。有个需要大批量替换的工作，用 Word 做，花时 20～30 分钟（有时还死机），用 Textpro 做，仅用了2、3秒钟。

守柔

闲来无事，用VBA做了一个。

另外，由于计算机的普及，配置越来越好，速度总体还可以的。（其中一个txt文件为257K，也就数秒即好！）

以下代码供参考：

Sub WriteinDoc() Dim fs As Object, f As Object, f1 As Object, fc As Object, f2 As Object, x As String Const ForReading = 1 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("C:\Documents and Settings\????\Desktop\text") '括号中设置文本文件夹位置 Set fc = f.Files For Each f1 In fc Set f2 = fs.OpenTextFile("C:\Documents and Settings\????\Desktop\text\" & f1.Name, ForReading, TristateUseDefault) x = f2.ReadAll f2.Close ActiveDocument.Content.InsertAfter x Next End Sub

sailorgg

用ms-dos的copy命令可以很方便的做到，将附件中的文件解压到txt 文件所在的文件夹

运行hebin.pif就可以得到合并的WORD文档HBword.doc

mRmDN8J5.rar (402 Bytes, 下载次数: 44)

2004-7-23 10:31 上传

点击文件名下载附件
请问可不可以把很多TXT文件合并为一个WORD文档。