遍历文件夹下所有word，执行固定的宏

zhanglei1371

第一次发现，发帖代码中的反斜杠＼会被吃掉。怪不得本人反复测试好的代码会失效。

jiminyanyan

zhanglei1371 发表于 2017-3-12 08:35
第一次发现，发帖代码中的反斜杠＼会被吃掉。怪不得本人反复测试好的代码会失效。

是存在这个问题  反斜杠会没掉。

13907933959

zhanglei1371 发表于 2017-3-11 16:39
真是够菜的，一个小问题拉了这么多层：
两种方案：
一、修改上面的代码（不完美）

前辈好！
17楼第二个代码复制粘贴进代码窗口后，删除这句 “arr = Filter(arr, "[        DISCUZ_CODE_1        ]quot;, False, vbTextCompare) '过滤掉word临时文件”。 代码、即可。

13907933959

zhanglei1371 发表于 2017-3-11 16:39
真是够菜的，一个小问题拉了这么多层：
两种方案：
一、修改上面的代码（不完美）

前辈好！

第17楼的代码语句，能否劳您用中文注释一下，以便在下学习理解，谢谢！

前辈、如代码改发图片格式，那像我这样的菜鸟就悲剧了，像前天费了好大的劲抄杜前辈10楼图片上的代码（抄的代码在11楼），结果运行提示“编译错误：用户定义类型未定义”，看了多遍都不知抄错在那里，所以还望前辈能多多体谅照顾像我这样的菜鸟们！如只贴：图片、解题后的gif动画、设置密码、代码语句后面未中文注释……等。

这些对您们都极其简单的问题，对我们都可能如大山阻挡，您们的举手之劳对我们都会带来很大的方便！毕竟每个人的技能不可能都样样世界第一，都有所长，都有所短，学习一个技能都是从菜鸟开始，在成长的过程中，如能得到前辈们的帮助和关照，菜鸟们才可能成长得更快，长大的同时他们毕将怀有一颗感恩的心！会记住这些曾帮过他们的前辈们！

前不久看到杜前辈的一个回复，都提到龚老师曾给过他的帮助，连水平以这么高的他，对曾帮过他的人都是念念不忘，因为人都是感恩动物，一旦触动了他的情感，将终生难忘！

努牛

感谢大神们的指点与帮助，也感谢13907933959的互动，问题解决了，升级office版本到2016版之后，就没问题了。每天只能评6分，分给了积极参与的三位大神。13907933959，回头明天给你评哈！感谢各位！

阿宝剑见

感谢大师分享

相见是缘8

Sub shishi()
    Dim fol As Object, arr, a, doc As Document
    Set fol = CreateObject("Shell.Application").BrowseForFolder(0, "选取初始文件夹", 0)
    If Not fol Is Nothing Then pa$ = fol.Items.Item.Path Else MsgBox "请选目标文件夹": Exit Sub
    arr = nej.DirSK(pa, "*.doc*")
    For Each a In arr
        Set doc = Documents.Open(a, Visible:=False)
        With doc
            .Content.Font.Color = RGB(0, 0, 0)
            .Close -1, 1
        End With
    Next
End Sub

代码提示“运行错误”！

求那位老师能解！谢谢！

相见是缘8

相见是缘8 发表于 2021-1-6 07:14
Sub shishi()
    Dim fol As Object, arr, a, doc As Document
    Set fol = CreateObject("Shell.Appl ...

代码提示“运行错误”！


求那位老师能解！谢谢！

413191246se

相见，循环遍历文件夹的宏，有好几位老师都有编码，你想对文件怎么处理？你的代码我也搞不定，换一个吧！

相见是缘8

413191246se 发表于 2021-1-7 10:09
相见，循环遍历文件夹的宏，有好几位老师都有编码，你想对文件怎么处理？你的代码我也搞不定，换一个吧！

老师好！
感谢回复！
本想学习一下杜老师的这个 “遍历文件夹” 代码，结果代码提示“运行错误”，我弄不懂，看有那位老师能帮忙解一下！