ESPA Microsoft Word 文档

WordVBA（Events）Microsoft Word VBA (3)Word Events在Word中只有Application object和Document object响应事件:Events With Application object :NewDocument, DocumentOpen,DocumentBeforeClose, DocumentBeforePrint, DocumentBeforeSaveWindowActivate, WindowDeactivate, WindowSelectionChange,WindowBeforeDoubleClock, WindowBeforeRightClick,QuitEvents With Document object :New, Open, Close此外，在Document上的ActiveX Cobtrols也响应事件。

对每一FormField可以指定On Entry和On Exit宏，相当于GotFocus和LostFocus事件过程。

当然在Word VB Project中建立的UserForms 及其上的Controls也响应事件。

Events: When you open a document当Open MyDoc1.doc文档时，发生以下事件：1. Document_Open2. App_DocumentChange :3. App_DocumentOpen : C:\…\MyDoc1.doc如果Order4.Doc有AttachedTemplate，则当Open该Doc时，发生以下事件：1. Template’s Document_Open（Doc打开也触发模板的Open事件。

）2. App_DocumentChange (如果这不是第一个打开的文档，发生App_DocumentChange事件)3. Document’s Document_Open4. App_DocumentOpen : C:\My Documents\Order4.docEvents: When you close a document当Close文档时，发生以下事件：1. App_DocumentBeforeClose:C:\…\MyDoc1.doc2. Document_Close3. 对话框Save Changes ?4. 如果Save， App_DocumentBeforeSave :C:\…\MyDoc1.doc（如果不Save changes则不发生App_DocumentBeforeSave。

祖国在我心中演讲比赛活动总结
为庆祝新中国成立63周年，大力弘扬中华民族先进文化，激发小学生的爱国热情和民族自豪感，弘扬与时俱进、奋发有为的时代精神，歌颂伟大祖国繁荣富强，体验家乡变化和学校发展变化，激励广大师生爱国爱校，爱家乡的情感，丰富校园文化生活，激励学生勤奋学习，快乐成长，全面发展，进一步培养和提高学生的综合素质，9月29日下午，老鸦陈中心小学举行了“迎国庆——祖国在我心中”小学生演讲比赛。

参赛选手在各班主任和语文老师的精心指导下，积极准备，用激扬的文字赞美祖国悠久的历史文化，讴歌祖国历代英才以及切身感受到的巨大变化，预祝祖国的明天更加繁荣昌盛，我们的生活更加幸福美好，充分展现小学生对祖国的无限热爱。

来自全校的40名选手参加了这次比赛。

比赛中，小选手们满怀豪情，用他们稚嫩的声音声情并茂的表达着对祖国的热爱，尽情讴歌祖国美好明天。

演讲让学生们深深感受到了中华民族源远流长和博大精深的历史文化，增强了同学们热爱祖国、自强不息的民族精神，激发少年儿童的爱国热情，弘扬少年儿童报国之志，体验到家乡翻天覆地的发展变化！经过激烈的角逐，大赛评选出了一等奖、二等奖、三等奖若干。

此次活动的开展，一方面提高了学生的演讲口才，另一方面也激发着学生的爱国情操，是一场生动的爱国主义德育课。

Aspose.Word的常见使⽤（2018-12-26更新版）Aspose.Word 的常见使⽤起因因项⽬需要，⽽且使⽤html转Word的时候，样式不兼容问题，于是只能使⽤Aspose.Word通过代码⽣成。

下⾯是通过DocumentBuilder来设计Word的，但是和使⽤模型拼接的差不多，原理基本⼀致。

思路这⾥是说使⽤Aspose.Word的使⽤思路，只想某个功能是怎么使⽤的可以跳过代码都是⼈写的，所以每⼀个代码都有他的风格，了解这些代码作者的思路有利于我们去使⽤它。

简单使⽤Word，⽆⾮就是⽂字，图⽚，表格以及页⾯的样式。

如果了解Css和英语好点的基本都是可以在VS⾥⾯点出来的，最难的就是最开始的⼊门的。

