给你一个宏,可以完成这个工作。注意,只有主要功能。至于其它辅助防错等等,需要的话,你可以自己加工。 前提: 1、TXT文件为:c:\1.txt——可以根据实际需要更改程序参数 2、章号独立占一行,首字为“第”,最后一字为“章”——可以根据实际情况调整程序 程序如下: Sub readtxt() Filename = "c:\1.txt" Open Filename For Input As #1 '读文件内容 Dim InputStr, TxtBuf As String Line Input #1, InputStr i = 1 TxtBuf = "" While Not ...