如何利用vba程序在word中调用excel单元格中的数据

'代码已经测试过，请注意保持良好习惯，及时采纳，谢谢。

Sub PasteToWordDoc()

'

' 需要引用MIcrosoft Word 12.0 Object Library（注：12.0是版本号，可以不同）

'

Application.ScreenUpdating = False '关闭屏幕刷新'

Selection.Copy

Dim wdApp As Word.Application, wdDoc As Word.Document

Dim strDocPath As String '全路径文件名

Dim blnNoWd As Boolean, blnNoWdd As Boolean

On Error Resume Next

strDocPath = "C:\Users\wine\Desktop\可ihikhoi年.docm" '如果与Excel工作薄同路径，采用这面的语句也可

'strDocPath = ThisWorkbook.Path &"\可ihikhoi年.docm"

'调用word程序对象

Set wdApp = GetObject(, "Word.Application") '实例化word对象变量

If wdApp Is Nothing Then '判断word程序是否正在运行

Set wdApp = CreateObject("Word.Application")

wdApp.Visible = False

blnNoWd = True

End If

'调用word 文档对象

Set wdDoc = wdApp.Documents(strDocPath)

If wdDoc Is Nothing Then

Set wdDoc = wdApp.Documents.Open(Filename:=strDocPath, Visible:=flase)

blnNoWdd = True

Else

wdDoc.Activate

End If

wdApp.Selection.PasteExcelTable False, False, False

wdDoc.Save

'恢复环境

If blnNoWdd Then wdDoc.Close: Set wdDoc = Nothing

If blnNoWd Then wdApp.Quit: Set wdApp = Nothing

Application.ScreenUpdating = True

On Error GoTo 0

End Sub

vba用来编写宏程序，处理文本，比如能批量修改某些符号、文字，根据设定自动设定文本、文章格式，检查文本错误等等。

还可以用宏程序查找指定文本、修改特定代码，转化为一些特定的公式字符或代号。总之，word里的功能都可以用vba实现，而且是自动运行，不是你想像的那样手工一个个去修改。

高手可以用来做很多扩展的功能，当然是word相关的。比如加入自己喜欢使用的图形、处理各种图片、图表、剪贴图、艺术字等等。

---