Excel与Word数据交互【带案例】

梧叶沙沙

自己遇到的一些实际例子，分享给大家。很多代码也是从论坛学习来的。

例子很基础，希望能抛砖引玉

主要涉及以下几个方面：

Excel与Word表格交互读取

Excel与Word图片的交互（批量导出Word图片）

Excel批量生成Word合同

Word VBA中的常用对象及一些常用代码：

①Excel读取Word数据的框架：

1. Sub 打开Word()
   
2.     Set doc = CreateObject("word.application")
   
3.     f = Dir(ThisWorkbook.Path & "\*.doc")
   
4.     Do While f <> ""
   
5.         Set wd = doc.documents.Open(ThisWorkbook.Path & "" & f)
   
6.         doc.Visible = True
   
7.        '对Word进行操作的具体数据
   
8.         f = Dir
   
9.         wd.Close False
   
10.     Loop
    
11.     doc.Quit
    
12.     MsgBox "完成！"
    
13. End Sub

复制代码

②Word VBA向word表格写数据：

如下图所示的数据，如果要用WordVBA写入数据，有两种方式。

1. Sub 第一种写入方法()
   
2.     Dim t As Table
   
3.         Set t = ActiveDocument.Tables(1)
   
4.         t.Cell(1, 1).Range = 1
   
5.         t.Cell(1, 2).Range = 2
   
6.         t.Cell(1, 3).Range = 3
   
7.         t.Cell(2, 1).Range = 4
   
8.         t.Cell(2, 2).Range = 5
   
9.         t.Cell(2, 3).Range = 6
   
10. End Sub
    
11. 
    
12. 
    
13. Sub 第二种写入方法()
    
14.     Set t = ActiveDocument.Tables(1).Range
    
15.     For i = 1 To t.Cells.Count
    
16.         t.Cells(i).Range = i
    
17.     Next
    
18. End Sub

复制代码

③Word VBA新建2行3列表格：

1. Sub 宏1()
   
2.     ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=3
   
3.     Selection.Tables(1).Style = "网格型" '如果不表格样式，看不到边框。
   
4. End Sub

复制代码

④Excel导出Word图片：

1. Sub 复制到Excel后输出1()
   
2.     Dim Excel_Shape As Shape
   
3.     Dim i As Integer
   
4.     Dim Word, Myword As Object
   
5.     Set Word = CreateObject("word.application")
   
6.     Set Myword = Word.Documents.Open("C:\Users\Brildo\Desktop\test.doc")
   
7.     Word.Visible = True
   
8.     Application.DisplayAlerts = False '从doc到xls的复制过程可能会报错，故加此句
   
9.     For i = 1 To Myword.Shapes.Count
   
10.         Myword.Shapes(i).Select
    
11.         Word.Selection.Copy
    
12.         ActiveSheet.Cells(i, 1).Activate
    
13.         ActiveSheet.PasteSpecial Format:="图片(增强型图元文件)", Link:=False, DisplayAsIcon:=False
    
14.         Set Excel_Shape = ActiveSheet.Shapes(1) '因为当单个doc中存在图片量过多，均复制到xls中造成数据量过大，
    
15.         '这里采用了复制一个进入xls，再另存图片后，立即删除xls中的图片数据，所以遍历时，index永远是1
    
16.         Excel_Shape.ScaleHeight 1, True, msoScaleFromMiddle '调整图片大小为原始大小，不缩放
    
17.         Excel_Shape.ScaleWidth 1, True, msoScaleFromMiddle
    
18.         Excel_Shape.Copy
    
19.         With ActiveSheet.ChartObjects.Add(0, 0, Excel_Shape.Width, Excel_Shape.Height).Chart
    
20.             .Paste
    
21.             .Export ThisWorkbook.Path & "" & i & ".jpg"
    
22.             .Parent.Delete '删除第二次复制产生的数据
    
23.         End With
    
24.         Excel_Shape.Delete '删除第一次复制产生的数据
    
25.     Next i
    
26. End Sub
    

复制代码

梧叶沙沙

3年的沉淀，总结了诸多案例，我把excel与Word交互做成了一系列插件。--Excel魔方
插件地址：https://www.vbashuo.top/exceltool


生成、提取，只要有规律的需求，基本都可以攻克。

梧叶沙沙

着火鸟 发表于 2023-3-24 18:03
你好，有偿帮助，可以吗

可以，我的vx:vbashuo3

着火鸟

你好，有偿帮助，可以吗

梧叶沙沙

applebuding-201 发表于 2022-12-30 10:06
感谢感谢 请问有没有信息批量制作合同的程序

有的。
插件下载地址：https://www.vbashuo.top/exceltool

applebuding-201

感谢感谢 请问有没有信息批量制作合同的程序

yjm36

jiangxiaoyun 发表于 2019-11-6 19:19
案例3搞太复杂了。域对象field了解一下

用邮件合并，更简单些

梧叶沙沙

阿囡123 发表于 2019-11-8 00:27
求大师百忙之中帮小女子实现EXCEL与Word数据交换，非常感谢

用我的插件可以完美解决

xj123321

学习学习           

pc_12

真棒，感谢分享