如何通过VBA判断Word富文本内容控件中表格行数，避免重复创建？

现有代码的问题 #

• 直接操作ActiveDocument.Tables(1)会误选文档中第一个表格，而非富文本控件内的目标表格
• 判断条件错误：ActiveDocument.Tables(1).Count并非表格行数，且行数不可能小于0，逻辑完全不成立
• 每次运行直接创建新控件和表格，导致原有内容被覆盖

修正后的代码示例 #

场景1：针对选中的富文本控件操作

Private Sub CommandButton1_Click()
    Dim targetCC As ContentControl
    Dim targetTable As Table
    
    ' 检查当前选中区域是否在富文本控件内
    If Selection.ContentControls.Count > 0 Then
        Set targetCC = Selection.ContentControls(1)
        ' 检查控件内是否存在表格
        If targetCC.Range.Tables.Count > 0 Then
            Set targetTable = targetCC.Range.Tables(1)
            ' 判断表格行数是否超过1
            If targetTable.Rows.Count > 1 Then
                ' 行数超过1时执行的操作，比如直接打开窗体
                UserForm1.Show
            Else
                ' 行数为1时执行的操作，比如添加新行
                targetTable.Rows.Add
                UserForm1.Show
            End If
        Else
            ' 控件内无表格，创建新表格
            Set targetTable = targetCC.Range.Tables.Add(Range:=targetCC.Range, _
                NumRows:=1, NumColumns:=4, _
                defaulttablebehavior:=wdWord9TableBehavior, _
                AutoFitBehavior:=wdAutoFitFixed)
            ' 设置表头
            With targetTable.Rows(1)
                .Cells(1).Range.Text = "heading 1"
                .Cells(2).Range.Text = "heading 2"
                .Cells(3).Range.Text = "heading 3"
                .Cells(4).Range.Text = "heading 4"
            End With
            UserForm1.Show
        End If
    Else
        ' 未选中富文本控件，先创建控件再建表格
        Set targetCC = Selection.Range.ContentControls.Add(wdContentControlRichText)
        Set targetTable = targetCC.Range.Tables.Add(Range:=targetCC.Range, _
            NumRows:=1, NumColumns:=4, _
            defaulttablebehavior:=wdWord9TableBehavior, _
            AutoFitBehavior:=wdAutoFitFixed)
        With targetTable.Rows(1)
            .Cells(1).Range.Text = "heading 1"
            .Cells(2).Range.Text = "heading 2"
            .Cells(3).Range.Text = "heading 3"
            .Cells(4).Range.Text = "heading 4"
        End With
        UserForm1.Show
    End If
End Sub

场景2：通过控件标题定位（更稳定）

如果给富文本控件设置了标题（比如"TableContainer"），可以直接定位控件，无需选中：

Private Sub CommandButton1_Click()
    Dim targetCC As ContentControl
    Dim targetTable As Table
    Dim ccFound As Boolean
    
    ' 遍历文档中的富文本控件，找到目标控件
    For Each targetCC In ActiveDocument.ContentControls
        If targetCC.Type = wdContentControlRichText And targetCC.Title = "TableContainer" Then
            ccFound = True
            Exit For
        End If
    Next
    
    If Not ccFound Then
        ' 未找到控件，创建新控件并设置标题
        Set targetCC = Selection.Range.ContentControls.Add(wdContentControlRichText)
        targetCC.Title = "TableContainer"
    End If
    
    ' 检查控件内的表格
    If targetCC.Range.Tables.Count > 0 Then
        Set targetTable = targetCC.Range.Tables(1)
        If targetTable.Rows.Count > 1 Then
            ' 行数超过1的操作
            UserForm1.Show
        Else
            ' 行数为1的操作，比如添加行
            targetTable.Rows.Add
            UserForm1.Show
        End If
    Else
        ' 创建新表格
        Set targetTable = targetCC.Range.Tables.Add(Range:=targetCC.Range, _
            NumRows:=1, NumColumns:=4, _
            defaulttablebehavior:=wdWord9TableBehavior, _
            AutoFitBehavior:=wdAutoFitFixed)
        With targetTable.Rows(1)
            .Cells(1).Range.Text = "heading 1"
            .Cells(2).Range.Text = "heading 2"
            .Cells(3).Range.Text = "heading 3"
            .Cells(4).Range.Text = "heading 4"
        End With
        UserForm1.Show
    End If
End Sub

关键要点说明 #

• 精准定位控件：通过Selection.ContentControls或控件标题找到目标富文本控件，避免操作文档中其他表格
• 判断表格存在性：用targetCC.Range.Tables.Count > 0检查控件内是否有表格
• 行数判断逻辑：通过targetTable.Rows.Count > 1判断行数是否超过1，执行对应分支操作
• 避免内容覆盖：仅在控件无表格时创建新表格，已有表格时直接操作现有表格

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