⼊门，简单的⽰例Aspose.Words.Document doc = new Document();//新建⼀个空⽩的⽂档Aspose.Words.DocumentBuilder builder = new Aspose.Words.DocumentBuilder(doc);doc.Save("⽂件保存的全路径");这⾥⾯的`builder`相当于⼀个画笔，提前给他规定样式，然后他就能根据你的要求画出你想画的Word。

这⾥的画笔使⽤的是就近原则，当上⾯没有定义了builder的时候，会使⽤默认的格式，当上⾯定义了某个格式的时候，使⽤最近的⼀个（即最后⼀设定Wor d页⾯的样式builder.PageSetup.PaperSize = PaperSize.A4;//A4纸builder.PageSetup.Orientation = Aspose.Words.Orientation.Portrait;//⽅向builder.PageSetup.VerticalAlignment = Aspose.Words.PageVerticalAlignment.Top;//垂直对准builder.PageSetup.LeftMargin = 42;//页⾯左边距builder.PageSetup.RightMargin = 42;//页⾯右边距关于页⾯的设置，基本都在PageSetup中，根据需要和正常的名字，基本都可以猜出来写⼊⼀段⽂字//获取ParagraphFormat对象，关于⾏的样式基本都在这⾥var ph = builder.ParagraphFormat;//⽂字对齐⽅式ph.Alignment = ParagraphAlignment.Center;// 单倍⾏距 = 12 ， 1.5 倍 = 18ph.LineSpacing = 12;//获取Font对象，关于⽂字的⼤⼩，颜⾊，字体等等基本都在这个⾥⾯Aspose.Words.Font font = builder.Font;//字体⼤⼩font.Size = 22;//是否粗体font.Bold = false;//下划线样式，None为⽆下划线font.Underline = Underline.None;//字体颜⾊font.Color = Color.Black;//C#的颜⾊font.Color = System.Drawing.ColorTranslator.FromHtml("#3b3131");//⾃定义颜⾊//设置字体FarEast = "宋体";//添加⽂字builder.Write("添加的⽂字");//添加回车builder.Writeln();//添加⽂字后回车builder.Writeln("添加的⽂字后回车");基本使⽤到的就是这⼏个了，如果需要更多可以⾃⼰在VS⾥⾯点后试试看。

3.用Newton法求f=x^4-4*x^3-6*x^2-16*x+4的极小点。

