请教妖哥,怎样在一个已经存在的word文档中进行填空

请问妖哥,怎样在一个已经存在的word文档中进行填空
已经有一个存在一个现成的word文档,需要在某些地方添加一些数据。其中主要是涉及到在word中的textbox中进行填空.而且需要在相关位置插入图片。请问妖哥怎么控制selection对象到达指定的地方,然后进行填空。谢谢感激不尽...好像没分了。。

------解决方案--------------------
当然可以翻译咯。

OLE专业户来也！！！

话不多说，直接上代码：

C/C++ code

Variant vWordApp, vDoc;
try
{
    vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
    MessageBox(Handle, "启动Word出错！",
            Application->Title.c_str(), MB_OK | MB_ICONERROR);
    vWordApp = Unassigned;
    return;
}

vWordApp.OlePropertySet("Visible", true);

String strDocName = "d:\\ccrun\\234.doc";
vDoc = vWordApp.OlePropertyGet("Documents").
        OleFunction("Open", strDocName.c_str());

// 分别定位到三个文本框并输入文字，注意，文本框的名字，必须是存在的。
// 如Text Box 2, Text Box 3等，如果不存在则会引发异常。
// 在原Word文档中添加和删除文本框将会直接影响到文本框的名字(自动起名)

vDoc.OlePropertyGet("Shapes").OleFunction("Item", "Text Box 2").OleProcedure("Select");
vWordApp.OlePropertyGet("Selection").OleFunction("TypeText", "2007/10/1");

vDoc.OlePropertyGet("Shapes").OleFunction("Item", "Text Box 3").OleProcedure("Select");
vWordApp.OlePropertyGet("Selection").OleFunction("TypeText", "实验-1");

vDoc.OlePropertyGet("Shapes").OleFunction("Item", "Text Box 4").OleProcedure("Select");
vWordApp.OlePropertyGet("Selection").OleFunction("TypeText", "15.6");

请教妖哥,怎样在一个已经存在的word文档中进行填空

相关推荐