Word 2010 ：一个word文档中有很多相同的表格,有什么方法可以快速的在表格的同一位置放相同的内容

Question

如题所述

Answer 1

你可以尝试用宏完成。
1、先编写宏A：
Sub a()
Dim i As Long
For i = 2 To 10
ActiveDocument.Tables(1).Cell(1, 2).Select
Selection.Copy
ActiveDocument.Tables(i).Cell(1, 2).Select
Selection.Paste
Next
End Sub
该代码假设你的word文档中有10张表，要多次填充的单元格为Cell(1, 2)，也就是每一个表的第一行的第二个单元格。
特别特别注意！！！如果有合并单元格时，单元格的表示方法与excel相同，按照合并单元格所在的第一个行号和第一个列号来表示。
Tables(1).指第一张表，
For i = 2 To 10为从第二张表至第10张表依次循环粘贴
实际使用时，在第一章表的Cell(1, 2)中填入你需要的内容，执行宏A，第二至第十张表的所有Cell(1, 2)单元格会复制并粘贴内容。
For i = 2 To 10中的“10”你可以按照自己的需要修改。
希望对你有用。

Answer 2

可以录制宏试试

Answer 3

复制--粘贴