把EXCEL数据自动插入WORD文件相应位置里。

ych9999

把EXCEL数据自动插入WORD文件相应位置里。

liulang0808

可以设置好位置直接替换的

lizhipei78

https://club.excelhome.net/thread-1693611-1-1.html

过客fppt

这是一个用Word VBA打开execl获取数据替换Word对应文字的示例

过客fppt

过客fppt 发表于 2024-8-17 09:22
这是一个用Word VBA打开execl获取数据替换Word对应文字的示例

1. Sub 替换(文字, 替换后)
   
2.     With ActiveDocument.Content.Find
   
3.             .ClearFormatting
   
4.             .Wrap = wdFindStop
   
5.             .text = 文字
   
6.             .Forward = True
   
7.             .Replacement.text = 替换后
   
8.             .Execute Replace:=wdReplaceAll
   
9.     End With
   
10. End Sub
    
11. 
    
12. Sub word模板根据Execl生成多个Word文档()
    
13.     Dim xlApp, MYPT, myfile, Data
    
14.    
    
15.     '设置EXCEL应用程序的引用
    
16.     Set xlApp = CreateObject("Excel.Application")
    
17.     '设置要打开的文档
    
18.    
    
19.     MYPT = ActiveDocument.path
    
20.     myfile = "求助.xlsx"
    
21.     xlApp.Workbooks.Open MYPT & "" & myfile
    
22.     xlApp.Visible = False
    
23.    
    
24.     Data = xlApp.Sheets(1).Range("A1").CurrentRegion
    
25. 
    
26.     xlApp.Quit
    
27.     Set xlApp = Nothing
    
28.    
    
29.     Dim doc0, tempDoc As Document
    
30.     Dim str As String, i As Long
    
31.     Set doc0 = ActiveDocument
    
32.     str = doc0.FullName
    
33.     str = Split(doc0.FullName, ".")(0) & "生成的文件." & Split(str, ".")(1)
    
34.     Set tempDoc = Documents.Add(Visible:=True)
    
35.     tempDoc.Range.FormattedText = doc0.Content
    
36.     For i = 2 To UBound(Data)
    
37.         Call 替换(Data(i, 1), Data(i, 2))
    
38.     Next i
    
39.     tempDoc.SaveAs2 FileName:=str
    
40. '    tempDoc.Close
    
41.     MsgBox "已安模板生成了文件，文件夹位置：" & doc0.path
    
42. 
    
43. End Sub
    

复制代码

ych9999

liulang0808 发表于 2024-8-17 08:19
可以设置好位置直接替换的

用了下面的这个链接，有两个问题麻烦版主百忙之中看一下如何解决。1.数据01，数据02列可以设置成纵向排列吗。2.数据100-109，数据130-150，这两个数据段会出错。不懂为什么 。就是这个链接的：https://club.excelhome.net/thread-1693611-1-1.html