说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

为什么往word中插入数据时,光标一直在开始的位置不动

编辑:说三道四文库 发布时间:2018-01-20 05:25
HTML文档下载 WORD文档下载 PDF文档下载
try
  {
    word_app=Variant::CreateObject("Word.application");
    word_docs=word_app.OlePropertyGet("documents");
    word_docs.OleProcedure("add");
    word_app.OlePropertySet("Visible",true);
  }
  catch(...)
  {
    MessageBox(this->Handle,"不能连接Word,可能没有安装Word","系统提示",MB_OK);
    return;
  }
  active_doc=word_app.OlePropertyGet("ActiveDocument");
  Page=active_doc.OlePropertyGet("PageSetup");
  try
  {
    Page.OlePropertySet("PaperSize",wdPaperA3);

  }
  catch(...)
  {
    MessageBox(this->Handle,"你目前设置的打印机不能打印A3宽度的纸张","系统提示",MB_OK);
  }
  try
  {
    Page.OlePropertySet("Orientation",wdOrientLandscape);
  }
  catch(...)
  {
    MessageBox(this->Handle,"设置纸张时出错","系统提示",MB_OK);
  }
  word_range=active_doc.OleFunction("Range");
  word_tables=word_range.OlePropertyGet("Tables");
  Procedure InsertAfter("InsertAfter");  
  word_range=active_doc.OleFunction("Range");
  word_range.OlePropertySet("Text","\r\nabcdefghijklmn\r\n");
  word_range.Exec(InsertAfter<<"\r\n");
  word_range=active_doc.OleFunction("Range");
  word_table=word_tables.OleFunction("Add",word_range,RowCnt,ColCnt);

做这种的VBA 的程序,告诉你一种方法,可以试一试。

你使用Word的录制宏功能,再插入文字,结束录制宏。

好了,看看录制宏的内容吧。改成BCB的就行了
日本社交手游公司GREE巨星陨落 中国区全员被裁 战歌:85后手游开发团队背后的故事 分秒钟做款App:细数国内外在线DIY应用网站 指点传媒CEO专访:紧握二三线市场用户命脉 专访Waygo创始人:白切鸡怎么翻译? 当表单项名称为动态的时候,提交后如何读取? DataReader和DataSet的选择问题 我用.net C#开发数据库WEB程序,水晶报表怎么显示不出来!请大虾们帮帮忙!!!急呀!!! web sevices 高分求解 希望大侠救命!Oracle存储过程问题. label控件的名字如何分行显示?????!!!! 一个打包的问题 我想增加一个wsock32.lib怎么办 自己写的控件升级后为啥在IE的客户端还是显示旧版本?谢谢! 我眼中的( ) 要求填一位名人,大概七八百字 求名人对自己的评价就是名人评价自己一生的名言 给亲友写的一封信;能写给自己写的一封信吗?为什么? 有一只小鸟从小树顶飞到大树顶,请问它飞行的最短路程 求 第一次XX 类型的作文 大约要600字,不要以 第一次骑自行车 作文 600字~800字 我第一次骑自行车700字 作文题:向名人发难…这作文该怎么写啊?…是话题作文 作文题目是“名人聚焦”!可以写什么内容?“名人聚焦 “双十一”商家备战百态 强化消费者唯孙杨无证驾车遭公交车追尾 浙江体院证国研中心学者:土地制度改革须制订时间世界多地现日食奇景 肯尼亚部落跳舞庆迎接十八届三中全会:寻求改革“最大公智能装备“败”给传统钓具废品站老板烧垃圾领罚单3000元中国大师赛 超级丹复出百台白内障手术女子痛失子宫极光骇客随风飘下位者鄙史上第一混搭雀神大陆顺德旅游赤壁旅游运城旅游宣城旅游万宁旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