VC++ Word文档 自动化技术

VC++6.0向Word文件的指定位置上插入一张图片,需要用到nlineShapes类型的AddPicture方法。

在MSDN中,该方法的声明如下:

**************************************************************************

在文档中添加一幅图片。返回一个 Shape 对象,该对象代表图片,并将其添加至 InlineShapes 集合。

expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
expression      必需。该表达式返回一个 InlineShapes 对象。

FileName     String 类型,必需。图片的路径和文件名。

LinkToFile     Variant 类型,可选。如果为 True,则将图片链接到创建该对象的文件;如果为 False,则将图片作为该文件的独立副本。默认值是 False。

SaveWithDocument     Variant 类型,可选。如果为 True,则将链接的图片与文档一起保存。默认值是 False。

Range     Variant 类型,可选。图片置于文本中的位置。如果该区域未折叠,那么图片将覆盖此区域,否则插入图片。如果忽略此参数,则自动放置图片


**************************************************************************

 

根据该说明的定义,第四个参数Range是用来设置图片位于文本中的位置的。因此,我们可以利用该参数向某一指定位置插入图片。具体方法如下:

 

Selection sel=m_app.GetSelection();//获取文档的selection
InlineShapes inlineshapes = sel.GetInlineShapes();
inlineshapes.AddPicture("D://cjdz.bmp",COleVariant((short)FALSE),COleVariant((short)TRUE),&_variant_t(sel.GetRange()));//添加图片,并制定其位置为当前光标位置
inlineshapes.ReleaseDispatch();
sel.ReleaseDispatch();


注意上面第四个参数的转换方法,用到了_variant_t变量,使用此种方法可以将LPDISPATCH转换成VARIANT*类型

 

如此就可将图片直接插入到光标当前所在位置

 

 

网上关于办公软件自动化的资源较少,特此收集了一篇供大家学习参考。

(1)View.>Class Wizard一>Add Class⋯.>Form a type library.>Word对象库;Word对象库的位置一般在C:/Program Files\Microsoft Office\OFFICEll中,不同版本的Word对象库名称不同.本例用Word 2003为MSWOI①.OLB.
(2)在CSJSMSApp类中的成员函数Initlnstance()中对自动化操作进行初始化;
加入代码::CoInitialize(NULL);
或是if(!MxOleInit())
(
MxMessageBox(”初始化失败”);
return R6江SE;
)此步也可在3.1中的Setp 3中选择Automation而省去.
经过以上操作将在程序中出现许多Word中的类对象,可通过编程控制Word中的类对象实现Word自动化的各种操作.
3.3建立Word自动化应用程序
(1)在CSJSMSView类中声明要用到的类对象和变量,如下面代码(其余的在此处没列出):
——Application App;
Documents oDocs;
——Document oDoc;
Selection osel;
Paragraphs oParas;
Paragraph oPara;
Range oRange;
.—Font oFont;
Fields oFields;
Field oField;
(2)通过建立CSJSMSView类的成员函数OnWordautomation();
Resource.>Menu一>添加菜单项.>修改properties一>通过Class wizard添加函数.
(3)打开Word应用程序,并建立新的空文档;
if(!ApP.CreateDispatch(一T(”Word.Application”))) //启动Ⅵ,ord
{
MxMessageBox(_T(”你居然连0FFICE2003都没有安装!”));
)
else
{
ApP.Setvisible(TRUE); //设置Word为可见
ApP.SetWindowState(1); //设置Word为最大化
)
COleVariant covTrue((short)TRUE);
COleVariant covFalse((short)FAl5E);
COleVariant covOptional((10ng)DISP E—PARAMNOTFOUND,VT-ERROR);
oDocs=npp.GetDocuments();
oDocs.Add(covOptional,covOptional,covOptional,covOptional).
3.4写入内容
(1)标题、段落、字体格式的设置.标题为一单独段落,实现方法是用Selection类中的TypeText()加
载文字内容,用Paragraphs类中的SetAlignment()设置对齐方式,用Font类设置字体名称、大小、加粗、
颜色等属性,如:
oSel.TypeText(”轮式起重机桁架式臂架结构设计说明书”);

oSel.TypeParagraph();//另起一段
oSel.TypeText(”太原科技大学机电学院”);
oSel.TypeParagraph();
oParas=oDoc.GetParagraphs();
oPara=oParas.Item(1);
oPara.SetAlignment(1);
∥设置文本格式:0左对齐,1居中对齐,2右对齐oRange=oPara.GetRange();
oFont=oRange.GetFont();
oFont.SetSize(14);//表示字体的大小
oFont.SetColor(250);∥表示颜色
oFont.SetBold(1);//0表示是不加粗,1表示加粗
oRange.SetFont(oFont);
(2)插入日期和图片并设置图片格式.插入日期可以利用InsertDateTime()函数实现,其具体的时间
格式可以根据要求自行设置;插入图片可用AddPicture()函数,设置图片的大小和位置是通过把嵌入式
图形转换为Shape对象,利用Shape类对象的方法实现:
COleVariant vTime(”yyyy-肚dd:dddd”);∥时间格式可调整
oSel.InsertDateTime(vTime,covFalse,covOptional,covOptional,covOptional);∥插入当前时间
InlineShapes inlineshapes;
oRange=oSel.GetRange();
inlineshapes=orange.GetlnlineShapes();
COleVariant vRange;
vRange.vt=v,r-DISPATCH;
vRange.pdispVal=orange.rn lpDispatch;
inlineshapes.AddPicture(”D:\VC\Picture.bmp”,&covFalse,&covTrue,&vRange);
inlineshapes=oDoc.GetlnlineShapes();
inlineshape=inlineshapes.Item(1);
Shape oshapel=inlineshape.ConvertToShape();//嵌入式图形转换为Shape对象
oshapel.SetWidth(165);//设置宽度
oshapel.SetHeight(165);∥设置高度
oshapel.ConvertTolnlineShape();
(3)插入表格并对表格进行操作.对表格操作包括插入几行几列的表格,合并单元格,设置单元格的
属性与填写表格.表格也属于段落中的一部分,故对其调整左右居中和段落居中相同,也可以单独对其中
的某一行、某一列和某一单元格的属性进行设置:
oRange=oSel.GetRange();
Tables tabs=oDoc.GetTables();
Table tab=tabs.Add(oRange,9,6,&covFalse,&covTrue);//插入9行6列的表格
borders 5 tab.GetBorders();
borders.SetEnable(1);//显示表框
oRange=tab.GetRange();
oCells=oRange.GetCells();
oCells.SetVerticalAlignment(1);//表格中的文字上下居中
oRows=tab.GetRows();
oRow=oRows.Item(1);
oRange=oRow.GetRange():
oCells=oRange.Geteells();

