爱华网VC操作Word书签模板
一 制作模板
1 新建一个文档，设置文档内容。对于循环的部分，建议放到表格内，这样容易定位、选择、复制、粘贴。
2 将鼠标定位到要插入书签的位置，从菜单上，“插入”->“书签”，弹出对话框，输入书签名，点击“添加”按钮。
插入以下书签：order_num，报告日期_，报表模板__，name，age，结论__
其中，报表模板__，用于定位模板表格。可有可无，没有时，默认表格1。
完成后，所有书签的名称和位置如下图所示：
3 保存模板，比如“word书签模板.doc”
二 添加word 类型库
通过类向导MFC ClassWizard，从菜单上View->ClassWizade，打开ClassWizade窗口，选择Add Class->From a typelibrary...，，浏览找到office 2003安装路径下的msword.olb文件，例如："C:ProgramFilesMicrosoft OfficeOFFICE11MSWORD.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 : publicCOleDispatchDriver
{
public:
_Application(){}// Calls COleDispatchDriverdefault 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="",CStringstrText="",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,CStringstrText,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 = newint[nameCellCount];//名称单元格所在的行
int* nameCellColumn = newint[nameCellCount];//名称单元格所在的列
CString * nameCellTag = newCString[nameCellCount];//某个命名单元格的常规地址 ，比如 $A$1 --> A
CString * nameCellName = newCString[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 inwh.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();
inttable_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.Namenn inxlMain.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"
//字体颜色
#defineWD_BLACK0
#defineWD_RED255
#defineWD_BLUE16711680
//对齐方式
#defineWD_LEFT0
#defineWD_CENTER1
#defineWD_RIGHT2
#defineWD_JUSTIFY3
#define WD_DISTRIBUTE 4
//边框方位
#defineWD_DIAGONAL_DOWN-7
#defineWD_DIAGONAL_UP-8
#defineWD_EDGE_BOTTOM-3
#defineWD_EDGE_LEFT-2
#defineWD_EDGE_RIGHT-4
#defineWD_EDGE_TOP-1
#defineWD_INSIDE_HORIZONTAL-5
#defineWD_INSIDE_VERTICAL-6
//边框类型
#defineWD_LINESTYLE_NONE0
#defineWD_LINESTYLE_SINGLE1
#defineWD_LINESTYLE_DOT2
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, longlRight = 0, long lDown = 0);
//全选
void GetWholeStory();
//文件路径strFn是否存在，bDir判定是否包含文件名
BOOL IsFileExist(const CString &strFn, BOOLbDir);
//向行首移动光标
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, longlCol, 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);
voidSetTableColumnWidth(float fNewValue);
void SetTableBorderLine(long lPosition, longlBorderLineStyle = 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);
returnFALSE;
}
}
LPDISPATCHlpDisp = m_application.GetDocuments();
m_documents.AttachDispatch(lpDisp);
COleVariantcovOptional((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);
returnFALSE;
}
}
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);
returnFALSE;
}
}
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)
{
returnFALSE;
}
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, BOOLbDir)
{
HANDLEhandle;
LPWIN32_FIND_DATA lpFindFileData = newWIN32_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, longlDown)
{
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)
{
Bookmarksbookmarks = m_document.GetBookmarks();
bookmarks.Add(strName,&_variant_t(m_selection.GetRange()));
bookmarks.ReleaseDispatch();
}
BOOL WordMain::GotoBookmark(const CString&strBookmarkName)
{
Bookmarksbookmarks = 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)
{
Bookmarksbookmarks=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, floatlWidth, float lHeight)
{
if(!IsFileExist(strFileName, FALSE))
{
AfxMessageBox(strFileName+ "要插入的图片不存在!");
return FALSE;
}
//Shapesshapes = m_document.GetShapes();
InlineShapesinlineShapes = 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)
{
Tablestables = 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()
{
Tablestables = m_document.GetTables();
long lTalbesCount = tables.GetCount();
tables.ReleaseDispatch();
return lTalbesCount;
}
void WordMain::SelectTable(long lIndex)
{
Tablestables = 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, longlBorderLineStyle)
{
Borders borders = m_selection.GetBorders();
Border border = borders.Item(lPosition);
border.SetLineStyle(lBorderLineStyle);
border.ReleaseDispatch();
borders.ReleaseDispatch();
}
void WordMain::PageSet(const MYPAGESET &pageSet)
{
PageSetuppgSetup = 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;
}
