如何对word中表格4*10里表格里的内容进行修改,如把表格的值替换成0-39,不知道这样程序该如何写?word里的表格大小都是定好的,文件名都是定

[amwn]

如何对word中表格4*10里表格里的内容进行修改,如把表格的值替换成0-39,不知道这样程序该如何写?word里的表格大小都是定好的,文件名都是定好的,如tmp.doc,急,谢谢!

对word操作不熟悉,麻烦说的详细点

[amwn]

表格大小都是已经做好了,主要是修改里面的内容

[ccrun.com]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vWordApp, vDocs, vDoc, vRange, vTables, vCell;
String strDocFileName("C:\\ccrun\\123.doc");
try
{
vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
MessageBox(Handle, "启动Word出错！",
Application->Title.c_str(), MB_OK | MB_ICONERROR);
vWordApp = Unassigned;
return;
}
vDocs = vWordApp.OlePropertyGet("Documents");
vDocs.OleProcedure("Open", strDocFileName.c_str()); // 打开Word文档
vDoc = vWordApp.OlePropertyGet("ActiveDocument");
vRange = vDoc.OleFunction("Range");
vTables = vRange.OlePropertyGet("Tables");
vTables = vTables.OleFunction("Item", (Variant)1); // 定位到第一个表格

for(int i=0; i<10; i++)
{
for(int j=0; j<4; j++)
{
vCell = vTables.OleFunction("Cell", i+1, j+1);
vCell.OlePropertySet("Range", i * 4 + j); // 依次写入0~39
}
}
vDoc.OleFunction("SaveAs", strDocFileName.c_str()); // 保存
vDoc.OleProcedure("Close");
vDoc = Unassigned;
vWordApp.OleProcedure("Quit"); // 退出
vWordApp = Unassigned;
}

[amwn]

多谢!