为Word表格的指定单元格输入相同内容

最近在工作中遇到一个问题，某个Word文档有多个表格，现在要求在各个表格的第4行、第3列输入相同的内容，例如“工作单位”，如果这个任务纯粹依靠手工复制、粘贴的操作完成，既麻烦而且也容易出错。有没有简单一些的方法呢？

借助VBA代码可以快速完成这一任务，按下“Alt+F11”组合键，打开Microsoft Visual Basic for Applications编辑器窗口，依次选择“插入→模块”，在右侧窗格插入一个空白模块，如图1所示，在这里手工输入或粘贴如下代码：

Sub test（）

Dim t As Table

For Each t In ActiveDocument.Tables

t.Cell（4， 3）.Range.Text = "工作单位"

Next

End Sub

上述代码中的代码名称可以根据喜好任意设置，“t.Cell（4， 3）.Range.Text =”后面的内容请根据实际情况进行修改，注意这里需要用英文半角的双引号进行分隔，“t.Cell（4， 3）”表示目标单元格的位置，注意行在前列在后。代码检查无误之后，选择“文件→关闭并返回到Microsoft Word”命令，返回Word主界面，按下“Alt+F8”组合键，打开“宏”对话框，选择并运行宏，很快就可以完成批量输入相同内容的任务，最终效果如图2所示。