1 void __fastcall TForm1::btn1Click(TObject *Sender)
 2 {
 3   4 
 5   Variant WordApp,WordDocs,WordDoc;
 6   Variant word_activedoc;
 7   Variant word_select;
 8   Variant word_table;
 9   Variant my_cell;
10 
11   //创建Word对象：
12   WordApp=CreateOleObject("Word.Application");
13   WordDocs=WordApp.OlePropertyGet("Documents");
14   //打开Word文档：
15   WordDoc=WordDocs.OleFunction("Open","c:\\test.doc");
16   WordApp.OlePropertySet("Visible",true);
17   WordDoc = WordApp.OlePropertyGet("Documents");
18   word_activedoc = WordApp.OlePropertyGet("ActiveDocument");
19   //修改表格: Cell 行,列
20   word_table = word_activedoc.OlePropertyGet("Tables").OleFunction("Item", 1);
21   my_cell = word_table.OleFunction("Cell", (Variant)1, (Variant)1);
22   my_cell.OlePropertySet("Range", "11)");
23   my_cell = word_table.OleFunction("Cell", (Variant)2, (Variant)1);
24   my_cell.OlePropertySet("Range", "21)");
25   my_cell = word_table.OleFunction("Cell", (Variant)2, (Variant)2);
26   my_cell.OlePropertySet("Range", "22)");
27   //保存修改内容:
28   word_activedoc.OleProcedure("Save");
29   //打印文档:
30   WordApp.OlePropertyGet("ActiveDocument").OleFunction("PrintOut");
31   WordApp.OleProcedure("Quit");
32   
33 }