在Word中将单元格字体样式应用到文本框出错！？急，请大家帮帮忙 ( 积分: 100 )

FDocTemplate是用CreateOleObject创建的Word.Document类型
下面的代码能克隆单元格的字体，但不能将它应用到文本框，郁闷中。。。
var
wdTable,
wdCell: Variant;

l, t, w, h: Extended;

FontFmt,
ParaFmt: Variant;

wdTable := FDocTemplate.Tables.Item(1);
wdCell := wdTable.Cell(6, 3);
//复制单元格的字体格式及段落格式
FontFmt := wdCell.Range.Font.Duplicate;
ParaFmt := wdCell.Range.ParagraphFormat.Duplicate;

l := 10;
t := 10;
w := wdCell.Width;
h := wdCell.Height;

wdTextBox := FDocTemplate.Shapes.AddShape(1, l, t, w, h);
//应用单元格的字体格式及段落格式
{*******************************************************************
下面这句出错，在VBA里测试正常

wdTextBox.TextFrame.TextRange.Font := FontFmt;

********************************************************************}
wdTextBox.TextFrame.TextRange.ParagraphFormat := ParaFmt;

FontFmt := wdCell.Range.Font.Duplicate;
改为
FontFmt := wdCell.Range.Font;
试试