Word自动排版在教学中的应用

word word文档格式规范word作业纸小票打印word模板word简历模板免费word简历 自动排版在教学中的应用 荆门市东宝区牌楼镇中心 小学 小学生如何制作手抄报课件柳垭小学关于三违自查自纠报告小学英语获奖优质说课课件小学足球课教案全集小学语文新课程标准测试题 王建 [摘要]:在工作中巧妙利用word中的宏，可以提高我们的工作效率，节省宝贵的时间。本文主要阐述了word中宏的录制，编辑及在教学中的应用，起到一个抛砖引玉的作用。 [关键词]:word、宏、VBA、with 对于很多人来说，使用word是一件很简单的事情，但绝大部分人可能不知道，我们平常仅仅使用到了word中的20%的功能，还有80%的功能没有使用;如果我们深入进去，充分钻研word中的功能，可以大大提高我们的工作效率。 宏，用好了它，可以极大地提升我们的工作效率。 特别是word中的 对于大多数老师，日常利用word最常做的事情是编辑教案和论文。部分老师喜欢从网上复制教案，然后对其进行修改，使其符合自己班级的实际情况。这样，既提高了工作效率，又能有较好的效果。时间长了，老师们都发展了一个问 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 ，网上复制下来的教案，格式非常乱，必须对其重新进行编排。每次编排都要花费不少的时间。其中的空格、空行要一个一个的去删，很耽误时间。有没有相对简单的方法，可以把老师们编排教案的时间节省下来呢, 如果我们能充分利用word中的宏命令，就可以达到上面的要求。把老师们宝贵的时间从排版中节省出来，去做一些更有意义的事情。 Word宏简单点说就是批处理，但是要比批处理功能更强大。使你一个简单的操作，比如一个左键点击，就可以完成多项任务，很方便的。比如我们从网上复制的网页内容粘贴到Word以后可能会不少空行，有的行距又很大，手工去除空行、改行距、进行页面设置等等较麻烦，如果你录制一个宏以后，你只要按一下你设定的快捷键，一切工作就自动完成了。另外，我们经常使用的一些功能也在不知不觉地使用宏，比如Word的稿纸功能实际上是已经设置好的“页眉和页脚”的一个宏。宏是一系列 Word 命令和指令，这些命令和指令组合在一起，形成了一个单独的命令，以实现任务执行的自动化。所以，如果在 Microsoft Word 中反复执行某项任务，可以使用宏自动执行该任务。 懂得了上述知识，我们就可以利用word中的宏来高效完成word教案或论文的排版。 一、需求分析 对于一篇网上复制的教案，格式是混乱的，主要存在下面的一些问题: 1、复制到word中时是表格形式的。编辑时必须将其去掉。 2、中间存在很多空格和空行，必须清除掉， 3、最后必须按照一般的教案格式进行编排。 据此，我们可以初步拟定出教案编排的一般步骤: 1、清除格式; 1 2、去掉空格; 3、去掉空行; 4、编排正文 5、编排文章题目。 二、宏的录制 我们可以按照以下步骤录制需要的宏 1、.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。 2、给宏取名为“教案”，再单击“键盘”。 这里的宏名可以任意选取，不过建议选择一个有意义的名字，以便增加其可读性。 3、在弹出的对话框中指定快捷键，可指定为“Ctrl，Y”，再关闭该对话框回到”录制宏”对话框。单击“确定”按钮启动记录器。 录制前最好将文字的所有格式全部清除，方法是粘贴时选择“编辑”菜单中的“选择性粘贴”，然后选择“无格式文本”，这样粘贴时会将文章中的所有格式全部清除。 4、按照一定的步骤对教案进行编排，注意此时的操作一定不能出现任何差错，否则，word会将错误的步骤也录制进去。具体步骤省略，但是必须按照上面的步骤严格执行。 在此，只是重点强调一下如何删除空行和空格。 网页文字中会有许多的空段和空格，在Word中排版时也需要清除。那么为什么这一步要删除空格，而不是先删除空段呢,道理是:有些看起来什么也没有的段落中可能存在空格，而有空格的段落并不是真正的空段，在Word中没法对它们批量执行删除操作。 首先，从“编辑”菜单中打开“替换”对话框(打开后暂时不要关闭，后面的操作都要在这里完成)。把光标定位到“查找内容”文本框中，按一下空格键输入一个空格(默认情况下是半角空格)，“替换为”文本框中什么都不填。单击“全部替换”，Word将删除所有的空格。你可能会说怎么我这还有许多空格呀,别急，如果这样的话，那是因为这个文档中还有另外两种空格:全角空格和制表符空格。对这两种空格，半角空格是不会把它们当一家人的，所以替换时对它们置之不理。打开中文输入法，按Shift+空格键，切换到全角状态，然后按空格键在“查找内容”框里输入全角空格，“替换为”为空，再按“全部替换”，所有的全角空格也都删除了。再单击对话框中的“高级”按钮，然后单击“特殊字符”，选择“制表符”，在“查找内容”框中会出现“^t”(当然也可以手工输入)，“替换为”为空，再单击“全部替换”，制表符空格也都没了。 删除空段的时机终于成熟了。在“查找和替换”对话框的“高级”模式下，两次单击“特殊字符”中的“段落标记”，“查找内容”框中将出现两个“^p”(也可 以手工输入^p^p)，再把光标定位到“替换为”框中，单击“段落标记”输入 2 一个“^p”，再单击“全部替换”，文档中所有的空段全部消失。 其中的道理是什么呢,请想一下，没有空格的空段是怎样产生的,不正是我 们连打了两次回车之后才有的么,现在把两个连续的回车替换成一个，正好消除 了那个空段。 如果有连续的空段的话，一次替换不完，你可以多按几次“全部替换”，直 到提示找不到替换的对象为止。 5、单击“停止录制”工具栏中的“停止录制”按钮。完成宏的录制。 最终录制成功的宏代码如下: Sub 教案() ' ' 教案 Macro Selection. Find. ClearFormatting Selection. Find. Replacement. ClearFormatting With Selection. Find . Text = "^l" . Replacement. Text = "^p" . Forward = True . Wrap = wdFindContinue . Format = False . MatchCase = False . MatchWholeWord = False . MatchByte = False . MatchWildcards = False . MatchSoundsLike = False . MatchAllWordForms = False End With Selection. Find. Execute Replace:=wdReplaceAll Selection. Find. ClearFormatting Selection. Find. Replacement. ClearFormatting With Selection. Find . Text = "^p^w" . Replacement. Text = "^p" . Forward = True . Wrap = wdFindContinue . Format = False . MatchCase = False . MatchWholeWord = False . MatchByte = False . MatchWildcards = False . MatchSoundsLike = False . MatchAllWordForms = False 3 End With Selection. Find. Execute Replace:=wdReplaceAll Selection. Find. ClearFormatting Selection. Find. Replacement. ClearFormatting With Selection. Find . Text = "^p^p" . Replacement. Text = "^p" . Forward = True . Wrap = wdFindContinue . Format = False . MatchCase = False . MatchWholeWord = False . MatchByte = False . MatchWildcards = False . MatchSoundsLike = False . MatchAllWordForms = False End With Selection. Find. Execute Replace:=wdReplaceAll Selection. WholeStory Selection. Font. Size = 12 With Selection. ParagraphFormat . LeftIndent = CentimetersToPoints(0) . RightIndent = CentimetersToPoints(0) . SpaceBefore = 0 . SpaceBeforeAuto = False . SpaceAfter = 0 . SpaceAfterAuto = False . LineSpacingRule = wdLineSpaceSingle . FirstLineIndent = CentimetersToPoints(0. 35) . CharacterUnitLeftIndent = 0 . CharacterUnitRightIndent = 0 . CharacterUnitFirstLineIndent = 2 . LineUnitBefore = 0 . LineUnitAfter = 0 . WordWrap = True End With Selection. HomeKey Unit:=wdStory Selection. TypeBackspace Selection. TypeBackspace Selection. EndKey Unit:=wdLine, Extend:=wdExtend Selection. MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection. ParagraphFormat . LeftIndent = CentimetersToPoints(0) . RightIndent = CentimetersToPoints(0) 4 . SpaceBefore = 0 . SpaceBeforeAuto = False . SpaceAfter = 0 . SpaceAfterAuto = False . LineSpacingRule = wdLineSpaceSingle . Alignment = wdAlignParagraphCenter . WidowControl = False . KeepWithNext = False . KeepTogether = False . PageBreakBefore = False . NoLineNumber = False . Hyphenation = True . FirstLineIndent = CentimetersToPoints(0) . OutlineLevel = wdOutlineLevelBodyText . CharacterUnitLeftIndent = 0 . CharacterUnitRightIndent = 0 . CharacterUnitFirstLineIndent = 0 . LineUnitBefore = 0 . LineUnitAfter = 0 . AutoAdjustRightIndent = True . DisableLineHeightGrid = False . FarEastLineBreakControl = True . WordWrap = True . HangingPunctuation = True . HalfWidthPunctuationOnTopOfLine = False . AddSpaceBetweenFarEastAndAlpha = True . AddSpaceBetweenFarEastAndDigit = True . BaseLineAlignment = wdBaselineAlignAuto End With Selection. Font. Size = 18 Selection. Font. Name = "黑体" Selection. HomeKey Unit:=wdLine Selection. Find. ClearFormatting Selection. Find. Replacement. ClearFormatting Selection. Find. Replacement. Font. Bold = True With Selection. Find. Replacement. ParagraphFormat . LeftIndent = CentimetersToPoints(0) . RightIndent = CentimetersToPoints(0) . SpaceBefore = 0 . SpaceBeforeAuto = False . SpaceAfter = 0 . SpaceAfterAuto = False . Alignment = wdAlignParagraphCenter . FirstLineIndent = CentimetersToPoints(0) 5 . CharacterUnitLeftIndent = 0 . CharacterUnitRightIndent = 0 . CharacterUnitFirstLineIndent = 0 . LineUnitBefore = 0 . LineUnitAfter = 0 . WordWrap = True End With Selection. Find. Replacement. ParagraphFormat. Borders. Shadow = False With Selection. Find . Text = "第?课时" . Replacement. Text = "第?课时" . Forward = True . Wrap = wdFindContinue . Format = True . MatchCase = False . MatchWholeWord = False . MatchByte = False . MatchWildcards = False . MatchSoundsLike = False . MatchAllWordForms = False End With Selection. Find. Execute Replace:=wdReplaceAll Selection. Find. ClearFormatting Selection. Find. Replacement. ClearFormatting Selection. Find. Replacement. Font. Bold = True With Selection. Find. Replacement. ParagraphFormat . LeftIndent = CentimetersToPoints(0) . RightIndent = CentimetersToPoints(0) . SpaceBefore = 0 . SpaceBeforeAuto = False . SpaceAfter = 0 . SpaceAfterAuto = False . Alignment = wdAlignParagraphCenter . FirstLineIndent = CentimetersToPoints(0) . CharacterUnitLeftIndent = 0 . CharacterUnitRightIndent = 0 . CharacterUnitFirstLineIndent = 0 . LineUnitBefore = 0 . LineUnitAfter = 0 . WordWrap = True End With Selection. Find. Execute Replace:=wdReplaceAll Selection. MoveDown Unit:=wdScreen, Count:=1 Selection. Find. ClearFormatting 6 Selection. Find. Replacement. ClearFormatting Selection. Find. Replacement. Font. Bold = True With Selection. Find. Replacement. ParagraphFormat . LeftIndent = CentimetersToPoints(0) . RightIndent = CentimetersToPoints(0) . SpaceBefore = 0 . SpaceBeforeAuto = False . SpaceAfter = 0 . SpaceAfterAuto = False . Alignment = wdAlignParagraphCenter . FirstLineIndent = CentimetersToPoints(0) . CharacterUnitLeftIndent = 0 . CharacterUnitRightIndent = 0 . CharacterUnitFirstLineIndent = 0 . LineUnitBefore = 0 . LineUnitAfter = 0 . WordWrap = True End With End Sub 有一点要说明的是，最终录制的宏代码可能和上述代码不完全一样，但基本 原理上是一样的。可以根据自己的需求进行修改，不过需要一定的编程知识。 三、word中的宏的深入了解VBA Visual Basic for Applications(简称VBA)是新一代 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 宏语言，是基于Visual Basic for windows发展而来的。它与传统的宏语言不同，传统的宏语言不具有高 级语言的特征，没有面向对象的程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 概念和方法。而VBA提供了面向对象 的程序设计方法，提供了相当完整的程序设计语言。VBA易于学习掌握，可以 使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。这样用户可以 容易地将日常工作转换为VBA 程序代码，使工作自动化。因此，对于在工作中 需要经常使用Office 套装软件的用户，学用VBA 有助于使工作自动化，提高工 作效率。另外，由于VBA 可以直接应用Office 套装软件的各项强大功能，所以 对于程序设计人员的程序设计和开发更加方便快捷。 下面仅列举几段实用的VBA代码， 1、为文字设置格式 下面的代码使用 Selection 属性来为选定的文字应用字符和段落格式。使用 Font 属性可获得字体格式属性和方法，使用 Microsoft Word 对象属性可访问段 落格式属性和 方法。 With Selection.Font .Name = "Times New Roman" .Size = 14 .AllCaps = True End With 7 With Selection.ParagraphFormat .LeftIndent = InchesToPoints(0.5) .Space1 End With 2、将格式应用于某一范围 下面的代码定义一个 Range 对象MyRange，该对象引用活动文档的前三个段落。通过使用 Font 属性和 ParagraphFormat 对象可以编排Range(myRange)的格式。 Set myRange = ActiveDocument.Range ( Start:=ActiveDocument.Paragraphs ( 1 ) .Range.Start, _ End:=ActiveDocument.Paragraphs(3).Range.End) With myRange .Font.Name = "Arial" .ParagraphFormat.Alignment = wdAlignParagraphJustify End With 总之，Word中的宏语言VBA博大精深，还需要我们做进一步的深入了解，掌握了VBA，充分运用好它，给我们的工作和生活带来方便。 8