Word 2013表单VBA需求：为表格新增行插入Rich Text Content Control

首先先修正你现有代码里的一处拼写错误：oTable.Rpws.Count应该改为oTable.Rows.Count，不然运行时会报错。

接下来是完整的代码，我补上了给7个单元格插入Rich Text Content Control的逻辑，同时优化了代码的可读性：

Sub AddRowWithRichTextControls()
    Dim oTable As Table
    Dim oNewRow As Row
    Dim iColumn As Long
    Dim rtfControl As ContentControl
    
    ' 定位到文档中的第一个表格，你可以根据实际需求调整表格索引
    Set oTable = ActiveDocument.Tables(1)
    
    ' 在表格底部新增一行
    oTable.Rows.Add
    Set oNewRow = oTable.Rows(oTable.Rows.Count)
    
    ' 遍历新增行的7个单元格，逐个插入富文本内容控件
    For iColumn = 1 To 7
        ' 插入富文本内容控件到当前单元格
        Set rtfControl = ActiveDocument.ContentControls.Add( _
            Type:=wdContentControlRichText, _
            Range:=oNewRow.Cells(iColumn).Range)
        
        ' 可选：给控件设置标题，方便用户识别用途
        rtfControl.Title = "输入区域" & iColumn
        ' 可选：如果需要锁定控件防止被删除，取消下面这行的注释
        ' rtfControl.LockContentControl = True
    Next iColumn
End Sub

代码细节说明： #

• 先确保新增行的逻辑正常运行，修正了原代码的拼写失误
• 通过For循环遍历新增行的1-7列单元格，批量插入控件
• 使用wdContentControlRichText指定控件类型为富文本，支持用户输入格式文本
• 可选的标题和锁定设置，你可以根据表单的实际需求调整

使用步骤： #

1. 打开你的Word 2013文档
2. 按下Alt + F11打开VBA编辑器
3. 右键点击左侧项目列表，选择「插入」→「模块」
4. 将上述代码粘贴到模块中
5. 运行宏即可添加带控件的新行，也可以给表单添加一个按钮，把这个宏绑定到按钮上，方便用户点击操作

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