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

愿余生大步流星 · 发表于 2021-9-14 01:18

本帖最后由愿余生大步流星于 2021-9-14 01:22 编辑

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

愿余生大步流星 · 发表于 2021-9-14 01:20

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

约定的童话 · 发表于 2021-9-14 08:00

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

3190496160 · 发表于 2021-9-14 08:05

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

zhanglei1371 · 发表于 2021-9-14 08:53

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

愿余生大步流星 · 发表于 2021-9-14 11:36

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

就是像这样的2000多个

3190496160 · 发表于 2021-9-14 12:27

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 · 发表于 2021-9-14 12:28

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

愿余生大步流星 · 发表于 2021-9-14 18:14

本帖最后由愿余生大步流星于 2021-9-14 18:57 编辑

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

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

愿余生大步流星 · 发表于 2021-9-14 19:04

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

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

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

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