能给点代码实例看看吗
我一直没有插成功,
我一直没有插成功,
解决方案 »
- delphi指针程序运行出错
- 一个奇怪的计算问题!请大家指教!
- 仓库管理系统中,如何建立数据库,数据库的结构要如何建立?要做到可以看到物料存在那个仓位.做过的介绍一下经验啊!谢了!
- 哪位知道RSOP WMI Classes的namespace
- 怎么捕获局域网内的QQ进程编程?分不够再补
- 帮忙看看
- delphi-bde-sql2000,怎么发布?哪有intallshield for delphi?我的盘里没有,我下的intallshield没有for delphi的选项,完美解决者再开贴
- 如何获得delphi认证讲师资格
- 怎么在delphi中截获系统消息??
- 急啊,关乎前途命运的问题!!!
- DBgrid问题?在线等!!!
- 从C++builder改学Delphi可取吗
try
WordDocs:=WrdA.Documents;
WordDoc := WordDocs.Add();
WrdSel := WrdA.Selection;
WrdRange := WrdA.selection.range;
WrdRange.InsertAfter('动火安全作业证'+#13);
WrdRange.font.size := 16;
WrdRange.Font.Bold:=true;
WordDoc.Paragraphs.Item(1).Format.Alignment := wdAlignParagraphCenter;
WordDoc.Paragraphs.Last.Format.Alignment := wdAlignParagraphRight;
WrdRange :=WordDoc.Range(WrdRange.end-1);
WrdRange.font.size := 12;
WrdRange.Font.Bold:=false;
WrdRange.InsertAfter('NO:'+Edit2.Text+#13);
WordDoc.Paragraphs.Last.Format.Alignment := wdAlignParagraphLeft;
WrdRange :=WordDoc.Range;
WrdRange :=WordDoc.Range(WrdRange.end-1);
WrdTab := WrdSel.Tables.Add(WrdRange, 2, 1);
WrdRange :=WordDoc.Range(WordDoc.Range.end-1);
WrdTab := WrdSel.Tables.Add(WrdRange, 1, 2);
WrdRange :=WordDoc.Range(WordDoc.Range.end-1);
WrdTab := WrdSel.Tables.Add(WrdRange, 6, 1); WrdRange := WrdTab.Cell(1, 1);
WrdTab := WrdSel.Tables.Add(WrdRange, 1, 2);//向单元格(1,1)里插入一行两列的表格