嘿，我来帮你解决这个Word VBA的填充问题！你遇到的核心问题是Word表格的多单元格Range和Excel的行为完全不同：直接给跨多个单元格的Range赋值Text，只会把内容塞进第一个单元格。这是因为每个Word表格单元格末尾都带有隐藏的单元格标记（^c）和段落标记，这些标记把每个单元格变成了独立的“容器”，导致你选中的范围虽然看起来是多个单元格，但赋值操作只会作用于第一个容器的内容。

另外，你的代码里还有个小拼写错误：定义的变量是tl，但赋值的是t1，这会导致tl未初始化（默认值为0），好在你后面用的是t1，但这是个潜在的bug，建议统一变量名。

要实现给指定范围内的每个单元格都填充TextBox1的值，最可靠的方式是循环遍历每个目标单元格，逐个赋值。下面是修正后的代码：

基础修正版 #

Private Sub CommandButton1_Click()
    ' 统一变量名，避免拼写错误
    Dim tblIndex As Integer
    tblIndex = 33
    
    Dim tbl1 As Table
    Dim currentCell As Cell
    
    Set tbl1 = ActiveDocument.Tables(tblIndex)
    
    ' 遍历第5列的第2行到第100行
    For i = 2 To 100
        Set currentCell = tbl1.Cell(i, 5)
        ' 替换单元格内容
        currentCell.Range.Text = TextBox1.Text
    Next i
End Sub

带错误处理的优化版 #

为了避免表格行数不足100行导致的报错，我们可以加上行数判断和简单的错误处理：

Private Sub CommandButton1_Click()
    Dim tblIndex As Integer
    tblIndex = 33
    
    Dim tbl1 As Table
    Dim currentCell As Cell
    Dim maxRow As Integer
    
    ' 启用错误捕获
    On Error GoTo ErrorHandler
    
    Set tbl1 = ActiveDocument.Tables(tblIndex)
    maxRow = 100
    
    ' 检查表格行数是否足够，避免越界
    If tbl1.Rows.Count < maxRow Then
        maxRow = tbl1.Rows.Count
        MsgBox "提示：表格只有" & maxRow & "行，已自动调整填充范围到第2行至第" & maxRow & "行", vbInformation
    End If
    
    ' 循环填充每个单元格
    For i = 2 To maxRow
        Set currentCell = tbl1.Cell(i, 5)
        currentCell.Range.Text = TextBox1.Text
    Next i
    
    Exit Sub
    
ErrorHandler:
    MsgBox "操作出错：" & Err.Description, vbExclamation
End Sub

如果你原本的需求是把TextBox1的文本跨单元格自动换行填充（而不是每个单元格都填相同内容），那逻辑会不一样——需要先获取文本内容，再逐个单元格填充剩余文本，但从你的描述来看，应该是每个单元格都填入相同的TextBox1值，上面的循环方案完全能满足需求。

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