VC操作Word书签模板

(2015-05-15 13:52:00)

标签： vc操作word 书签模板

分类： 代码天地

VC操作Word书签模板

一 制作模板
 
1 新建一个文档，设置文档内容。对于循环的部分，建议放到表格内，这样容易定位、选择、复制、粘贴。
2 将鼠标定位到要插入书签的位置，从菜单上，“插入”->“书签”，弹出对话框，输入书签名，点击“添加”按钮。
 

插入以下书签：order_num，报告日期_，报表模板__，name，age，结论__
 其中，报表模板__，用于定位模板表格。可有可无，没有时，默认表格1。

完成后，所有书签的名称和位置如下图所示：

3 保存模板，比如“word书签模板.doc”

二 添加word 类型库

通过类向导MFC ClassWizard，从菜单上 View->ClassWizade，打开ClassWizade窗口，选择Add Class->From a type library...，，浏览找到office 2003安装路径下的msword.olb文件，例如："C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB"，然后选择以下类，这些类形成文件 msword.h和msword.cpp，并自动加入到工程中。

其中必须的：
_Application,Documents,_Document ,Selection,
我这里用到的：
 Tables,Table,Rows,Row,Columns,Column,Cells,Cell,Bookmarks,Bookmark,Range,
也可能用到的：
 Borders,Border,Window,_ParagraphFormat,Shapes,
 PageSetup,Shape,InlineShapes,InlineShape,Fields,View,_Font

三 为了操作简单，基于msword.h 和  msword.cpp，再次封装成一个类对应wordWork.h 和 wordWork.cpp，并加入到工程中。其内容附加到后面附录部分。
另外，由于多个类都有table,row等等，为了区别起见，将类放到命名空间内加以区别，方法如下：

1 头文件msword.h中将类放到命名空间内
namespace ms_word//将整体放入命名空间
{
 class _Application : public COleDispatchDriver
 {
 public:
 _Application() {}  // Calls COleDispatchDriver default constructor
 .....
 };
 class Tables : public COleDispatchDriver
 {
 public:
 Tables() {}  // Calls COleDispatchDriver default constructor
 .....
 };

......
}//end namespace ms_word

2 实现文件msword.cpp内引入命名空间
#include "stdafx.h"
#include "msword.h"

using namespace ms_word;//引入命名空间

LPDISPATCH _Application::GetApplication()
{
 LPDISPATCH result;
 InvokeHelper(0x3e8, DISPATCH_PROPERTYGET, VT_DISPATCH, (void*)&result, NULL);
 return result;
}
long Tables::GetCount()
{
 long result;
 InvokeHelper(0x2, DISPATCH_PROPERTYGET, VT_I4, (void*)&result, NULL);
 return result;
}
........

3 在使用的文件内加入头文件，
#include "msword.h"
然后类名加入限定空间，即可加以区别
 ms_word::Tables m_tables;

四 编译执行
  在你的函数内调用这些方法，编译运行结果如下：

五 主要的代码如下：

1 添加word 类型库 MSWORD.OLB
  
2 在使用的程序中，加入以下语句
#include "wordWork.h"

char ch[90];
#define say(x) AfxMessageBox(x)

===== 1 主操作代码 ===

void wordTxtBookmark(WordMain wdMain,CString BookMark="",CString strText="",bool addLine=false,bool mulitLine=false)
{
 if ( BookMark !="" )
 {
     if (  !wdMain.GotoBookmark(BookMark) )  return;//没有书签就返回，不要写
 }
 if ( strText !="" )
 {
  if (mulitLine)
  {//前提条件是，本书签上面有一空行，否则影响上面行的位置
        //正序，插入多行
   wdMain.MoveUp(1);//移到书签的上面一行
   wdMain.EndKey();//移动到上面行的行尾
   wdMain.Enter(1);//打回车，加一行，相当于把书签下移一行，以便后面查到书签时已经下移
  }
  wdMain.GetRange(0, 0, 0, 0);//不要选择任何字符，否则会吃掉第一个字符
  wdMain.SetTextHAlignment(WD_LEFT);
  //wdMain.SetTableBorderLine(WD_EDGE_BOTTOM, WD_LINESTYLE_SINGLE);
  wdMain.SetItemText( strText);

}
 if (addLine)
 {//增加一个空白行,以便与上行分开
  wdMain.Enter(1);
 }
}

void wordPicText(WordMain wdMain,CString strPic,CString strText,bool addLine=true)
{

//picture
 BOOL bInsertPic;
 wdMain.Enter(1);//加一行
 wdMain.MoveUp(1);//再次回到上面，相当于插入一行，否则会向后错，吃掉后面的行

wdMain.SetTextHAlignment(WD_CENTER);//居中
 {
  bInsertPic = wdMain.InsertPicture(strPic, 404.5, 248.3); 
 }

//text
 if (strText!="")
 {
  wdMain.Enter(1);
  wdMain.GetRange(0, 0, 0, 0);//不要选择任何字符，否则会吃掉第一个字符
  wdMain.SetTextHAlignment(WD_CENTER);//居中
  wdMain.SetItemText( strText);
 } 
//add line 
 if (addLine)
 {//增加一个空白行,以便与上行分开
  wdMain.Enter(1);
  wdMain.Enter(1);///与后面的隔开

}

}

