如何修改MS Word VBA代码实现按钮添加带下拉列表的表格行？

现有代码仅能添加空白行，无法复制目标行的下拉列表控件，通过以下修改可实现需求：

修改后的完整代码 #

Private Sub AddRowCommandButton1_Click()
    Dim tbl As Table
    Dim templateRow As Row
    Dim newRow As Row
    
    ' 定位到文档中的第3个表格
    Set tbl = ActiveDocument.Tables(3)
    
    ' 检查表格是否存在
    If tbl Is Nothing Then
        MsgBox "未找到指定表格。", vbExclamation
        Exit Sub
    End If
    
    ' 验证表格行/列数量，确保模板行存在
    If tbl.Columns.Count < 6 Or tbl.Rows.Count < 2 Then
        MsgBox "表格的行或列数量不足。", vbExclamation
        Exit Sub
    End If
    
    ' 指定包含下拉列表的模板行（此处假设为第2行，可根据实际调整）
    Set templateRow = tbl.Rows(2)
    
    ' 复制模板行并插入到表格末尾
    templateRow.Copy
    Set newRow = tbl.Rows.Add
    newRow.Paste
    
    ' 可选：清空新行的普通文本，仅保留下拉控件并重置默认选项
    Dim cell As Cell
    For Each cell In newRow.Cells
        If cell.Range.ContentControls.Count > 0 Then
            Dim cc As ContentControl
            Set cc = cell.Range.ContentControls(1)
            ' 若为下拉控件，选中第一个选项作为默认值
            If cc.Type = wdContentControlDropdownList Then
                cc.DropdownListEntries(1).Select
            End If
        Else
            ' 无控件的单元格清空文本
            cell.Range.Text = ""
        End If
    Next cell
    
    ' 清除剪贴板，避免后续误操作
    Application.CutCopyMode = False
End Sub

关键修改说明 #

• 替换空白行创建逻辑：不再直接添加空白行，而是复制已有下拉控件的模板行，确保新行继承所有控件和格式
• 模板行指定：代码中默认使用第2行作为模板，若你的下拉列表在其他行，修改templateRow = tbl.Rows(X)中的X值即可
• 控件保留与重置：可选逻辑保留下拉控件并重置为第一个选项，同时清空非控件单元格的文本
• 兼容旧版表单域：如果使用的是旧版表单域下拉控件，将内容控件的处理代码替换为以下片段：

  If cell.Range.FormFields.Count > 0 Then
      Dim ff As FormField
      Set ff = cell.Range.FormFields(1)
      If ff.Type = wdFieldFormDropDown Then
          ff.DropDown.ListEntries(1).Select
      End If
  End If
  

内容的提问来源于stack exchange，提问作者Ramesh Subramanian