现有2000个word文档，需要将每一个文档中其中一句话改成跟它的文件名一致，有大神....

愿余生大步流星

就是这样的2000个文档，需要修改第二行的智能融合终端项目为文件名称（2000个外面文件名已经改好，需要把外面的名字导到里面把红色的“智能融合终端项目”替换掉），有大神帮忙吗，跪谢！

愿余生大步流星

是把外面的文件名字给里面用

约定的童话

做个EXCEL替换对照表，用VBA遍历替换，不过耗时比较久

3190496160

问题肯定是可以解决的，但是，没有附件，一切都是白说

zhanglei1371

如此简单的问题，至需提供附件就能很快得到答案代码

愿余生大步流星

zhanglei1371 发表于 2021-9-14 08:53
如此简单的问题，至需提供附件就能很快得到答案代码

就是像这样的2000多个

3190496160

Sub 替换()
Application.ScreenUpdating = False
    Dim i%, arr, myPath$, wdApp, wdD
    myPath = ThisWorkbook.Path & "\"
    Set wdApp = CreateObject("word.application")
    wdApp.Visible = False
    F = Dir(myPath & "*.doc*")
    Do While F <> ""
        mc = Split(F, ".")(0)
        Set wdD = wdApp.Documents.Open(myPath & F)
        wdD.Tables(1).cell(1, 2).Range.Text = mc
        wdD.Close True
    F = Dir
    Loop
    wdApp.Quit
    Set wdD = Nothing
    Set wdApp = Nothing
Application.ScreenUpdating = False
    MsgBox "ok!"
End Sub

3190496160

融合终端项目.rar (77.39 KB, 下载次数: 9)

2021-9-14 12:27 上传

点击文件名下载附件

愿余生大步流星

3190496160 发表于 2021-9-14 12:27
Sub 替换()
Application.ScreenUpdating = False
    Dim i%, arr, myPath$, wdApp, wdD

大神啊，谢谢咯，万分感谢，好人有好报，好人一生平安！！！

愿余生大步流星

3190496160 发表于 2021-9-14 12:28

大佬啊，如果是CAD文件，也有办法像这样批量的把内部指定的文字修改为文件名称吗，像这样的N多个文件，里面N多个文字要跟外面的文件名称保持一致