Excel 如何用宏一次性批量替换多个word文档中的同一内容

mm的烟火 · 发表于 2011-12-17 16:52

MA5612.rar (58.2 KB, 下载次数: 529) 用excel里面的数据替换多个WORD中的同一内容，求在office2010平台代码。我复制了word文档400个，怎么样把每个word中的”白塔小区1#8幢3号“替换为MA5612表格里的每行名字。
诸位大神帮忙啊 ~见附件。

mm的烟火 · 发表于 2011-12-17 17:35

表格原有代码是批量改word名的
Sub rename()
i = 1
Do Until Range("a" & i) = ""
Name ThisWorkbook.Path & "/现场调测记录表（光功率记录表-白塔小区1#8幢3号)" & Format(i, "0") & ".doc" As Range("a" & i) & ".doc"
i = i + 1
Loop
MsgBox "OK"
End Sub

zhaogang1960 · 发表于 2011-12-17 19:25

本帖最后由 zhaogang1960 于 2011-12-17 19:58 编辑

欢迎新会员
你自己复制很多个Word文档的方法不太好，只需要一个Word模板，需要时可以复制
下面代码是按照你的思路写的，请测试：

Sub Macro1()
Dim p$, f$, s$, arr, i&
s = "白塔小区1#8幢3号"
arr = [a1].CurrentRegion
Application.ScreenUpdating = False
With CreateObject("Word.Application")
.Visible = False
p = ThisWorkbook.Path & ""
f = Dir(p & "*.doc")
Do While f <> ""
i = i + 1
.Documents.Open p & f
.Selection.HomeKey Unit:=6
If .Selection.Find.Execute(s) Then '查找到指定字符串
.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
.Selection.Text = arr(i, 1) '替换字符串
End If
.Documents.Close True
f = Dir
Loop
.Quit
End With
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

复制代码

zhaogang1960 · 发表于 2011-12-17 19:51

以“现场调测记录表（光功率记录表-白塔小区1#8幢3号)1”工作簿作为模板，根据MA5612表格里的每行名字复制word文档：

Sub Macro2()
Dim p$, f$, s$, arr, i&
s = "白塔小区1#8幢3号"
arr = [a1].CurrentRegion
p = ThisWorkbook.Path & ""
Application.ScreenUpdating = False
With CreateObject("Word.Application")
.Visible = False
For i = 1 To UBound(arr)
f = p & "现场调测记录表（" & arr(i, 1) & ").doc"
FileCopy p & "现场调测记录表（光功率记录表-白塔小区1#8幢3号)1.doc", f
.Documents.Open f
.Selection.HomeKey Unit:=6
If .Selection.Find.Execute(s) Then '查找到指定字符串
.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
.Selection.Text = arr(i, 1) '替换字符串
End If
.Documents.Close True
Next
.Quit
End With
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

复制代码

mm的烟火 · 发表于 2011-12-17 22:55

立马测试。谢大神

mm的烟火 · 发表于 2011-12-17 23:10

zhaogang1960 发表于 2011-12-17 19:51
以“现场调测记录表（光功率记录表-白塔小区1#8幢3号)1”工作簿作为模板，根据MA5612表格里的每行名字复制w ...

大神，测试完了，完全OK。谢谢大神，另外，大神，VBA初学者一般该看一些什么资料，跪求推荐~

zhaogang1960 · 发表于 2011-12-17 23:18

mm的烟火发表于 2011-12-17 23:10
大神，测试完了，完全OK。谢谢大神，另外，大神，VBA初学者一般该看一些什么资料，跪求推荐~

如果想系统学习VBA，请在论坛上搜索

Excel_2003高级VBA编程宝典

mm的烟火 · 发表于 2011-12-18 01:21

zhaogang1960 发表于 2011-12-17 23:18
如果想系统学习VBA，请在论坛上搜索

Excel_2003高级VBA编程宝典

恩恩 O(∩_∩)O~

kszcs · 发表于 2011-12-18 12:33

高手出手就是不凡。收藏了

liucqa · 发表于 2011-12-18 12:39

留着看看

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

[求助] Excel 如何用宏一次性批量替换多个word文档中的同一内容

评分