请问妖哥,怎样在一个已经存在的word文档中进行填空
已经有一个存在一个现成的word文档,需要在某些地方添加一些数据。其中主要是涉及到在word中的textbox中进行填空.而且需要在相关位置插入图片。请问妖哥怎么控制selection对象到达指定的地方,然后进行填空。谢谢感激不尽...好像没分了。。
[解决办法]
当然可以翻译咯。
OLE专业户来也！！！
话不多说，直接上代码：
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");