VC 创建WORD ，合并单元格，插入图片.

最新推荐文章于 2022-09-01 16:02:47 发布

华亭真人

最新推荐文章于 2022-09-01 16:02:47 发布

阅读量3.9k

点赞数

文章标签： application library vb 报表 table null

本文链接：https://blog.csdn.net/FallingStar08/article/details/5182713

版权

今天做了一个输出报表的模块，要用程序输出到WORD中，在网上找了半天，大多是VB代码，杂而且乱，尤其是合并单元格，几乎找不到有用的信息。所幸最终还是写了出来，拿来和大家分享一下，也可以少走些弯路。

一。打开类向导->ClassInfo->Add class->From a type library

在WORD的安装目录下，找到msword.olb 加入以下类

_Application (word 实例）

Documents

_Document

Range

Tables

Table

Cells

Cell

Columns

Column

Selection

InlineShapes （用于插入图片）

二，代码实现。

#define ERROR_CREATEFAIL 1
#define ERROR_WRITEFAIL 2
#ifndef ERROR_SUCESS
#define ERROR_SUCESS 0
#endif

int MakeReport( LPCTSTR strFileName, LPCTSTR strImageName)
{

COleVariant vTrue((short)TRUE), vFalse((short)false), vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
_Application oWordApp;
if(!oWordApp.CreateDispatch("Word.Application", NULL))
{
  return ERROR_CREATEFAIL;
}
Documents oDocs;
_Document oDoc;
Range  wordRange;
Tables  tables;
Table  table;
Cells  wordCells;
Cell  wordCell;
Columns  wordColumns;
Column  wordColumn;

try{

  oDocs = oWordApp.GetDocuments();
  oDoc = oDocs.Add(vOpt, vOpt, vOpt, vOpt);
  Selection oSel;
  oSel = oWordApp.GetSelection();
  tables = oDoc.GetTables();
  wordRange = oSel.GetRange();

  // 创建表格
  table = tables.Add(wordRange, 3, 10, vOpt, vOpt);
  table.SetAllowAutoFit(false);
  wordColumns = table.GetColumns();

  // 合并第一列
  wordColumn = wordColumns.Item(1);
  wordColumn.SetWidth(100);
  wordCells = wordColumn.GetCells();
  wordCells.Merge();
  wordRange.SetOrientation(1);
  wordCells.SetVerticalAlignment(1);
  wordRange.SetText("第一列");

  // 合并三组标题
  /* ------------------------------- */
  wordCell = table.Cell(1, 2);
  wordRange = wordCell.GetRange();
  wordRange.SetText("A");
  int iStart = wordRange.GetStart();
  wordCell = table.Cell(1, 4);
  wordRange = wordCell.GetRange();
  int iEnd = wordRange.GetEnd();
  wordRange.SetStart(iStart);
  wordRange.SetEnd(iEnd);
  wordCells = wordRange.GetCells();
  wordCells.Merge();

  wordCell = table.Cell(1, 3);                     //第二次合并时，前边已经只有两列了，所以从第三列开始
  wordRange = wordCell.GetRange();
  wordRange.SetText("B");
  iStart = wordRange.GetStart();
  wordCell = table.Cell(1, 5);
  wordRange = wordCell.GetRange();
  iEnd = wordRange.GetEnd();
  wordRange.SetStart(iStart);
  wordRange.SetEnd(iEnd);
  wordCells = wordRange.GetCells();
  wordCells.Merge();

  wordCell = table.Cell(1, 4);
  wordRange = wordCell.GetRange();
  wordRange.SetText("C");
  iStart = wordRange.GetStart();
  wordCell = table.Cell(1, 6);
  wordRange = wordCell.GetRange();
  iEnd = wordRange.GetEnd();
  wordRange.SetStart(iStart);
  wordRange.SetEnd(iEnd);
  wordCells = wordRange.GetCells();
  wordCells.Merge();

/* ------------------------------- */

// 写入数据
...

///

  // 插入图片
  Selection sel = oWordApp.GetSelection();
  sel.EndKey(COleVariant((short)6), COleVariant((short)0));
  sel.TypeParagraph();
  wordRange = sel.GetRange();
  InlineShapes iss = wordRange.GetInlineShapes();
   iss.AddPicture(strImageName, vFalse, vTrue, vOpt);

_Document oActiveDoc;
oActiveDoc = oWordApp.GetActiveDocument();

  oActiveDoc.SaveAs(COleVariant(strFileName), COleVariant((short)0),
        vFalse, COleVariant(""), vTrue, COleVariant(""),
      vFalse, vFalse, vFalse, vFalse, vFalse,vFalse,vFalse,vFalse,vFalse,vFalse);

}
catch(CException *e)
{
  e->ReportError();
  oWordApp.Quit(vFalse, vFalse, vFalse);
  return ERROR_WRITEFAIL;
}
oWordApp.Quit(vOpt, vOpt, vOpt);
return ERROR_SUCESS;
}