在同一个word相同格式表格中，如何一次可签相同内容

春日秋水

在同一个word文档中，有多张相同的表格，签名都是一样的，能否一次性填写所有相同的内容。如编制，编制日期等。

非常感谢 。
工作内容.rar (10.74 KB, 下载次数: 12)

2016-10-11 17:30 上传

点击文件名下载附件

duquancai

可以，但是我目前还未找到编写程序的理由！呵呵

春日秋水

duquancai 发表于 2016-10-11 19:48
可以，但是我目前还未找到编写程序的理由！呵呵

虚心请教。真心请教。

QQ214189912

1. Sub TablesCells()
   
2. Dim Tae As Table
   
3.     For Each Tae In ThisDocument.Tables
   
4.         Tae.Cell(Tae.Range.Cells.Count, 2).Range.Text = "aa"
   
5.         Tae.Cell(Tae.Range.Cells.Count, 5).Range.Text = "bb"
   
6.         Tae.Cell(Tae.Range.Cells.Count, 8).Range.Text = "cc"
   
7.         Tae.Cell(Tae.Range.Cells.Count, 9).Range.Text = Format(Date, "yyyy-mm-dd")
   
8.     Next
   
9. End Sub

复制代码