能给点代码实例看看吗
我一直没有插成功,

解决方案 »

  1.   

    WrdA:=wordapplication1.Application;
      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)里插入一行两列的表格