title: Inserting a Field from Word Document Properties into table cell with additional text
body: <p>I am trying to insert a custom field (ProtocolNumber), created under Document Properties in Word, into a table cell with additional text around it. I'm not quite sure how to use the Fields.Add function in this case.  Sorry if question is too basic, but I'm a total hacker in VBA.</p>
  
  <pre><code>    NoOfCol = 5
      Set tblNew = ActiveDocument.Tables.Add(Selection.Range, 9, NoOfCol, 
                  wdAutoFitWindow)
      With tblNew
        .PreferredWidthType = wdPreferredWidthPercent
        .PreferredWidth = 100
        .Columns(1).PreferredWidth = 100 * NoOfCol * 3 / (NoOfCol + 1)
      End With
      tblNew.Borders.InsideLineStyle = wdLineStyleSingle
      tblNew.Borders.OutsideLineStyle = wdLineStyleSingle
      tblNew.Cell(Row:=1, Column:=1).Merge _
      MergeTo:=tblNew.Cell(Row:=1, Column:=NoOfCol)
      tblNew.Cell(1, 1).Split NumColumns:=2
      tblNew.Cell(1, 1).Range.Text = "PROTOCOL: [ProtocolNumber]"  &amp; vbCrLf &amp; "DRUG/INDICATION:
      :
      :
  </code></pre>