Word宏应用实例Word文档格式.docx

1、选择第二步中的宏名称，再单击“编辑”按钮。然后便加载Visual Basic编辑器，我们可以看到所录制的宏自动生成的Visual Basic代码。例如，在C:My Document中有200个Word文档，依次命名为“1.doc”，“2.doc”，“3.doc”，“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的Visual Basic代码如下：Sub Macro1（） ChangeFileOpenDirectory C:My document Documents.Open FileName:

2、=1.doc ActiveDocument.SaveAs FileName:=1.txt,FileFormat:=wdFormatText ActiveWindow.Close 下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代码如下：dim i for i=1 to 200 =i .doc =i .txt, FileFormat:next i 再次运行该宏，便可以轻松完成任务。宏的作用由此可略见一斑您正在看的Word教程是:Word统计文字出现次数 Word宏应用实例。有的时候，我们要在一个文档中查找某个文本出现的总次数，也就是查找该文本的总数量，例如在一份违纪登记表格中查找

3、一个姓名被记载的总数，类似的应用还有很多。但Word没有这样的功能，我编写了一个宏，使Word具有统计单个文本总数量的功能。下面介绍实现方法。第二步 在弹出的VisualBasic编辑器的代码窗口中完成以下内容：Sub FindText（）Text = InputBox（请输入要查找的文本：, 提示）With ActiveDocument.Content.FindDo While .Execute（FindText:=Text） = Truetim = tim + 1LoopEnd WithMsgBox （当前文档查找到 + Str（tim） + 个 + Text）, 48, 完成End Su

4、b第三步 录入完毕后，单击菜单文件关闭并返回到Micrcsoft后Word。第四步 单击菜单工具自定义，单击“命令”选项卡，在“类别”中选择“宏”，将右边的“Normal.NewMacros.FindText”命令拖入“编辑”菜单中，并右击拖入的命令，在“命名”框中重命名为“查找文本数量”（如图）。以后要统计文本数量时，只要单击编辑查找文本数量，按提示输入要查找的内容，单击确定就得到统计结果。宏应用实例三：将大量的Word文档.doc文件转换为.htm文件2007-11-15 14:12【分析】我们知道，利用word可以将.doc文件转换为.htm文件，方法是：在Doc文件编辑窗口中，选择菜单

5、“文件/另存为”，在“保存类型”下列列表中选择“html document”，按“保存”。单独进行几个doc文件的转换还不算繁琐，但要大批量地进行转换工作时，比如：按章节输入了一本书，形成了几十个.doc文件，要对这些文件进行转换成.htm文件的工作，这时，就不能采用手工一个个处理的笨办法了！怎么实现呢？请往下看。【实现步骤】假设大批量.doc文档所在目录为c:docs，文件名为1.1.doc，1.2.doc .1、 启动word2、 关闭当前默认打开的空文档3、 选择菜单“工具/宏/录制新宏”，输入宏名称“doctohtml”，按“确定”，进入了宏录制过程。4、 选择菜单“文件/打开”，选择

6、目录c:docs，选择文件1.1.doc，按“确定”。5、 选择菜单“文件/另存为”，在“保存类型”下列列表中选择“html document”， 按“保存”。6、 选择菜单“文件/关闭”7、 选择菜单“工具/宏/停止录制”8、 选择菜单“工具/宏/宏”9、 在出现的“宏”窗口左部选中doctohtml，单击右边的按钮“编辑”10、宏代码改造：在出现的“Microsoft Visual Basic”窗口中，可以看到如下的宏代码：Sub doctohtml（） doctohtml Macro 宏在 99-11-8 由 xxx 录制 ChangeFileOpenDirectory C:docs D

7、ocuments.Open FileName:=1.1.doc, ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:, PasswordTemplate: , Revert:=False, WritePasswordDocument:, WritePasswordTemplate:, _ Format:=wdOpenFormatAuto ActiveDocument.SaveAs FileName:1.1.htm, FileFormat:=100, LockComme

8、nts: False, Password:, AddToRecentFiles:=True, WritePassword: ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter: False ActiveDocument.CloseEnd Sub对上面的代码进行改造，如下：Sub doctohtml（myfile as string） If FileExists（gwfile + .doc） T

9、hen=myfile+.htm end if 并加入下面两个过程：判断文件是否存在的函数Function FileExists（ByVal FileName As String） As Boolean On Error Resume Next FileExists = Dir$（FileName） If Err.Number 0 Then FileExists = False End If On Error GoTo 0End Function实际的转换函数Sub mydoctohtml（） If MsgBox（确认执行转换doc到html文件吗？, vbOKCancel + vbDefaul

10、tButton2） = _ vbCancel Then GoTo eeeddd Call doctohtml（convercontentqianyanfl1.11.2 .1.102.13.1 . 9.1 eeeddd:至此，全部代码改造完毕！关闭“Microsoft Visual Basic”窗口，回到Word窗口。11、选择菜单“工具/宏/宏”，出现“宏”窗口，在左边的宏列表中，可以看到“mydoctohtml”一项，选中它，按右边的按钮“运行”，出现提示窗口“确认执行转换doc到html文件吗？”，选择“确定”，批量转换工作开始了！【后记】上面应用宏的例子，看起来虽然步骤很多，其实做起来却

