VBA Word：表格单元格范围创建报错“Named Argument Not Found”

错误原因 #

你原代码里的Table.Cell方法并不支持Start和End命名参数——这个方法只能通过行号和列号获取单个单元格，没法直接用起始/结束位置创建跨单元格范围，这就是报错“Named Argument Not Found”的原因。

修正范围设置代码 #

要创建第2行第4到14列的连续范围，得用ActiveDocument.Range方法，通过指定起始和结束位置来生成：

Dim tbl As Table
Dim startPos As Long, endPos As Long
Dim MyRange As Range

Set tbl = ActiveDocument.Tables(1)
' 获取目标单元格的起始/结束位置
startPos = tbl.Cell(2, 4).Range.Start
' 减去1是为了排除单元格末尾的隐藏段落标记
endPos = tbl.Cell(2, 14).Range.End - 1
' 创建跨单元格的Range对象
Set MyRange = ActiveDocument.Range(Start:=startPos, End:=endPos)

给每个单元格单独添加日期选择器 #

如果你的需求是每个单元格都加一个独立的日期控件，直接给整个范围添加会生成一个覆盖所有单元格的控件，这显然不符合预期。正确的做法是循环遍历每个目标单元格，逐个添加：

Dim tbl As Table
Dim colIndex As Integer
Dim cellRng As Range

Set tbl = ActiveDocument.Tables(1)
' 遍历第2行的第4到14列
For colIndex = 4 To 14
    Set cellRng = tbl.Cell(2, colIndex).Range
    ' 排除单元格末尾的段落标记，避免控件超出单元格
    cellRng.End = cellRng.End - 1
    ' 添加日期选择器控件
    ActiveDocument.ContentControls.Add(wdContentControlDate, cellRng)
Next colIndex

注意事项 #

• Word表格的每个单元格末尾默认带有隐藏的段落标记（Chr(13)+Chr(7)），如果不减去1，控件可能会包含这个标记，导致显示异常。
• 如果代码中未定义wdContentControlDate常量，可以直接用数值2替代（该枚举的对应值为2）。

内容的提问来源于stack exchange，提问作者Seth Moster