oCells.Merge();∥把第一行所有的列合为一列
oCell=tab.Cell(2,1);∥合并第一列中的第二行与第三行
oCell.Merge(tab.Cell(3,1));
tabs=oDoc.GetTables();∥填写表格内容
tab=tabs.Item(1);
oCell=tab.Cell(1,1);
oRange=oCell.Get_Range();
oRange.InsertAfter(”原始参数”);
(4)光标的移动方式.在产品设计说明书编写过程中,通过Selection类对象的方法对光标进行上下,
左右等移动,实现对光标的定位功能:
oSel.MoveRight(C0leVariant((short)1),COleVariant((short)1),COleVariant((short)0)); ∥向右
移动鼠标到下一个字符
oSel.MoveDown(COleVariant((short)5),covOptional,covOptional);∥向下移动鼠标到下一行
COleVariant vUnit((short)5); ∥光标移动方式为行
COleVariant vCount((short)3);
oSel.Move(&vUnit,&vCount); ∥移动3行
COleVarlant vEnd((short)5);
oSel.EndKey(&vEnd,&vopt); ∥将光标移动到行尾
(5)插入特殊符号与公式.在Word中运用公式编辑器插入特殊符号和公式,而公式编辑器不是基于
COM技术,不能被Visual C++中直接调用.本文通过调用Word中的域,其中用得最多的“EQ域”,根据要
求选用域开关,实现特殊符号与公式录入(常用的“EQ域”开关为分数:\f(,);上标或下标:ks(,);数组开
关:\a();根号:\r(,);积分:hi(,,);列表:\l()).
oFields=oSel.GetFields();
oSel.InsertSymbol(945,oFontName,covTrue,covOptional);∥插人特殊符号口
Text=”EQ ks\d04(q)”;
oFields.Add(oRange,covOptional,Text,covFalse);∥插入下标g
Text=”EQ L=\f(A,cos0)=\f(14,coM5。)≈19.8m“;
。Fields.Add(。Range covOpti。naI,Text,coyFalse);∥插入公式L=三笔=鬲£面≈19.8 m(L为臂
架长度;A为臂架端点到货物中心线的距离;0为臂架仰角)
Text=”EQ盯=\f(N\s\d02(1),4A\s\d02(j))+\f(IVlX,s\d02(x(1/2)),2hA\s\d02(j))+\f(M\s\
d02(y(1/2)),2bA\s\d02(j))”
oFields.妣Range,covOptional,Text,covFalse);∥插入公式盯=若+訾+訾(曲臂架
中央截面强度;N,为臂架中点轴力;M砌/z)为臂架中点X平面总弯矩;My(1/z,臂架中点y平面总弯矩5
Af为主肢净截面面积;h为四主肢形成矩形的宽度,b为四主肢形成矩形的长度)
(6)插人分页符、设置页眉页脚、设置页边距:
oSel.InsertBreak(covOptional);∥插入分页符
Window oWind;//以下代码是设置页眉页脚
oWind=oDoc.GetActiveWindow();
Pane oPane;
oPane=oWind.GetActivePane();
oView=oPane.GetView();
oView.SetSeekView(9); ∥设置页眉
oSel.TypeText(”太原科技大学”);

oView.SetSeekView(10); ∥设置页脚
oSel.TypeText(”轮式起重机产品设计说明书”);
oView.SetSeekView(0); //关闭页眉页脚
oDoc=App.GetActiveDocument(); ∥以下代码是设置页边距
PageSetup oPageSetup=oDoc.GetPageSetup();
oPageSetup.SetTopMargin((const)56.7);
oPageSetup.SetBottomMargin((const)56.7);
oPageSetup.SetLeftMargin((const)56.7);
oPageSetup.SetRightMargin((const)56.7);
(7)文件的保存.当程序自动执行完成后,采用文件另存的方式函数为oDoc.SaveAs(),其参数较多.
但只需提供第一个参数——保存文件的路径与名称,其他参数可以缺省:
C01eVariant filenamepath(”D:\vc\轮式起重机桁架式臂架结构设计说明书.doc”,VLBSTR);
oDoc.SaveAs(filenamepath,covOptional,⋯);
(8)程序的打印与关闭.当需要打印是可以用ODoc.PrintOut()函数,其参数可以缺省.关闭时首先关
闭文档然后关闭、Ⅳord应用程序:
ODoc.PrintOut();
ODoc.Close(covFalse,covOptional,covOptional);
App.Quit(covFa lse,covOptional,covTrue);

你可能感兴趣的:(文档,vc++,tabs,wizard,application,microsoft)