批量对word表格内容进行补充
发布网友
发布时间：2022-04-24 13:29
共1个回答
热心网友
时间：2023-10-14 11:25
2、键入Alt+F11打开VBA编辑器；
3、选择菜单命令“插入-模块”；
4、在代码编辑区中输入如下代码：
Option Explicit
Sub InsertContentToCells()
Dim oTable As Table
Const nRow = 2 ' 需要修改的单元格所在行号
Const nColumn = 2 '需要修改的单元格所在列号
Const strContent = "Hello" ' 需要补充的内容
For Each oTable In ActiveDocument.Tables
oTable.Cell(nRow, nColumn).Range.Text = strContent
Next
End Sub
5、修改代码中的单元格所在行、列号以及需要补充的内容；
6、键入F5，运行。
7、检查所有表格相应的固定位置单元格是否都填写上了指定的内容。
