宏的制作，为实现自动化办公

413191246se

楼主，杜先生 是本坛大神，挺热心的，请尊重他，允许有点儿小脾气。杜先生 愿意帮忙，咱们就感谢他；不愿意帮忙，咱们就祝他好好休息。杜先生 是本坛一宝，少有、难得。咱们还是平和才好。（我试试看能否帮上你。）

413191246se

楼主，我初步写了几句，你看看；另外，我建议你可以用《邮件合并》功能实现，邮件合并后，只须把分节符^l或^b或^m替换为段落标记^p即可，而不必写代码；还有，你的附件还是不太明确呀！应该多举一点例子，至少要举 2 个合同编号才好。建议重新上传附件，写明详细效果（邮件合并的话，应该提供两个文档，一个是域文档，一个是数据源，WORD表格即可)。

1. Sub test()
   
2.     If ActiveDocument.Tables.Count > 1 Then MsgBox "错误！目前有一个以上表格！本宏只处理一个表格！", vbOKOnly + vbCritical: End
   
3.     Dim i As String
   
4.     If ActiveDocument.Tables.Count = 1 Then '如果文档只有一个表格，则
   
5.         ActiveDocument.Tables(1).Cell(3, 2).Select '选定第3行第2列的单元格
   
6.         Selection.MoveEnd unit:=wdCharacter, Count:=-1 '选定区域缩小一个字符
   
7.         i = Selection.Text
   
8.         MsgBox "*" & i & "*" '单元格的值
   
9.     End If
   
10. End Sub

复制代码