【求助】如何批量修改word文档落款日期，请大神们指点一二

lucas22

大家好！我遇到的难题是这样的，有1000多份word文档（2010版本的），需要修改落款日期。原文档的落款日期是这样的：“提交时间：2017年8月10日；提交时间：2017年9月8日；提交时间：2017年10月21日……”等等，我现在要统一修改为：“提交时间：2018年    月   日”，想了很多办法都不凑效，请大神给指点一二，非常感谢！

lucas22

落款日期是在最后一行，右对齐。

jiminyanyan

要用VBA了。。。。。。

相见是缘8

朋友、上传 “测试附件” 才可能有更多的人帮你！

lucas22

现在加上附件，请高手给看看，非常感谢！因为文件比较敏感，不方便上传实际文件，只上传几个测试文档，请见谅。

lucas22

相见是缘8 发表于 2018-4-22 10:57
朋友、上传 “测试附件” 才可能有更多的人帮你！

附件已经上传，请高手给支个招儿吧！先谢过啦！

13907933959

网友好！
没有前辈出手！那我提供一个由“zhanglei1371”前辈写的代码修改而来的给你，看它行不行？

Sub 查找不统一的日期＿替换为统一的日期格式()
    Dim ws As Object, arr, fod
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show <> -1 Then Exit Sub Else fod = .InitialFileName
    End With
    CreateObject("wscript.shell").Run "cmd /c dir " & Chr(34) & fod & "*.doc*" & Chr(34) & " /s /b /a:-d > C:\temdoc.txt", 0, True
    Open "C:\temDoc.txt" For Input As #1
    arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
    VBA.Kill "c:\temdoc.txt"
    For Each f In arr
        If f <> "" Then
        Set oDoc = Documents.Open(f, Visible:=True)
                   With ActiveDocument.Content.Find
                   .Execute "提交时间：*年*月*日", , , 1, , , , , , "提交时间：2017年  月  日", 2
                End With
            oDoc.Close True
            Set oDoc = Nothing
        End If
    Next
End Sub

相见是缘8

13907933959 发表于 2018-4-24 08:22
网友好！
没有前辈出手！那我提供一个由“zhanglei1371”前辈写的代码修改而来的给你，看它行不行？

好代码！我这里测试OK！

fanyiseng

相见是缘8 发表于 2018-4-24 15:14
好代码！我这里测试OK！

我这里显示错误，能告诉我是为什么吗，
   Set oDoc = Documents.Open(f, Visible:=True)
显示运行时错误，5792，文件可能已经损坏。

413991697

13907933959 发表于 2018-4-24 08:22
网友好！
没有前辈出手！那我提供一个由“zhanglei1371”前辈写的代码修改而来的给你，看它行不行？

测试可行！非常感谢！
另外请教一下：
能否写一下注释，特别是字典哪里、 .execute、 .kill  不太懂，求指点！