Where is your attempt?
Code:
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
I wouldn't use that method. I would create a Product Name and Manufacture content control, map them to a customXMLnode and then copy and paste the controls where I need the same data repeated.