void SetNameCellValue(CString list[])
{
 COleVariant covTrue((short)TRUE), covFalse((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
 
 WordMain wdMain;CString strGet;
 MyFont wdFont;
 MyPageSet wdPageSet;
 CString doc_template_name,t_mc,docname;

docname.Format("c:\\i22i.doc");
 doc_template_name.Format("c:\\ii.doc" );

wdMain.Open(doc_template_name);
 wdMain.PageSet(wdPageSet);

// xlMain.SetVisible(TRUE);
 
 //(一) 这里设置表头的项目，比如报表日期
 //特别注意：为了容易起见，命名单元格的规则如下
 //1.1 开头处的命名单元格，以1个下划线结束，比如，报告日期_
 //1.2 中间循环命名单元格，就是正常的，与数据集的字段名一致为好
 //1.3 结尾处的命名单元格，以2个下划线结束，比如，合计__
 TRY
 {
  wordTxtBookmark( wdMain,"报告日期_","当天");

}
 CATCH_ALL(e)
 {
  
 }
 END_CATCH_ALL
  
  
 VARIANT vtIndex;
 Bookmarks bookmarks;
 Bookmark bookmark;
// Range name_range;
 Rows wdRows;
 Row wdRow;
 Columns wdCols;
 Cells wdCells;
 Cell wdCell;
 Tables tables;
 Table operTable;
 Range tmpRange;
 Range srcRange,desRange;
 Columns columns;
 //(二) 根据数据源的个数，设置重复变化的数据行组，
 //1 声明与命名单元格相关的变量和数组
 int min_Row = 65536, min_Col = 65536, max_Row = 0;
 CString min_Name = "";
 bookmarks=wdMain.m_document.GetBookmarks();
 int nameCellCount = bookmarks.GetCount();//wdMain.m_document.GetBookmarks();//获得命名单元格的总数
 int* nameCellRow = new int[nameCellCount];//名称单元格所在的行
 int* nameCellColumn = new int[nameCellCount];//名称单元格所在的列
 CString * nameCellTag = new CString[nameCellCount];//某个命名单元格的常规地址 ，比如 $A$1 --> A
 CString * nameCellName = new CString[nameCellCount];//某个命名单元格的自定义名称，比如 工资
 
 CString strName ,str;
 int nameCellIdx = 0;
 
 //读取不为空的区域的信息，包括已经使用的行数、列数、起始行从1开始、起始列从1开始
 long lStartRow,  lStartCol,  lRowNum,  lColNum;
 
 int hang_shu = lRowNum;
 int lie_shu =lColNum;
 int used_first_col = lStartCol;
 int used_last_col = lStartCol+lColNum-1;

int row1,col1,row2;

//2 寻找所有命名的单元格，并找到行号最小者，以便在它之前插入循环行
 for (int k = 0; k < nameCellCount; k++)
 {
  vtIndex.vt = VT_I4;
  vtIndex.lVal = k+1;// 注意，从1开始，不是0
  bookmark=bookmarks.Item(&vtIndex);

strName=bookmark.GetName();//.GetNameLocal();
  str = strName.Mid(strName.GetLength()-1,1);
  if (str == "_")
  {
   continue;//如果第一个字符为下划线，则认为是固定命名单元格，不是命名的循环单元格
  }
  TRY
  {
   
   tmpRange=bookmark.GetRange();
   //获得书签在表格中的行列号
   wdCells=tmpRange.GetCells();
   wdCell=wdCells.Item(1);
   
   row1=wdCell.GetRowIndex();
   col1=wdCell.GetColumnIndex();
   
   
   nameCellColumn[nameCellIdx] = col1;
   nameCellRow[nameCellIdx] = row1;
   nameCellName[nameCellIdx] = strName;
   
   nameCellTag[nameCellIdx] = " ";//strName.Mid(1,strName.Find("$",1)-1);//$A$1--> A
    
   if (min_Row > nameCellRow[nameCellIdx])
   {
    min_Row = nameCellRow[nameCellIdx];//最小的行号
    min_Col = nameCellColumn[nameCellIdx];
    min_Name = nameCellName[nameCellIdx];
    
   }
   if (max_Row < nameCellRow[nameCellIdx]) max_Row = nameCellRow[nameCellIdx]; ;//最大行号
   nameCellIdx++;//真实的循环的命名单元格序号
  }
  CATCH_ALL(e)
  {
   
  }
  END_CATCH_ALL
  
 }
 nameCellCount = nameCellIdx;//实际要处理的循环的命名单元格数目
 int loopRow = max_Row - min_Row + 1;//一次循环的函数

//3 也可以使用 //foreach ( Word.Bookmark bk in wh.wordDoc.Bookmarks)MessageBox.Show(bk.Name);

// 方法1 通常使用第一个表来作为模板表
 tables = wdMain.m_document.GetTables();
 operTable =tables.Item(1);
 // 方法2 使用一个书签来标志模板表
 TRY
 {//使用一个特殊的标签 table_bookmark_template_
   wdMain.GotoBookmark("报表模板__");//
   tables=wdMain.m_selection.GetTables();
  operTable = tables.Item(1);//tmpRange.Tables[1];//得到该书签所在的表，以它为报表的循环模板
 }
 CATCH_ALL(e)
 {
  
 }
 END_CATCH_ALL
 
 
 int template_start = 0;
 int template_end = 0;
 columns=operTable.GetColumns();
 int table_columns=columns.GetCount();//Columns.Count;//本表格的烈数
 
 wdCell= operTable.Cell(min_Row, 1);
 tmpRange = wdCell.GetRange();
 template_start =tmpRange.GetStart();//循环行组的第一行，第一个单元格，到文档开头的距离

wdCell= operTable.Cell(max_Row+1, 1);//Cell(max_Row, table_columns) 将少一列
 tmpRange = wdCell.GetRange();
 template_end =tmpRange.GetStart();//循环行组的最后行，最后一个单元格，到文档开头的距离

wdCell= operTable.Cell(1, 1);
 tmpRange = wdCell.GetRange();
 srcRange = tmpRange;//operTable.Cell(1, 1).Range;
 desRange = tmpRange;//operTable.Cell(1, 1).Range;

//3 也可以使用 foreach ( Excel.Name  nn in xlMain.m_application.ActiveWorkbook.Names)MessageBox.Show(nn.Name);
 int iidex=0;

//4 根据数据集的实际数据行数，查找命名单元格，循环插入数据
 int cur_row = min_Row;
 for (int dt_row_idx = 0; dt_row_idx < 2; dt_row_idx++)//dt.Rows.Count
 {//循环实际的数据行数2，修改为实际的变量
  
  //4.1 找到行号最小的命名单元格，以它来定位
  wdMain.GotoBookmark(min_Name);//
  tmpRange=wdMain.m_selection.GetRange();

//4.2 //插入行重复摸板行组的行，使得所有命名单元格都向后移，以便下次循环查找定位时使用
  for (int j = 0; j < loopRow; j++)
  {//插入需要重复循环的摸板行数loopRow
   // range2=name_range.GetEntireRow();
   // range2.Insert(COleVariant((long) 1),COleVariant((long) true));
  }
  //4.3 定位到摸板行组
  wdMain.GotoBookmark(min_Name);//
  tmpRange=wdMain.m_selection.GetRange();

wdCells=tmpRange.GetCells();
  wdCell=wdCells.Item(1);
  row1=wdCell.GetRowIndex();
  //col1=cell.GetColumnIndex();
  row2 = row1 + loopRow - 1; //摸板行组的最后一行

wdCell= operTable.Cell(row1, 1);
  tmpRange = wdCell.GetRange();
  template_start =tmpRange.GetStart();//循环行组的第一行，第一个单元格，到文档开头的距离

//template_end = operTable.Cell(row2, table_columns).Range.Start;//这样少一列
  wdCell= operTable.Cell(row2+1, 1);//到下一行，第一个单元格
  tmpRange = wdCell.GetRange();
  template_end =tmpRange.GetStart();//循环行组的第一行，第一个单元格，到文档开头的距离

//4.4 复制模板整体多行组，固定的摸板的格式和相关的文字说明，也可一个一个单元格复制
  srcRange.SetRange(template_start, template_end);//整体多行组复制摸板行组
  srcRange.Copy();

//4.5 定位到新加入行的第一个单元格内
  //row1 = row1 - loopRow;//向上回退到新加入的行组
  //row2 = row2 - loopRow;
  
  //4.6 粘贴整体多行组，固定的摸板的格式和相关的文字说明
  //desRange = operTable.Rows[row1].Range;//整体多行组粘贴摸板行组
  wdRows = operTable.GetRows();//.Rows[row1].Range;//整体多行组粘贴摸板行组
  wdRow=wdRows.Item(row1);
  desRange = wdRow.GetRange();
  desRange.Paste();

//方法2  一行一行复制粘贴，代码很少
 // for (int j = 0; j < loopRow; j++)
 // {//插入需要重复循环的行数loopRow的空行，一行一行的复制粘贴
 //  //复制模板行
 //  wdRows = operTable.GetRows();
 //  wdRow=wdRows.Item(cur_row + j + j);// 所以，粘贴几行，就要多加几行，j+j
 //  srcRange = wdRow.GetRange();
 //  srcRange.Copy();

//  //粘贴到目标行
 //  wdRows = operTable.GetRows();
 //  wdRow=wdRows.Item(cur_row + j );//因为，新粘贴的行 在原来模板行的上面
 //  desRange = wdRow.GetRange();
 //  desRange.Paste();
 // }
 // cur_row += loopRow;

//4.7 动态的数值加入
  for (int name_cell_idx = 0; name_cell_idx < nameCellCount; name_cell_idx++)
  {//循环命名单元格数量
   str.Format("%s%d", nameCellTag[name_cell_idx], nameCellRow[name_cell_idx]);//为了简单这里用其列名和行号作为内容
   if (nameCellName[name_cell_idx] == "order_num")
   {
    str.Format("%d", dt_row_idx + 1);
   }
   else
   {
    str=list[ iidex++];
    //str= dt.Rows[dt_row_idx][nameCellName[name_cell_idx]].ToString();
    //这里的数据，来自实际的数据集??????????????????????????????
    
   }
   wdCell=operTable.Cell(nameCellRow[name_cell_idx], nameCellColumn[name_cell_idx]);//.Range.Text = str;
   tmpRange=wdCell.GetRange();
   tmpRange.SetText(str);
  
   nameCellRow[name_cell_idx] += loopRow;//行号增加重复行的个数loopRow，准备下个循环，定位行使用
  }
  
 }

// 5 删除重复的摸板行，不再需要

wdMain.GotoBookmark(min_Name);//
 tmpRange=wdMain.m_selection.GetRange();
 
 wdCells=tmpRange.GetCells();
 wdCell=wdCells.Item(1);
 row1=wdCell.GetRowIndex();
 row2 = row1 + loopRow - 1; //摸板行组的最后一行
 //方法1  一行一行地删除
// for (int dd = 0; dd < loopRow; dd++)
// {
//  wdMain.DeleteRows();
// }
 
 //方法2  多行组一次删除
 wdCell= operTable.Cell(row1, 1);
 tmpRange = wdCell.GetRange();
 template_start =tmpRange.GetStart();//循环行组的第一行，第一个单元格，到文档开头的距离
 //template_end = operTable.Cell(row2, table_columns).Range.Start;//这样少一列
 wdCell= operTable.Cell(row2+1, 1);//到下一行，第一个单元格
 tmpRange = wdCell.GetRange();
 template_end =tmpRange.GetStart();//循环行组的第一行，第一个单元格，到文档开头的距离
 
 srcRange.SetRange(template_start, template_end);//整体多行组复制摸板行组
 srcRange.Cut();
 //(三) 清除剪贴板，避免Excel关闭工作簿的时候出现提示
 //1 删除剪切板的内容，防止退出提示
 //xlMain.m_application.CutCopyMode = flase;//Excel.XlCutCopyMode.xlCut;//删除剪切板的内容，防止退出提示
 //2 直接用range("A1").copy就行，不必把剪贴板都清空，这会影响其他进程的工作的
 wdCell= operTable.Cell(1, 1);
 tmpRange = wdCell.GetRange();
 tmpRange.Copy();

//(四) 结尾方面的工作
 TRY
 {
  wordTxtBookmark( wdMain,"结论__","成功完成");
 }
 CATCH_ALL(e)
 {
  
 }
 END_CATCH_ALL
  
  
  
 //(五) 另存文件
  
// CString  docname;
// docname.Format("%s\\%s.xls","c:","12");//g_save_path,end_serial);  //路径
 wdMain.SaveAs(docname);

//(六) 释放
 bookmarks.ReleaseDispatch();
 bookmark.ReleaseDispatch();
 wdRows.ReleaseDispatch();
 wdRow.ReleaseDispatch();
 wdCols.ReleaseDispatch();
 wdCells.ReleaseDispatch();
 wdCell.ReleaseDispatch();
 tables.ReleaseDispatch();
 operTable.ReleaseDispatch();
 tmpRange.ReleaseDispatch();
 srcRange.ReleaseDispatch();
 desRange.ReleaseDispatch();
 columns.ReleaseDispatch();
 
 delete []nameCellRow;
 delete []nameCellColumn;
 delete []nameCellTag;
 delete []nameCellName;

wdMain.Close();
// say("ok");
 return;
 }

====2==封装的word操作类=====

1

//文件名称：wordWork.h

#include
#include "msword.h"

//字体颜色
#define WD_BLACK       0
#define WD_RED         255
#define WD_BLUE        16711680

//对齐方式
#define WD_LEFT        0
#define WD_CENTER      1
#define WD_RIGHT       2
#define WD_JUSTIFY     3
#define WD_DISTRIBUTE  4

//边框方位
#define WD_DIAGONAL_DOWN         -7
#define WD_DIAGONAL_UP           -8
#define WD_EDGE_BOTTOM              -3
#define WD_EDGE_LEFT             -2
#define WD_EDGE_RIGHT            -4
#define WD_EDGE_TOP              -1
#define WD_INSIDE_HORIZONTAL     -5
#define WD_INSIDE_VERTICAL       -6

//边框类型
#define WD_LINESTYLE_NONE        0
#define WD_LINESTYLE_SINGLE      1
#define WD_LINESTYLE_DOT         2

typedef struct MyFont
{
 //字体名
 CString strName;
 //字体大小
 float fSize;
 //字体颜色
 long lColor;
 //粗体
 BOOL bBold;
 //斜体
 BOOL bItalic;
 //下划线
 BOOL bUnderLine;
    MyFont(){fSize = 12; lColor = WD_BLACK; bBold = FALSE; bItalic = FALSE; bUnderLine = FALSE;}
}MYFONT;

typedef struct MyPageSet
{
 //页边距，单位为厘米
 //上
 float fTopMargin;
 //下
 float fBottomMargin;
 //左
 float fLeftMargin;
 //右
 float fRightMargin;
 MyPageSet() {fTopMargin = fBottomMargin = (float)67.0; fLeftMargin = fRightMargin = (float)57.0;}
}MYPAGESET;

class WordMain
{
private:
public:
 _Application m_application;
 Documents m_documents;
 _Document m_document;
 Window m_window;
 View m_view;
 Selection m_selection;
 Tables m_tables;

public:
 //构造函数
 WordMain();
    //析构函数
 ~WordMain();
 //关闭Word应用程序
 void Close();
 //保存
 void Save();
 //另存为strFileName包含路径名和文件名
 BOOL SaveAs(const CString &strFileName);
 //打开
 BOOL Open();
 //打开已存在fileName.doc或.dot文件
 BOOL Open(const CString &strFileName);
 //根据模板Template.dot新建
 BOOL New(const CString &strTemplateName);
 //插入表格
 void InsertTable(long lRow, long lCol);
 //选择区域（光标上下左右移动数量）
 void GetRange(long lLeft = 0, long lUp = 0, long lRight = 0, long lDown = 0);
 //全选
 void GetWholeStory();
 //文件路径strFn是否存在，bDir判定是否包含文件名
 BOOL IsFileExist(const CString &strFn, BOOL bDir);
 //向行首移动光标
 void HomeKey();
 //向行尾移动光标
 void EndKey();
 //向上移动光标
 void MoveUp(long lCount);
 //向下移动光标
 void MoveLeft(long lCount);
 //向左移动光标
 void MoveRight(long lCount);
 //向右移动光标
 void MoveDown(long lCount);
 //BackSpace键删除选中区域,lCount为退格数
 void BackSpace(long lCount);
 //Delete键删除选中区域
 void Delete();
 //输入文本
 void SetItemText(const CString &strText);
 //Enter键:lCount=回车次数
 void Enter(long lCount);
 //字体设置
 void SetFont(const MYFONT &myFont);
 //文本对齐方式（即水平对齐方式）
 void SetTextHAlignment(long lHAlignment);
 //表格内文本垂直对齐方式
 void SetCellVAlignment(long lVAlignment);
 //插入书签
 void InsertBookmark(const CString &strName);
 //书签定位
 BOOL GotoBookmark(const CString &strBookmarkName);
 //得到所有的书签名集合
 void nameBookmarks(WordMain wdMain,CString &strSet);
 //插入图片
 BOOL InsertPicture(const CString &strFileName, float lWidth, float lHeight);
 //对文档中的第lIndex个表格写数据，表格的行列为lRow、lCol
 void SetTableText(long lIndex, long lRow, long lCol, const CString &strText);
 //获得文档中表格数量
 long GetTablesCount();
 //选中文档中指定的第lIndex个表格
 void SelectTable(long lIndex);
 //获得光标所在当前页码
 long GetPage();
 //指定的第lIndex个表格设置标题行换页后重复显示
 void SetHeadingFormat(long lIndex, BOOL bShow = FALSE);
 //获得表格列数，第lIndex个表格
 long GetTableColumCount(long lIndex);
 //获得表格行数，第lIndex个表格
 long GetTableRowCount(long lIndex);
    void SetTableColumnWidth(float fNewValue);
 void SetTableBorderLine(long lPosition, long lBorderLineStyle = WD_LINESTYLE_SINGLE);
 void PageSet(const MYPAGESET &pageSet);  
 void SetTableHAlignment(long lVAlignment);
 void UpdateDomain();
 void Copy();
 void Cut();
 void Paste();
 void DeleteRows();
 void InsertRowsAbove(long lRowCount);
 BOOL ShowBookMark(BOOL bShow = FALSE);
};

2

//文件名称：wordWork.cpp

#include "stdafx.h"
#include "wordWork.h"
#include

WordMain::WordMain()
{

}

WordMain::~WordMain()
{

}

void WordMain::Close()
{
    m_selection.ReleaseDispatch();
 m_window.ReleaseDispatch();
 m_document.ReleaseDispatch();
 m_documents.ReleaseDispatch();
 m_document.Close(&vtMissing, &vtMissing, &vtMissing);
 m_application.Quit(&vtMissing, &vtMissing, &vtMissing);
 m_application.ReleaseDispatch();
// CoUninitialize();
}

BOOL WordMain::Open()
{
 if (FAILED(CoInitialize(NULL)))
 {
  AfxMessageBox("初始化COM支持库失败!");
  return FALSE;
 }
 if(m_application.m_lpDispatch == NULL)
 {
  if (!m_application.CreateDispatch("Word.Application", NULL))
  {
   AfxMessageBox("Word初始化时出错,没有安装Word或安装不正确!", MB_OK | MB_ICONERROR);
   return FALSE;
  }
 }
    LPDISPATCH lpDisp = m_application.GetDocuments();
 m_documents.AttachDispatch(lpDisp);
 COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
 lpDisp = m_documents.Add(&covOptional, &vtMissing, &vtMissing, &vtMissing);
    m_document.AttachDispatch(lpDisp);
 lpDisp = m_application.GetActiveWindow();
    m_window.AttachDispatch(lpDisp);
 lpDisp = m_window.GetSelection();
 m_selection.AttachDispatch(lpDisp);
 return TRUE;
}

BOOL WordMain::Open(const CString &strFileName)
{
 if (FAILED(CoInitialize(NULL)))
 {
  AfxMessageBox("初始化COM支持库失败!");
  return FALSE;
 }
 if(m_application.m_lpDispatch == NULL)
 {
  if (!m_application.CreateDispatch("Word.Application", NULL))
  {
   AfxMessageBox("Word初始化时出错,没有安装Word或安装不正确!", MB_OK | MB_ICONERROR);
   return FALSE;
  }
 }
 LPDISPATCH lpDisp = m_application.GetDocuments();
 m_documents.AttachDispatch(lpDisp);
 lpDisp = m_documents.Open(&(_variant_t)strFileName, &vtMissing, &vtMissing, &vtMissing,
  &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing,
  &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing);
    m_document.AttachDispatch(lpDisp);
 lpDisp = m_application.GetActiveWindow();
    m_window.AttachDispatch(lpDisp);
 lpDisp = m_window.GetSelection();
 m_selection.AttachDispatch(lpDisp);
 return TRUE;
}

BOOL WordMain::New(const CString &strTemplateName)
{
 if (FAILED(CoInitialize(NULL)))
 {
  AfxMessageBox("初始化COM支持库失败!");
  return FALSE;
 }
 if(m_application.m_lpDispatch == NULL)
 {
  if (!m_application.CreateDispatch("Word.Application", NULL))
  {
   AfxMessageBox("Word初始化时出错,没有安装Word或安装不正确!", MB_OK | MB_ICONERROR);
   return FALSE;
  }
 }
 LPDISPATCH lpDisp = m_application.GetDocuments();
 m_documents.AttachDispatch(lpDisp);
    lpDisp = m_documents.Add(&(_variant_t)strTemplateName, &vtMissing, &vtMissing, &vtMissing);
    m_document.AttachDispatch(lpDisp); 
 lpDisp = m_application.GetActiveWindow();
    m_window.AttachDispatch(lpDisp);
 lpDisp = m_window.GetSelection();
 m_selection.AttachDispatch(lpDisp);
 return TRUE;
}

BOOL WordMain::SaveAs(const CString &strFileName)
{
    if (IsFileExist(strFileName, FALSE))
 {
  CString str, str1;
  long i = strFileName.ReverseFind('\\');
  assert(i != -1);
  long j = strFileName.ReverseFind('.');
  assert(j != -1);
  str = strFileName.Mid(i + 1, j - i - 1);
  str1 = strFileName.Mid(i + 1);
  HWND hWnd = ::FindWindow(0, str + " - Microsoft Word");
  HWND hWnd1 = ::FindWindow(0, str1 + " - Microsoft Word");
  if (hWnd != NULL || hWnd1 != NULL)
  {   
   return FALSE;
 
  }

while(!DeleteFile(strFileName))
  {
      Sleep(1);
  }
 }
 m_document.SaveAs(&_variant_t(strFileName), &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing,
  &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing, &vtMissing);
 return TRUE;
}

void WordMain::Save()
{
    m_document.Save();
}

BOOL WordMain::IsFileExist(const CString &strFn, BOOL bDir)
{
    HANDLE handle;
 LPWIN32_FIND_DATA lpFindFileData = new WIN32_FIND_DATA;
 BOOL bFound = FALSE;
 if (lpFindFileData)
 {
  handle = FindFirstFile(strFn, lpFindFileData);
  bFound = (handle != INVALID_HANDLE_VALUE);
  if(bFound)
  {
   if(bDir)
   {
    bFound = lpFindFileData->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY;
   }
   FindClose(handle);
  }
  delete lpFindFileData;
 }
 return bFound;
}

void WordMain::InsertTable(long lRow, long lCol)
{

m_tables = m_document.GetTables();
 m_tables.Add(m_selection.GetRange(), lRow, lCol, &vtMissing, &vtMissing);//m_selection.GetRange()为光标位置
 m_selection.SetStyle(&_variant_t("网格型"));
}

void WordMain::GetRange(long lLeft, long lUp, long lRight, long lDown)
{
 long Extend = 1;//选中标志
 m_selection.MoveLeft(&vtMissing, &_variant_t(lLeft), &_variant_t(Extend));
 m_selection.MoveUp(&vtMissing, &_variant_t(lUp), &_variant_t(Extend));
 m_selection.MoveRight(&vtMissing, &_variant_t(lRight), &_variant_t(Extend));
 m_selection.MoveDown(&vtMissing, &_variant_t(lDown), &_variant_t(Extend));
}

void WordMain::GetWholeStory()
{
    m_selection.WholeStory();
}
void WordMain::HomeKey()
{
 m_selection.HomeKey(&vtMissing,  &vtMissing);
}
void WordMain::EndKey()
{
 m_selection.EndKey(&vtMissing,  &vtMissing);
}

void WordMain::MoveUp(long lCount)
{
 m_selection.MoveUp(&vtMissing, &_variant_t(lCount), &vtMissing);
}

void WordMain::MoveLeft(long lCount)
{
 m_selection.MoveLeft(&vtMissing, &_variant_t(lCount), &vtMissing);
}

void WordMain::MoveRight(long lCount)
{
 m_selection.MoveRight(&vtMissing, &_variant_t(lCount), &vtMissing);
}

void WordMain::MoveDown(long lCount)
{
 m_selection.MoveDown(&vtMissing, &_variant_t(lCount), &vtMissing);
}

void WordMain::BackSpace(long lCount)
{
 for (short i = 0; i
 {
  m_selection.TypeBackspace();
 }
}

void WordMain::Delete()
{
    m_selection.Delete(&vtMissing, &vtMissing);
}

void WordMain::SetItemText(const CString &strText)
{
    m_selection.TypeText(strText);
}

void WordMain::Enter(long lCount)
{
 for (short i = 0; i
 {
        m_selection.TypeParagraph();
 }
}

void WordMain::SetFont(const MYFONT &myFont)
{
 _Font font = m_selection.GetFont();
 font.SetName(myFont.strName);
 font.SetColor(myFont.lColor);
 font.SetSize(myFont.fSize);
 font.SetBold(myFont.bBold);
 font.SetItalic(myFont.bItalic);
 font.SetUnderline(myFont.bUnderLine);
 font.ReleaseDispatch();
}

void WordMain::SetTextHAlignment(long lHAlignment)
{
 _ParagraphFormat paraFormat = m_selection.GetParagraphFormat();
 paraFormat.SetAlignment(lHAlignment);
    paraFormat.ReleaseDispatch();
}

void WordMain::SetCellVAlignment(long lVAlignment)
{
    Cells cells = m_selection.GetCells();
 cells.SetVerticalAlignment(lVAlignment);
    cells.ReleaseDispatch();
}

void WordMain::InsertBookmark(const CString &strName)
{
    Bookmarks bookmarks = m_document.GetBookmarks();
 bookmarks.Add(strName, &_variant_t(m_selection.GetRange()));
 bookmarks.ReleaseDispatch();
}

BOOL WordMain::GotoBookmark(const CString &strBookmarkName)
{
    Bookmarks bookmarks = m_document.GetBookmarks();
 if (!bookmarks.Exists(strBookmarkName))
 {
  return FALSE;
 }
 short GoToBookmark = -1;
    m_selection.GoTo(&_variant_t(GoToBookmark), &vtMissing, &vtMissing, &_variant_t(strBookmarkName));
 bookmarks.ReleaseDispatch();
 return TRUE;
}
void WordMain::nameBookmarks(WordMain wdMain,CString &strSet)
{
 Bookmarks bookmarks=wdMain.m_document.GetBookmarks();
 Bookmark bookmark;
 int bksCount=bookmarks.GetCount();
 CString str;
 str="";
 VARIANT vtIndex;
 for (int k=0;k
 {
  vtIndex.vt = VT_I4;
  vtIndex.lVal = k+1;// 注意，从1开始，不是0
  bookmark=bookmarks.Item(&vtIndex);
  str=bookmark.GetName()+"|";
  strSet +=str ;
 
 }//for (for k=0;k

bookmarks.ReleaseDispatch();
 bookmark.ReleaseDispatch();
}
BOOL WordMain::InsertPicture(const CString &strFileName, float lWidth, float lHeight)
{
    if (!IsFileExist(strFileName, FALSE))
 {

AfxMessageBox(strFileName+ " 要插入的图片不存在!");
  return FALSE;
 }
    //Shapes shapes = m_document.GetShapes();
    InlineShapes inlineShapes = m_selection.GetInlineShapes();
 inlineShapes.AddPicture(strFileName, &vtMissing, &vtMissing, &vtMissing);
 GetRange(1, 0, 0, 0);
 inlineShapes = m_selection.GetInlineShapes();
 InlineShape inlineShape = inlineShapes.Item(1);
 inlineShape.SetWidth(lWidth);
 inlineShape.SetHeight(lHeight);
 MoveRight(1);
 inlineShape.ReleaseDispatch();
 inlineShapes.ReleaseDispatch();
 return TRUE;
}

void WordMain::SetTableText(long lIndex, long lRow, long lCol, const CString &strText)
{
    Tables tables = m_document.GetTables();
 if (lIndex > tables.GetCount())
 {
  AfxMessageBox("试图将数据写入不存在的表格!");
  return;
 }
 Table table = tables.Item(lIndex);
 Cell cell =  table.Cell(lRow, lCol);
 cell.Select();
 m_selection.SetText(strText);
 cell.ReleaseDispatch();  
 table.ReleaseDispatch();
 tables.ReleaseDispatch();
}

long WordMain::GetTablesCount()
{
    Tables tables = m_document.GetTables();
 long lTalbesCount = tables.GetCount();
 tables.ReleaseDispatch();
 return lTalbesCount;
}

void WordMain::SelectTable(long lIndex)
{
    Tables tables = m_document.GetTables();
 Table table = tables.Item(lIndex);
    table.Select();
 table.ReleaseDispatch();
 tables.ReleaseDispatch();
}

long WordMain::GetPage()
{
    VARIANT vt = m_selection.GetInformation(1);

return vt.lVal;
}

void WordMain::SetHeadingFormat(long lIndex, BOOL bShow)
{
 if (bShow)
 {
  Tables tables = m_document.GetTables();
  Table table = tables.Item(lIndex);
  Cell cell = table.Cell(1, GetTableColumCount(lIndex));
  Row row = cell.GetRow();       
  row.SetHeadingFormat(9999998);
  row.ReleaseDispatch();
  cell.ReleaseDispatch();
        table.ReleaseDispatch();
  tables.ReleaseDispatch();
 }
}

long WordMain::GetTableColumCount(long lIndex)
{
 Tables tables = m_document.GetTables();
 Table table = tables.Item(lIndex);
 Columns columns = table.GetColumns();
 long lColumsCount = columns.GetCount();
 columns.ReleaseDispatch();
 table.ReleaseDispatch();
 tables.ReleaseDispatch();
 return lColumsCount;
}

long WordMain::GetTableRowCount(long lIndex)
{
 Tables tables = m_document.GetTables();
 Table table = tables.Item(lIndex);
 Rows rows = table.GetRows();
 long lRowCount = rows.GetCount();
 rows.ReleaseDispatch();
 table.ReleaseDispatch();
 tables.ReleaseDispatch();
 return lRowCount;
}

void WordMain::SetTableColumnWidth(float fNewValue)
{ 
 Columns columns = m_selection.GetColumns();
 columns.SetPreferredWidthType(3);
 columns.SetPreferredWidth(fNewValue);
 columns.ReleaseDispatch();
}
 
void WordMain::SetTableBorderLine(long lPosition, long lBorderLineStyle)
{
 Borders borders = m_selection.GetBorders();
 Border border = borders.Item(lPosition);
 border.SetLineStyle(lBorderLineStyle);
 border.ReleaseDispatch();
 borders.ReleaseDispatch();
}

void WordMain::PageSet(const MYPAGESET &pageSet)
{
    PageSetup pgSetup = m_document.GetPageSetup();
 pgSetup.SetTopMargin(pageSet.fTopMargin);
 pgSetup.SetBottomMargin(pageSet.fBottomMargin);
 pgSetup.SetLeftMargin(pageSet.fLeftMargin);
 pgSetup.SetRightMargin(pageSet.fRightMargin);
    pgSetup.ReleaseDispatch();
}

void WordMain::SetTableHAlignment(long lVAlignment)
{
 Tables tables = m_selection.GetTables();
 Table table = tables.Item(1);
 Rows rows = table.GetRows();
 rows.SetAlignment(lVAlignment);
 rows.ReleaseDispatch();
 table.ReleaseDispatch();
 tables.ReleaseDispatch();
}

void WordMain::UpdateDomain()
{
    m_selection.WholeStory();
 Fields fields = m_selection.GetFields();
 fields.Update();
}

void WordMain::Cut()
{
    m_selection.Cut();
}

void WordMain::Copy()
{
    m_selection.Copy();
}

void WordMain::Paste()
{
    m_selection.Paste();
}

void WordMain::DeleteRows()
{
 Rows rows = m_selection.GetRows();
 rows.Delete();
    rows.ReleaseDispatch();
}

void WordMain::InsertRowsAbove(long lRowCount)
{
 m_selection.InsertRowsAbove(&_variant_t(long(lRowCount)));
}

BOOL WordMain::ShowBookMark(BOOL bShow)
{
 m_view = m_window.GetView();
    m_view.SetShowBookmarks (bShow);
    m_view.ReleaseDispatch();
 return TRUE;