EXCEL 函数 宏-VBA_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
EXCEL 函数 宏-VBA
上传于||文档简介
&&全​面​介​绍​E​x​c​e​l​常​用​函​数​,​小​技​巧​以​及​e​x​c​e​l​宏​编​程
大小：2.01MB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢利用VBA對word操作自動評分提高課堂實效性分析
論文類別： >
論文作者：
上傳時間： 19:22:00
　　摘　要：現代計算機技術，把人們從繁瑣的勞動中解脫出來。而要教学這些內容，卻又給计算機教師帶來繁重的負擔。比如Word、Excel、Powerpoint等Office教學内容，學生練習後的結果，如果讓教師去逐個检查的話，簡直是一項不可想象的事情；而不去檢查，學生的錯誤又不能得到及時糾正。要解決這一問題，還要從自身找答案，那就是利用Office提供的VBA功能，實現Office操作題的自動测評。 　　關鍵词：自動測評　VBA　宏　Word
當今計算机課的教學中，Word、Excel、Powerpoint等Office教學內容占了相當大的比重，而這主要是一種技能性，或者說操作性的教學。如果在教學和练習過程中讓教師逐个去檢查學生的練習結果，勢必給計算機教師增加過重的負擔，在实際教學中幾乎成為不可能。而如今能找到的一些測評軟件，由於版權問题，大多是光盤版的，不能多機使用，更不能靈活地改變其題目設置，很不方便教學。“求人不如求已”，本文嘗試利用Office提供的VBA功能，實现Office操作題的自動测評。 那麽什麽叫VBA呢？ 　　VBA即Visual Basic For Application，是微軟開發出來的應用程序所共享的一種通用自動化語言。可以認為VBA是非常流行的應用程序開發語言Visual Basic的子集。實际上VBA是“寄生於”VB應用程序的版本。早在上世紀90年代早期，使應用程序自動化還是充滿挑戰性的领域，當時為了對每個需要自动化的應用程序實現自動化，人們不得不去學習多种不同的自動化語言。例如：可以用EXCEL的宏語言来使EXCEL自動化，使用WORD BASIC來使WORD自動化等等。為了解決這一矛盾，微軟開發出一種通用的自動化語言——VBA，它適用於微軟開發出來的所有應用程序。 　　那麽VBA和VB又有哪些區別呢？
　　1、VB是設计用於創建標準的應用程序，而VBA是使已有的應用程序(Word等)自動化。 　　2、VB具有自己的開發環境，而VBA必須寄生於已有的應用程序。 　　3、要运行VB開發的應用程序，用户不必安裝VB，因為VB開發出的應用程序是可执行文件(*.EXE)，而VBA開發的程序必須依賴於它的“父”應用程序，例如Word等。 　　盡管存在這些不同，VBA和VB在結构上仍然十分相似。事實上，如果你已經了解了VB，会發現學習VBA非常快。相應地，學完VBA會給學习VB打下堅實的基礎。而且，當學会在Word中使用VBA後，即已具備在Excel、Powerpoint等Office 中用VBA創建解决方案的大部分知識。 VBA一個关鍵特征是你所學的知識在微软的一些產品中可以相互轉化。 　　總體而言，VBA可以稱作Office系列應用程序的“遙控器”。 　　下面我就以一節Word課的教學為例，演示其實現過程。當然，在此之前，你應該對宏、VBA、面向對象、方法、屬性等概念有所了解，我想作為一名教師来說，這些應該是不困難的。 　　一、根據所學，設计練習題 　　例如Word教學中，關于“文字格式及段落屬性的設置”一節，就涉及到文字的字體、字號、字形、顏色；段落的居中、首行縮進、行距等的設置。根據教學要求，我便設計了如下“练習題.doc”文檔。
　　計算机的發展趨勢
　　當前計算機的發展趨勢是向巨型化、微型化、網絡化和智能化方向發展。 　　1、巨型化(或功能巨型化)
巨型化是指其高速運算、大存儲容量和強功能的巨型計算機。其運算能力一般在每秒百億次以上、内存容量在幾百兆字節以上。巨型計算機主要用於尖端科學技術和軍事國防系統的研究開發。巨型計算機的發展集中體現了計算机科學技術的發展水平，推動了計算機系統結構、硬件和軟件的理論和技術、計算以及計算機應用等多個科學分支的發展。 　　2、微型化(或體積微型化) 　　二十世紀七十年代以來，由於大規模和超大規模集成電路的飛速發展，微處理器芯片連續更新換代，微型計算機連年降價，加上丰富的軟件和外部設備，操作簡單，使微型計算機很快普及到各個領域並走進了千家萬戶。隨著微電子技術的進一步發展，微型计算機將發展得更加迅速，其中筆記本型、掌上型等微型計算機必將以更優的性能價格比受到人們的歡迎。展望未来，計算機的發展必然要經歷很多新的突破。從目前的發展趨勢來看，未來的計算機將是微電子技術、光學技術、超導技術和電子仿生技術相互結合的產物。第一臺超高速全光數字計算機，已由歐盟的英國、法國、德國、意大利和比利時等國的70多名科學家和工程師合作研制成功，光子計算機的運算速度比電子計算機&#倍。在不久的將來，超導計算機、神經網絡计算機等全新的計算機也會誕生。届時計算機將發展到一個更高、更先進的水平。 　　提出要求：“題目要求.txt” 　　（1）將標題“計算機的發展趨勢”，設為華文行楷、二號、天藍色字。 　　（2）將兩個小標題，設為楷體、四號、加粗。 　　（3）將兩段正文，設為仿宋體、小四號、傾斜。 　　（4）將標題居中。 　　（5）将正文內容首行縮進2字符，行距1.5倍。 　　二、 教師試做，錄制并分析宏
教師试做上面5個小題，同時相應录制五段宏：KS1、KS2、KS3、KS4、KS5。提示：在錄制宏的過程中，要選擇內容時，註意需要暫停宏。
Sub ks1() 　　Selection.Font.Name=“華文行楷” 　　Selection.Font.Size=22 　　Selection.Font.Color=wdColorSkyBlue End Sub Sub ks2() 　　Selection.Font.Name=“楷體_GB2312” 　　Selection.Font.Size=14 　　Selection.Font.Bold=wdToggle 　　Selection.Font.Name=“楷體_GB2312” 　　Selection.Font.Size=14 　　Selection.Font.Bold=wdToggle End Sub Sub ks3() 　　Selection.Font.Name=“仿宋_GB2312” 　　Selection.Font.Size=12 　　Selection.Font.Italic=wdToggle 　　Selection.Font.Name=“仿宋_GB2312” 　　Selection.Font.Size=12 　　Selection.Font.Italic=wdToggle End Sub Sub ks4() 　　Selection.ParagraphFormat.Alignment=wdAlignParagraphCenter End Sub Sub ks5() 　　With Selection.ParagraphFormat 　　　　.LeftIndent=CentimetersToPoints(0) 　　　　.RightIndent=CentimetersToPoints(0) 　　　　.SpaceBefore=0 　　　　.SpaceBeforeAuto=False 　　　　.SpaceAfter=0 　　　　.SpaceAfterAuto=False 　　　　.LineSpacingRule=wdLineSpace1pt5 　　　　.Alignment=wdAlignParagraphJustify 　　　　.WidowControl=False 　　　　.KeepWithNext=False 　　　　.KeepTogether=False 　　　　.PageBreakBefore=False 　　　　.NoLineNumber=False 　　　　.Hyphenation=True 　　　　.FirstLineIndent=CentimetersToPoints(0.35) 　　　　.OutlineLevel=wdOutlineLevelBodyText 　　　　.CharacterUnitLeftIndent=0 　　　　.CharacterUnitRightIndent=0 　　　　.CharacterUnitFirstLineIndent=2 　　　　.LineUnitBefore=0 　　　　.LineUnitAfter=0 　　　　.AutoAdjustRightIndent=True 　　　　.DisableLineHeightGrid=False 　　　　.FarEastLineBreakControl=True 　　　　.WordWrap=True 　　　　.HangingPunctuation=True 　　　　.HalfWidthPunctuationOnTopOfLine=False 　　　　.AddSpaceBetweenFarEastAndAlpha=True 　　　　.AddSpaceBetweenFarEastAndDigit=True .BaseLineAlignment=wdBaselineAlignAuto
免費论文下載中心
計算機應用論文範文指南
論文格式指南
計算機應用論文服務君，已阅读到文档的结尾了呢~~
Excel VBA 操作 Word(入门篇)
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
Excel VBA 操作 Word(入门篇)
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口word修改页边距/纸张纵向/装定线等vba代码
作者：佚名
字体：[ ] 来源：互联网 时间：03-07 10:18:02
本文将介绍一些VBA代码来实现页面的页边距、纸张纵向、装定线、页眉页静等,感兴趣的你可以参考下，希望这些VBA代码可以帮助到你
下面的WAPP是事先定义的word文档工程变量。 以下代码为通过VBA代码来实现页面的页边距、纸张纵向、装定线、页眉页静等。 代码如下: WApp.ActiveDocument.PageSetup.LineNumbering.Active =0;//行编号 WApp.ActiveDocument.PageSetup.Orientation =Microsoft.Office.Interop.Word.WdOrientation.wdOrientP//页面方向 WApp.ActiveDocument.PageSetup.TopMargin =WApp.CentimetersToPoints(float.Parse("2.54"));//上页边距 WApp.ActiveDocument.PageSetup.BottomMargin = WApp.CentimetersToPoints(float.Parse("2.54"));//下页边距 WApp.ActiveDocument.PageSetup.LeftMargin = WApp.CentimetersToPoints(float.Parse("3.17"));//左页边距 WApp.ActiveDocument.PageSetup.RightMargin = WApp.CentimetersToPoints(float.Parse("3.17"));//右页边距 WApp.ActiveDocument.PageSetup.Gutter = WApp.CentimetersToPoints(float.Parse("0"));//装订线位置 WApp.ActiveDocument.PageSetup.HeaderDistance = WApp.CentimetersToPoints(float.Parse("1.5"));//页眉 WApp.ActiveDocument.PageSetup.FooterDistance = WApp.CentimetersToPoints(float.Parse("1.75"));//页脚 WApp.ActiveDocument.PageSetup.PageWidth = WApp.CentimetersToPoints(float.Parse("21"));//纸张宽度 WApp.ActiveDocument.PageSetup.PageHeight = WApp.CentimetersToPoints(float.Parse("29.7"));//纸张高度 WApp.ActiveDocument.PageSetup.FirstPageTray = Microsoft.Office.Interop.Word.WdPaperTray.wdPrinterDefaultB//纸张来源 WApp.ActiveDocument.PageSetup.OtherPagesTray = Microsoft.Office.Interop.Word.WdPaperTray.wdPrinterDefaultB//纸张来源 WApp.ActiveDocument.PageSetup.SectionStart = Microsoft.Office.Interop.Word.WdSectionStart.wdSectionNewP//节的起始位置：新建页 WApp.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = 0;//页眉页脚-奇偶页不同 WApp.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = 0;//页眉页脚-首页不同 WApp.ActiveDocument.PageSetup.VerticalAlignment = Microsoft.Office.Interop.Word.WdVerticalAlignment.wdAlignVerticalT//页面垂直对齐方式 WApp.ActiveDocument.PageSetup.SuppressEndnotes =0;//不隐藏尾注 WApp.ActiveDocument.PageSetup.MirrorMargins = 0;//不设置首页的内外边距 WApp.ActiveDocument.PageSetup.TwoPagesOnOne =//不双面打印 WApp.ActiveDocument.PageSetup.BookFoldPrinting =//不设置手动双面正面打印 WApp.ActiveDocument.PageSetup.BookFoldRevPrinting =//不设置手动双面背面打印 WApp.ActiveDocument.PageSetup.BookFoldPrintingSheets = 1;//打印默认份数 WApp.ActiveDocument.PageSetup.GutterPos = Microsoft.Office.Interop.Word.WdGutterStyle.wdGutterPosL//装订线位于左侧 WApp.ActiveDocument.PageSetup.LinesPage = 40;//默认页行数量 WApp.ActiveDocument.PageSetup.LayoutMode = Microsoft.Office.Interop.Word.WdLayoutMode.wdLayoutModeLineG//版式模式为&只指定行网格&
大家感兴趣的内容
12345678910
最近更新的内容}