Microsoft Wordマクロ：最初のセルに値を持つ行を追加します。

Question

ドキュメント内のすべてのテーブルを選択し、行を追加してその行の最初のセルの値を「テキスト」に設定するマクロを作成します。

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 

しかし、私はそれを実行したとき、私はどのように私はこの作業を行うことができ、エラーを取得：ここ

は、私が今持っているものでしょうか？

Answer 1

デフォルト設定では、テーブルの最後に行が追加されます。

Sub AddProofRow() 
    Dim t As Table 
     For Each t In ActiveDocument.Tables 
      Set NewRow = t.Rows.Add 'BeforeRow is an optional argument 

      NewRow.Cells(1).Text= "Proof" '.text in word-vba 
     Next 
End Sub 

Answer 2

このコードを試してください。

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