能给点代码实例看看吗
我一直没有插成功,
我一直没有插成功,
解决方案 »
- 程序都能调通,但是任何按键都没反映,帮帮忙~
- 求助
- 在后台触发器里管理表时出现的问题:
- 如何给access数据库加密,加密后如何与delphi连接,
- 100分不知够吗?菜鸟用serversocket和clientsocket两个控件做了服务器端和客户端,我的服务器运行之后,我在两台机器上开了两个客户端连
- 帮帮我啊~~~
- 新手提问(2)!!!
- 会者不难(关于存储过程的调用)
- 关于如何执行(*.doc,*.xls等)文件的求助???
- 我下载了Delphi5_ADO_MTS_COM_design ,怎么Acrobat Reader 5.0打不开!!!说什么没有中文包
- 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)里插入一行两列的表格