Vba Microsoft Word宏：在第一个单元格中添加带值的行

我想构建一个宏，用于选择文档中的每个表，追加一行，并将该行中第一个单元格的值设置为“Text”

以下是我现在拥有的：

Sub AddProofRow()
    Dim t As Table
    For Each t In ActiveDocument.Tables
         t.Rows.Add
         NewRow = t.Rows.Last
         NewRow.Cells(t.Rows.Count, 1).Value = "Proof"
    Next
End Sub

但是，当我运行它时会出现错误，如何才能使其正常工作？

请尝试此代码

Sub AppendRowWithText()
    ' 24 Apr 2017

    Dim NewRow As Row
    Dim t As Integer

    With ActiveDocument
        For t = 1 To .Tables.Count
            Set NewRow = .Tables(t).Rows.Add
            NewRow.Cells(1).Range.InsertAfter Text:="Text"
        Next t
    End With
End Sub

---

t.Rows.Add.Cells（1）.Range.Text=“Text”

但可能需要For循环而不是For each这清除了第一个表中第2列的内容，但添加了预期的行。不幸的是，第2列很重要，表是从外部程序导入的，因此它们带有数据。为了确保这一点，我再次对它进行了测试，但您可以看到，proc中没有选择或定义任何列的代码。仅定义或触摸了

NewRow.Cells（1）

。丢失数据的原因必须在代码的其他部分。我希望这对你来说是个好消息：-）我不是说你把它编程成那样，我是说事情就是这样。你的代码是我唯一的宏，哈哈。这个词是。。婴儿车。