11、非常简单，技术上关键在于2个环节：第一、根据某个任务录制初始的宏；第二、对初始的宏代码进行改造，已满足满足特殊的需求Word宏命令巧妙应用一例文章出处：由于工作和学习的需要，笔者经常在网上阅读大量的信息，但由于网上的文字格式不一，所以笔者喜欢将它保存下来，并且用Word打开，精心设置其字体与背景后再阅读。可这样每次阅读都需重新设置一番，挺麻烦的。不久前看到了Word里的宏命令，仔细研究后发现，它可以帮我的大忙呢。只需进行如下设置，以后这样的事情一个按钮就可以搞定。1. 任意打开一篇文挡，用鼠标任选一段文字。2. 执行“工具宏录制新宏”命令，打开如图1所示对话框。3. 在“录制宏”对话框的“宏名

12、”文本框中输入宏的名称“读前设置”，在“将宏保存在”下拉列表框中选择“所有文档（normal.dot）”，然后单击工具栏按钮，打开图2所示“自定义”对话框。4. 在“自定义”对话框中选择“命令”选项卡，在“命令”列表框中将显示输入的宏名。在该名称上按下鼠标左键将其拖到“常用”工具栏上，这样工具栏上就多了一个读前设置按钮了。图1录制新宏5. 单击关闭进入宏的录制过程。此时，“停止”浮动工具栏将出现在屏幕上，此工具栏上有两个按钮，左边是停止，右边是暂停（如图3）。6. 执行“格式字体”命令，在打开的“字体”对话框中选择“字体”选项卡，在对话框的“中文字体”下拉列表中选择“宋体”，在“字形”下拉列表

13、中选择“常规”，在“字号”下拉列表中选择“小四”，在“字体颜色”下拉列表中选择“灰度-80%”，单击确定。7. 执行“格式背景其他颜色”命令，在打开的“颜色”框中选择一种很浅的灰色，单击确定。8. 单击“停止”工具栏上的停止按钮结束录制。图2 “自定义”对话框 图3“停止”工具栏这样，以后只要在网上阅读文字，在Word里打开，先用“Ctrl+A”全选后，单击“常用”工具栏上的宏按钮读前设置，就可以看到很舒服的文字效果了。一些Word快捷编辑、特殊输入操作的域、宏应用实例代码2008-04-26 08:50本文大部分代码来自于顾经宇其实你还没懂word及其网站或论坛，部分代码经过本人修改，对于方

14、便应用word很有好处。具体应用，请查看原书（右键点击用迅雷下载pdf版本）。发布于此，一为保留自用，二为共享他人。标题中说是“域、宏应用实例代码”，实际上，把一些域的操作也编制成了宏，所以，以下全是宏代码。至于word如何添加宏，不在本文叙述范围，请自行搜索网络。1. 打开文档时光标返回上次关闭时最后编辑处Sub AutoOpen（） AutoOpen Macro宏名称一定要是AutoOpen（大小写无所谓） 宏在 2008-4-16 由 * 创建Application.GoBack2. 无格式粘贴Sub 无格式粘贴（） 无格式粘贴 Macro 宏在 2006-11-2 由 * 创建 Sel

15、ection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement: wdInLine, DisplayAsIcon:=False3. 匹配目标格式粘贴Sub 匹配目标格式粘贴（） 匹配目标格式粘贴 Macro，这个宏的功能与上一个好像是一样的，虽然代码不同，都是匹配目标格式粘贴 宏在 2006-11-3 由 * 创建Selection.PasteAndFormat （wdFormatSurroundingFormattingWithEmphasis）4. 删除连续两个换行符Sub 删除连续两个换行符（） 删除连续两个换行符 Ma

16、cro 宏在 2006-11-2 由 * 创建Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find .Text = ll .Replacement.Text = .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike =

17、False .MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.MoveDown Unit:=wdLine, Count:=15. 合并连续两个段落标记为一个Sub 替换连续两个段落标记为一个（） 替换连续两个段落标记为一个 Macroppp6. 替换换行符为段落标记Sub 替换换行符为段落标记（）l7. 段前空半行Sub 段前空半行（） 段前空半行 MacroWith Selection.ParagraphFormat.LineUnitBefore = 0.58. 段前

18、空一行Sub 段前空一行（） 段前空一行 Macro.LineUnitBefore = 19. 文献标号上标化Sub 文献标号上标化（） 参考文献上标化 Macro Selection.HomeKey Unit:=wdStory Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.Font .Superscript = True End With With Selection.Find-，0-9,- .MatchWildcards = True Selection.Find.Execute Replace:-，0-9,- 10. 箭头上方加文字Sub 箭头上方加文字（） 箭头上方加文字 Macro Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting: Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count: Selection.TypeText Text:eq o（sdo2（）,sup5（敲击Delete键清