Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Word.Table
Dim oProp As DocumentProperty
Dim lngIndex As Long
  Set oTbl = ActiveDocument.Tables(1)
  For lngIndex = 2 To oTbl.Rows.Count
    On Error GoTo Err_Property
    Set oProp = ActiveDocument.CustomDocumentProperties(fcnCellText(oTbl.Cell(lngIndex, 1)))
    oProp.Value = fcnCellText(oTbl.Cell(lngIndex, 2))
NextEntry:
  Next lngIndex
  ActiveDocument.Fields.Update
lbl_Exit:
  Exit Sub
Err_Property:
  ActiveDocument.CustomDocumentProperties.Add _
    Name:=fcnCellText(oTbl.Cell(lngIndex, 1)), LinkToContent:=False, Value:=fcnCellText(oTbl.Cell(lngIndex, 2)), _
    Type:=msoPropertyTypeString
  Resume NextEntry
End Sub
Function fcnCellText(oCell As Word.Cell) As String
  fcnCellText = Replace(oCell.Range.Text, Chr(13) + Chr(7), "")
  
End Function