批量替换word中固定位置的值

翎儿 · 发表于 2022-5-20 10:29

我这里有几千的word，每个word里都有一个表格，我想要批量把表格固定位置的值替换成"/",由于word里可能有多个相同的值，不能直接用替换，有没有大神可以帮忙？

jiangxiaoyun · 发表于 2022-5-20 10:41

手工不能做的话话，首选vba吧。参考表格对象tables，表格的单元格对象cell

3190496160 · 发表于 2022-5-20 10:54

固定位置替换的话，多少个文件无所谓，关键是你得上传你的附件，

翎儿 · 发表于 2022-5-20 11:02

这个就是附件

翎儿 · 发表于 2022-5-20 11:02

3190496160 发表于 2022-5-20 10:54
固定位置替换的话，多少个文件无所谓，关键是你得上传你的附件，

我上传附件了，帮忙看一下呗

3190496160 · 发表于 2022-5-20 11:22

Sub 批量word()
Application.ScreenUpdating = False
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application") '新建Word对象
Dim wdd
t = Timer
lj = ThisWorkbook.Path
f = Dir(lj & "\*.doc*")
wdApp.Visible = False
Do While f <> ""
Set wdd = wdApp.Documents.Open(lj & "\" & f)
With wdd.Tables(1)
.cell(9, 3).Range.Text = "/"
.cell(9, 5).Range.Text = "/"
End With
wdd.Close True
f = Dir
Loop
wdApp.Quit
Set wdd = Nothing
Set wdApp = Nothing
Application.ScreenUpdating = True
MsgBox "耗时：" & Format(Timer - t, "0.00") & "秒"
End Sub

3190496160 · 发表于 2022-5-20 11:22

申请.rar (29.96 KB, 下载次数: 14)

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

[求助] 批量替换word中固定位置的值