[求助]我想把txt中被硬断开的文字连在一起
京城，一个深深的宅院里，一丛挺拔的翠竹前，只见一位青年正对着竹
子凝神静思。这几天，他每天一早就来到这里做这个“功夫”，整整是第七
天了。看他那专心致志的样子，像是非要从这不会说话的竹子中体悟出什么
深奥动人的道理一样。这就是我们的“主人公”王守仁。
王守仁，生于明宪宗成化八年（1472 年），卒于明世宗嘉靖七年（1529
年），字伯安，浙江余姚人。因早年曾隐居在会稽阳明洞中，并创办过阳明
书院，又世称阳明先生。正是他，在明代中叶创立了一个风靡一时的王阳明
学派，而他本人，又是个叱咤风云的人物，作为缙绅地主阶级的豪强派代表
为巩固明王朝立过赫赫战功。所以王阳明这个名字，流传得十分久远，甚至
传到了日本，几乎压过了他的正名。
王守仁出生于官僚地主家庭，他的祖先可以上溯到晋代的大书法家王羲
之（321—379）。但他究竟是不是王羲之的后代，现在也很难考证。王守仁
的父亲王华是明宪宗成化年间的进士，官至南京的吏部尚书。祖父王伦却没
有做官，人称竹轩公，是一位有著作行世，像东晋大诗人、大文学家陶渊明
一样的隐士。祖父在家乡以教书为生，精通古代《左传》、《史记》一类的

[解决办法]
如果要全部处理：

txtFile = ThisWorkbook.Path & "\*.txt"

txtFile.Tag = Dir(txtFile)

Do While txtFile.Tag > ""
txtFile = ThisWorkbook.Path & "\" & txtFile.Tag
txtFile.Refresh

'你的全部处理代码

txtFile.Tag = Dir() '继续下一个文件

Loop