Sub add()

Dim oTable As Table
Dim oCell As Cell
Dim oNewRow As Row
Dim oDocProp As DocumentProperty

    ' Insert new row
    Set oTable = ActiveDocument.Tables(1)
    Set oNewRow = oTable.Rows.add

    For Each oDocProp In ActiveDocument.BuiltInDocumentProperties
        If oDocProp.name = "Author" Then
            oNewRow.Cells(1).Range.Text = oDocProp.Value
        End If
        If oDocProp.name = "Title" Then
            oNewRow.Cells(2).Range.Text = oDocProp.Value
        End If
    Next oDocProp
    For Each oDocProp In ActiveDocument.CustomDocumentProperties
        If oDocProp.name = "MyPropName1" Then
            oNewRow.Cells(3).Range.Text = oDocProp.Value
        End If
        If oDocProp.name = "MyPropName2" Then
            oNewRow.Cells(4).Range.Text = oDocProp.Value
        End If
        If oDocProp.name = "MyPropName3" Then
            oNewRow.Cells(5).Range.Text = oDocProp.Value
        End If
       
    Next oDocProp
End Sub