求大佬帮忙WORD文档中的某一项替换

dana0630

求大佬帮忙
图1中标红的文字批量替换成图2安装地点的文字，另存为每个单独的WORD，且WROD命名为图2中的序号 模板.rar (24.52 KB, 下载次数: 5)

2023-8-16 16:34 上传

点击文件名下载附件

守候_CJ

VBA——Excel数据批量生成Word


一、示例代码

1. Sub Excel批量生成Word文件()
   
2.     Dim exApp As Object
   
3.     Dim wb As Object
   
4.     Dim sht As Object
   
5.     Dim arr
   
6.     Dim row As Long
   
7.     Dim col As Long
   
8.     Dim doc As Document
   
9.     Dim newDoc As Document
   
10.     Dim cel As Word.Cell
    
11.     Dim p As String
    
12.    
    
13.     'Set exApp = GetObject(, "Excel.Application")
    
14.    
    
15.    
    
16.     Set exApp = GetObject(Class:="Excel.Application")
    
17.     Set wb = exApp.Workbooks("安装地点1.xls")
    
18.     Set sht = wb.Sheets("序号")
    
19.     Set doc = ActiveDocument
    
20.    
    
21.     Set cel = doc.Tables(1).Cell(2, 2)
    
22.    
    
23.     'Set cel = doc.Tables(1).Range.Cells(4)
    
24.    
    
25.     arr = sht.Range("A1").CurrentRegion.Value
    
26.    
    
27.     For row = LBound(arr, 1) + 1 To UBound(arr, 1)
    
28.         Debug.Print arr(row, 1), arr(row, 2)
    
29.         cel.Range.Text = arr(row, 2)
    
30.         p = ActiveDocument.Path & "\结果" & arr(row, 1) & ".docx"
    
31.         doc.SaveAs2 FileName:=p
    
32.     Next row
    
33.    
    
34.     Set exApp = Nothing
    
35.     Set wb = Nothing
    
36.     Set sht = Nothing
    
37.     Set doc = Nothing
    
38.     Set cel = Nothing
    
39. End Sub

复制代码

二、注意事项
上述代码需要将Excel文件打开再运行

守候_CJ

守候_CJ 发表于 2023-8-16 19:04
VBA——Excel数据批量生成Word

视频详解：
https://www.bilibili.com/video/BV1mV4y1Y7cd/?share_source=copy_web&vd_source=0f7e137c0fb8ba5c1480ba2841dd9284

dana0630

守候_CJ 发表于 2023-8-16 19:50
视频详解：
https://www.bilibili.com/video/BV1mV4y1Y7cd/?share_source=copy_web&vd_source=0f7e137c0 ...

膜拜大佬，非常感谢

守候_CJ

dana0630 发表于 2023-8-17 12:41
膜拜大佬，非常感谢

dana0630

守候_CJ 发表于 2023-8-17 13:24

大佬我想进阶下，一次替换三个地方，能不能告诉我增加哪些代码？非常感谢

gwjkkkkk

dana0630 发表于 2023-9-11 19:56
大佬我想进阶下，一次替换三个地方，能不能告诉我增加哪些代码？非常感谢

参与一下，请打开EXCEL操作Word

dana0630

gwjkkkkk 发表于 2023-9-11 22:09
参与一下，请打开EXCEL操作Word

大佬，显示文件损坏

gwjkkkkk

dana0630 发表于 2023-9-11 22:19
大佬，显示文件损坏

请确认下载完成再解压，我下载了一下，重新解压，没问题啊！

dana0630

gwjkkkkk 发表于 2023-9-11 22:22
请确认下载完成再解压，我下载了一下，重新解压，没问题啊！

可能是我电脑有问题，明天换一台试一下~~谢谢