循环遍历文件夹、doc2txt、txt2doc 圆满成功！完美！

413191246se · 发表于 2012-2-14 07:51

本帖最后由 413191246se 于 2012-2-14 07:52 编辑

刚才想单独转换一下“办公室”所有 Word 文档为纯文本文档，但发现共有 2058 个 Word 文档（如果拆分成 3个小子文件夹，又变得琐碎了，因为还有其它的子文件夹），明显会引起 Word 2003 程序崩溃，放弃！
——可能有些朋友会天真地问：不是有“转换向导”吗，怎么不用？——我的回答是：你不知道啊！Word 2003 文档转换向导不是没用过，用过！但结果是：遇到不少 Word 文档，转换向导就是说“打不开”，实际上用 Word 2003 单独打开这些“打不开的 Word 文档”，却是能打开，但“转换向导”就是说打不开！还有，“转换向导”不能遇到加密文档，一遇到立即停下来，只要你不键入密码，它是死活都再也不工作了，根本无法跳过去。所以，Word 2003 文档转换向导还不如我的 doc2txt 宏好用呢，但现在 doc2txt 宏这种利用“另存为”法转换文件的方法，文件一多就引起 Word 2003 程序崩溃，无法可想！——关于 doc2txt & txt2doc 专题的完美解决办法，目前本 VBA 小菜鸟无法解决，期待高人！

413191246se · 发表于 2012-2-16 09:15

顶以更新！

413191246se · 发表于 2012-2-17 09:55

顶以更新。。。

susylin · 发表于 2012-3-2 12:31

收藏研究，需要的就是“循环遍历文件夹（及子文件夹）”部分代码查找xls

413191246se · 发表于 2012-3-2 15:15

网上有一个代码就是循环打开EXCEL文件的，我是从其中借鉴了打开文档的方法。。。

news30 · 发表于 2012-4-27 23:35

news30 · 发表于 2012-4-27 23:37

学习一下，就是平常没有那么多文件需要转换

YincyHe · 发表于 2013-8-7 16:22

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld = oFSO.getfolder(sPath)
Set wAPP = CreateObject("Word.Application")

For Each f In oFld.files
set doc=wapp.documents.open(f)
next

我用这种方法来打开Word文件，但是一到set doc=wapp.documents.open(f)这一句就说type dismatch，这是为什么？

zhanglei1371 · 发表于 2013-8-7 18:36

YincyHe 发表于 2013-8-7 16:22
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld = oFSO.getfolder(sPath)
Set wAPP = ...

很简单，你需要将f转换为字符串就可以了，换成Cstr(f)

YincyHe · 发表于 2013-8-12 14:47

zhanglei1371 发表于 2013-8-7 18:36
很简单，你需要将f转换为字符串就可以了，换成Cstr(f)

哦谢谢我去试试

		自动登录	找回密码
密码			免费注册

[分享] 循环遍历文件夹、doc2txt、txt2doc 圆满成功！完美！