I used the following code to get a start. I may have to refine the constants once I get more data into the tables, but with my test data it works pretty well.

With &lcThisBody
  if ! empty(&lcPaperBody)
    .visible = .t.
    .top = lnLoc
    .value = &lcPaperBody
    .width = 700
    alines(lcalines,&lcPaperBody)
    lnLineCount=0
    for j = 1 to alen(lcAlines)
      lnLineCount = lnLineCount + ;
        int(txtwidth(lcAlines(j),"Arial",12,"N")/65) + 1	
    next J
    .height = fontmetric(1,'Arial',12,'N') * lnLineCount
      lnLoc = lnLoc + .height + 5
    else
      .visible = .f.
  endif
endwith

Thanks for all your ideas.