在VBA是如何把excel中表格的一个值与word中的表格（表格格式不相同）中的一格的值同步

用vba太复杂了，也不需要用邮件合并，直接在excel对应的单元格copy，然后在word对应的位置粘贴，这时旁边出现一个“选择性粘贴”小方块，下拉菜单选择“匹配目标格式并链接到excel”。一切ok！这时excel有变化，word也跟着同步更新了。

通过读取excel文件的相应位置更改word表格的相应表格的一个值

在word里面建立一个宏，
Sub Macro1()

Dim WrkBk As Excel.Workbook
Dim WrkSht As Excel.Worksheet
Set WrkBk = Workbooks.Open("d:\book1.xls")
Set WrkSht = WrkBk.Worksheets(1)
tmpstr = WrkSht.Cells(1, 4)

ActiveDocument.Tables(1).Cell(1, 1).Range.Text = tmpstr

WrkBk.Close

End Sub

这个不需VBA，也不是邮件合并。
选中excel的单元格，按“复制”
转到word，光标放在目的地，
按word菜单：编辑》选择性粘贴。。。
“粘贴链接”，右边框选“文本”，带格式文本。。等，看你的需要了。
确定。

Sub 修改WORD表格()

Dim wkSheet As Worksheet '定工作表对象
Dim i As Long
Dim wdAPP As Object
Set wkSheet = ThisWorkbook.Sheets("WriteWord")
Set wdAPP = GetObject(ThisWorkbook.Path & "\test.doc")
'在该程序所在的EXCEL表的目录里有一个test.doc文档，里面有表格
With wdAPP
.Tables(1).Cell(3, 5) = Trim(wkSheet.Cells(7, 3).Value)
End With
End Sub

都是高手呀