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

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

编辑:说三道四文库 发布时间:2018-07-22 06:42
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的就行了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