分别取初始点x0=2.5,x0=3function [x,minf]=minNewton(f,x0,eps)format long;if nargin==2;eps=1.0e-6;end;df=diff(f);d2f=diff(df);k=0;tol=1;while tol>epsdfx=subs(df,findsym(df),x0);d2fx=subs(d2f,findsym(d2f),x0);x1=x0-dfx/d2fx;tol=abs(dfx);x0=x1;end;x=x1;minf=subs(f,findsym(f),x);format short;>> syms x;f=x^4-4*x^3-6*x^2-16*x+4;x=minNewton(f,2.5)x=minNewton(f,3)x =4x =4f(x）=4^4-4*4^3-6*4^2-16*4+4=-156;min4.画出用Newton法求函数f(x)的极小点的程序框图，并编写计算程序，求f(x)=3*x^4-16*x^3+30*x^2-24*x+8的极小值，取初始点x0=3function [x,minf]=minNewton(f,x0,eps)format long;if nargin==2;eps=1.0e-6;end;df=diff(f);d2f=diff(df);k=0;tol=1;while tol>epsdfx=subs(df,findsym(df),x0);d2fx=subs(d2f,findsym(d2f),x0);x1=x0-dfx/d2fx;tol=abs(dfx);x0=x1;end;x=x1;minf=subs(f,findsym(f),x);format short;>> syms x;f=3*x^4-16*x^3+30*x^2-24*x+8;x=minNewton(f,3)f=3*x^4-16*x^3+30*x^2-24*x+8;x =2.0000f(x）=3*2^4-16*2^3+30*2^2-24*2+8=0;min6.用抛物线法求f(x)=x^4/4-4*x^3/3+5*x^2/2-2*x的极小点function [x,minf]=minPWX(f,a,b,eps)format long;if nargin==3;eps=1.0e-6;end;t0=(a+b)/2;k=0;tol=1;while tol>epsfa=subs(f,findsym(f),a);fb=subs(f,findsym(f),b);ft0=subs(f,findsym(f),t0);tu=fa*(b^2-t0^2)+fb*(t0^2-a^2)+ft0*(a^2-b^2);td=fa*(b-t0)+fb*(t0-a)+ft0*(a-b);t1=tu/2/td;ft1=subs(f,findsym(f),t1);tol=abs(t1-t0);if ft1<=ft0;if t1<=t0;b=t0;t0=t1;elsea=t0;t0=t1;endk=k+1;elseif t1<=t0;a=t1;elseb=t1;endk=k+1;endendx=t1;minf=subs(f,findsym(f),x);format short;>> syms x;f=(x^4)/4-(4*x^3)/3+(5*x^2)/2-2*x;x=minPWX(f,1,3)x =2.0000>> syms x;f=(x^4)/4-(4*x^3)/3+(5*x^2)/2-2*x;x=minPWX(f,2,2.5)x =2.00008.画出用平分法求函数f(x)的极小点的程序框图，并求解第六题，f(x)=x^4/4-4*x^3/3+5*x^2/2-2*x,取a0=0,b0=4function x=agui_bisect(fname,a,b,e)fname为函数名，a,b为区间端点，e为精度fa=feval(fname,a); %把a端点代入函数，求的fafb=feval(fname,b); %把b端点代入函数，求的fbif fa*fb>0 error('两端函数值为同号');end %如果fa*fb>0，则输出两端函数值为同号k=0x=(a+b)/2while(b-a)>(2*e) %循环条件的限制fx=feval(fname,x);%把x代入代入函数，求的fxif fa*fx<0%如果fa与fx同号，则把x赋给b，把fx赋给fbb=x;fb=fx;else %如果fa与fx异号，则把x赋给a，把fx赋给faa=x;fa=fx;endk=k+1 %计算二分了多少次x=(a+b)/2 %当满足了一定精度后，跳出循环，每次二分，都得新的区间断点a和b，则近似解为x=(a+b)/2endfun=inline('x^4/4-4*(x^3)/3+5*(x^2)/2-2*x');x=agui_bisect(fun,0,4,1.0e-6)x =2.76089.编写用”成功-失败”法求函数f（x）的极小点的计算程序，并求解minf(x)=x^5+2*x^4-4*x^3+x^2+x+2;function [minx,maxx]=minJT(f,x0,h0,eps)format long;if nargin==3;eps=1.0e-6;end;x1=x0;k=0;h=h0;while 1x4=x1+h;k=k+1;f4=subs(f,findsym(f),x4);f1=subs(f,findsym(f),x1);if f4<f1x2=x1;x1=x4;f2=f1;f1=f4;h=2*h;elseif k==1;h=-h;x2=x4;f2=f4;elsex3=x2;x2=x1;x1=x4;break;endendendminx=min(x1,x3);maxx=x1+x3-minx;format short;clearsyms x;f=x^5+2*x^4-4*x^3+x^2+x+2;[x1,x2]=minJT(f,0,0.1)x1 =-0.7000x2 =-0.1000>> syms x;f=x^5+2*x^4-4*x^3+x^2+x+2;[x1,x2]=minJT(f,1,2)x1 =-1x2 =3>> syms x;f=x^5+2*x^4-4*x^3+x^2+x+2;[x1,x2]=minJT(f,1,0.5)x1 =-2.5000x2 =0.500011.编写用0.618法求函数f(x)的极小点的计算程序，并求解min f(x)= exp(-x)+x^2,sit-1≤x≤3function [x,minf]=minHJ(f,a,b,eps)format long;if nargin==3eps=1.0e-6;endl=a+0.382*(b-a);u=a+0.618*(b-a);k=1;tol=b-a;while tol>eps&&k<100000fl=subs(f,findsym(f),l); fu=subs(f,findsym(f),u); if fl>fu;a=l;l=u;u=a+0.618*(b-a);elseb=u;u=l;l=a+0.382*(b-a);endk=k+1;tol=abs(b-a);endif k==100000disp(‘找不到最小值!‘);x=NaN;minf=NaN;return;endx=(a+b)/2;minf=subs(f,findsym(f),x); format short>> syms x;f=exp(-x)+x^2;[x,fx]=minHJ(f,-2,3)x =0.3518fx =0.8272。