育才学习网1. 自动翻页的WORD宏代码怎么写
Option Explicit
Dim Mytime As Date
每隔5秒自动翻页
Sub JumpPage()
Selection.GoToNext wdGoToPage
Mytime = Now + TimeValue("00:00:05")
Application.OnTime Mytime, "JumpPage"
If Selection.Information(wdActiveEndPageNumber) = Selection.Information(wdNumberOfPagesInDocument) Then
MsgBox "已到达最后一页，停止自动跳转功能"
Call StopJump
End If
End Sub
停止自动翻页
Sub StopJump()
On Error Resume Next
Application.OnTime Mytime, ""
End Sub
2. word中的宏怎么用
宏就是一个包含一系列命令的脚本。
最常接触到的就是Office软件中的宏程序是宏？如果需要在 word 中反复进行某项工作，那就可以利用宏来自动完成这项工作。宏是一系列组合在一起的 word 命令和指令，它们形成了一个命令，以实现任务执行的自动化。
您可以创建并执行宏（宏实际上就是一条自定义的命令），以替代人工进行的一系列费时而单调的重复性 word 操作，自动完成所需任务。以下是宏的一些典型应用： 加速日常编辑和格式设置组合多个命令，例如插入具有指定大小、边框、行数和列数的表格使对话框中的选项更易于访问自动执行一系列复杂的任务 word 提供了两种创建宏的途径：宏录制器和“visual basic 编辑器”。
宏命令作为一个非常重要的功能，在现在的许多软件中都不可缺少。利用宏，可以大大地简化我们的工作，准确快速地完成繁琐的任务。
下面，就给大家详细介绍我在word中使用宏的一个实例。 【需求】 在word中进行批量处理，将大量的Word文档.doc文件转换为.htm文件 【分析】 我们知道，利用word可以将.doc文件转换为.htm文件，方法是： 在Doc文件编辑窗口中，选择菜单“文件/另存为”，在“保存类型”下列列表中选择“html document”，按“保存”。
单独进行几个doc文件的转换还不算繁琐，但要大批量地进行转换工作时，比如：按章节输入了一本书，形成了几十个.doc文件，要对这些文件进行转换成.htm文件的工作，这时，就不能采用手工一个个处理的笨办法了！怎么实现呢？请往下看。 【实现步骤】 假设大批量.doc文档所在目录为c:\docs，文件名为1.1.doc,1.2.doc 。
1、启动word 2、关闭当前默认打开的空文档 3、选择菜单“工具/宏/录制新宏”，输入宏名称“doctohtml”，按“确定”，进入了宏录制过程。 4、选择菜单“文件/打开”，选择目录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" Documents.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, LockComments:= _ False, Password:="", AddToRecentFiles:=True, WritePassword:="", _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False ActiveDocument.Close End Sub 对上面的代码进行改造，如下： Sub doctohtml(myfile as string) ' ' doctohtml Macro ' 宏在 99-11-8 由 xxx 录制 ' ChangeFileOpenDirectory "C:\docs" If FileExists(gwfile + ".doc") Then Documents.Open FileName:=myfile+".doc", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto ActiveDocument.SaveAs FileName:=myfile+".htm", FileFormat:=100, LockComments:= _ False, Password:="", AddToRecentFiles:=True, WritePassword:="", _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False ActiveDocument.Close end if End Sub 并加入下面两个过程： '判断文件是否存在的函数 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 0 End Function '实际的转换函数 Sub mydoctohtml() If MsgBox（"确认执行转换doc到html文件吗？"， vbOKCancel + vbDefaultButton2） = _ vbCancel Then GoTo eeeddd Call doctohtml("conver") Call doctohtml("content") Call doctohtml("qianyan") Call doctohtml("fl") Call doctohtml("1.1") Call doctohtml("1.2") 。
Call doctohtml("1.10") 。 Call doctohtml("2.1") 。
Call doctohtml("3.1") 。 。
Call doctohtml("9.1") 。 eeeddd: End Sub 至此，全部代码改造完毕！关闭“Microsoft Visual Basic”窗口，回到Word窗口。
11、选择菜单“工具/宏/宏”，出现“宏”窗口，在左边的宏列表中，可以看到“mydoctohtml”一项，选中它，按右边的按钮“运行。
3. WORD宏工具怎么用
word宏 微软的office软件运行用户自己编写叫VBA的脚本来增加其灵活性，进一步扩充它的能力。
如完成一个一打开word文件同时要打开某个文件的功能，必须要自己编写一段称之为宏的脚本。具体做法是在“工具”菜单“宏”-“宏”弹出的对话框输入宏名，然后按“创建”按钮会打开visual basic编辑器，你就可以编程了，这个就是宏。
学会它会有很多乐趣的。简单点说就是批处理，但是要比批处理功能更强大.使你一个简单的操作，比如一个左键点击，就可以完成多项任务，很方便的.比如说你的电脑每天要监控并记录很多组的数据，而且这些数据是不断变化更新的（发/变电站记录表记等），这样你就需要做个宏来将服务器里这些数据定时转到一个或多个WORD文档里来，便于计算存档和打印.你的领导办公室在远一些的地方也可以通过网络来调用这个宏来将数据传到他的办公桌的电脑上.当你启动做好了的这个含有宏的文件的时候会弹出一个窗口问你是否起用宏. 宏是一系列 Word 命令和指令，这些命令和指令组合在一起，形成了一个单独的命令，以实现任务执行的自动化。
如果在 Microsoft Word 中反复执行某项任务，可以使用宏自动执行该任务。 以下是宏的一些典型应用： 加速日常编辑和格式设置 . 组合多个命令，例如插入具有指定尺寸和边框、指定行数和列数的表格 . 使对话框中的选项更易于访问 . 自动执行一系列复杂的任务 . Word 提供两种方法来创建宏：宏录制器和 Visual Basic 编辑器 。
4. Word 2007 宏怎么制作
创建宏
可以使用宏记录器录制一系列操作来创建宏 （宏：可用于自动执行任务的一项或一组操作。可用 Visual Basic for Applications 编程语言录制宏。），也可以在 Visual Basic 编辑器 （Visual Basic 编辑器：一种环境，用于编写新的 Visual Basic for Applications 代码和过程，并编辑已有的代码和过程。Visual Basic 编辑器包括完整的调试工具集，用于查找代码中的语法、运行时和逻辑问题。）中输入 Visual Basic for Applications (Visual Basic for Applications (VBA):Microsoft Visual Basic 的宏语言版本，用于编写基于 Microsoft Windows 的应用程序，内置于多个 Microsoft 程序中。） 代码来创建宏。
也可同时使用两种方法。可以录制一些步骤，然后添加代码来完善其功能。
录制步骤
在“工具”菜单上，指向“宏”，然后单击“录制新宏”。
在“宏名”框中，键入宏的名称。
在“将宏保存在”框中，单击将保存宏的模板 （模板：是指一个或多个文件，其中所包含的结构和工具构成了已完成文件的样式和页面布局等元素。例如，Word 模板能够生成单个文档，而 FrontPage 模板可以形成整个网站。）或文档。
在“说明”框中，键入对宏的说明。
如果不希望将宏指定到工具栏 （工具栏：包含可用于执行命令的按钮和选项的栏。要显示工具栏，请按 Alt 然后按 Shift+F10。）、菜单 （菜单：单击菜单栏或其他工具栏上的菜单名时出现的命令的列表。）或快捷键 （快捷键：功能键或组合键，例如 F5 或 Ctrl+A，可用来执行菜单命令。存取键是另外一种组合键，例如 Alt+F，可以将焦点移至菜单、命令或控件。），请单击“确定”开始录制宏。
若要将宏指定到工具栏或菜单，请单击“工具栏”，然后单击“命令”选项卡。在“命令”框中，单击正在录制的宏，然后将其拖动到需指定到的工具栏或菜单。单击“关闭”，开始录制宏。
要给宏指定快捷键，请单击“键盘”，在“命令”框中单击正在录制的宏，在“请按新快捷键”框中键入所需的快捷键，然后单击“指定”。单击“关闭”，开始录制宏。
执行要包含在宏中的操作。
录制宏时，可以使用鼠标单击命令和选项，但不能选择文本。必须使用键盘记录这些操作。例如，可以使用 F8 来选择文本，并按 End 将光标移动到行的结尾处。
若要停止录制宏，请单击“停止录制”。
通过使用 Visual Basic for Applications
在“工具”菜单中，指向“宏”，然后单击“宏”。
在“宏的位置”列表中，单击将保存宏的模板 （模板：是指一个或多个文件，其中所包含的结构和工具构成了已完成文件的样式和页面布局等元素。例如，Word 模板能够生成单个文档，而 FrontPage 模板可以形成整个网站。）或文档。
在“宏名”框中，键入宏的名称。
单击“创建”，打开“Visual Basic 编辑器”。
注释 如果为一个新的宏指定与现有 Microsoft Word 内置命令相同的名称，新的宏操作将代替现有的操作。若要查看 Word 中的内置宏列表，请指向“工具”菜单上的“宏”，然后单击“宏”。在“宏的位置”列表中，单击“Word 命令”。
5. word2007怎样用宏写程序
方法/步骤
首先我们打开我们电脑里面的OFFICE word 2007的主程序
然后我们就直接来到word的主页面上来
我们把鼠标放在左上角上边，我们就会看到office按钮的选项卡
点击office按钮之后，我们点击下边的word选项
在左侧我们找到信任中心的选项卡
我们切换到信用中心之后，我们点击右侧信任中心设置按钮
我们点击下边启动所有的宏就行了，点击下边的确定，等我们不用的时候在禁用即可
6. word中编写宏
录制宏，然后开始设置指令
查找^$ ^p
找到后，方向箭头移动到还会为，del按钮去掉段落标记，结束宏录制。
然后连续执行宏命令。
-=====
宏主要用来处理有规律的重复的工作，相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键（如L，相当于ctrl L快捷键），然后指定、关闭。开始录制宏。把你能够重复的操作执行一下，以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按，则连续执行。如果不完全正确，还要修改或重新录制宏。
7. vb如何用宏写word
宏操作是在打开word文档以后录制的，也就是说运行宏也要在打开word文档后进行，所以要把宏复制到vb环境中去运行的话，就得先在vb中操作打开word文档，参考下面代码：（演示前请先c；下建一个文件名为test.doc的word空文档，操作完成后，你会发现C盘里有个aa.doc文件，你打开就会发现宏操作写的一则通知） Private Sub Command1_Click() Dim MyWord As Word.Application Dim MyWordBook As Word.Document Set MyWord = New Word.Application Set MyWordBook = MyWord.Documents.Add("c:\test.doc") '打开test.doc用户自定义的空白WORD文档 MyWordBook.Activate'3.放置宏代码 With MyWordBook'此处就可以插入宏代码了' Macro1 Macro' 宏在 2009-9-20 由 adsl 录制' Selection.Font.Size = 30 Selection.FormattedText.Bold = True Selection.Font.Color = wdColorBlack Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.TypeText Text：=" 通知" Selection.Font.Color = wdColorRed Selection.TypeParagraph Selection.Font.Size = 22 Selection.TypeText Text：=" 今天下午三一）" Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="(" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text：="班 全体同学四点钟到操场进行体育课考试。
" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:= _ " " Selection.InsertDateTime DateTimeFormat:="yyyy-MM-dd", InsertAsField:= _ False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Font.Size = 22 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeParagraph Selection.Font.Size = 16 Selection.TypeText Text:=" " Selection.Font.Color = wdColorRed End With'4.保存，关闭文档，退出 MyWord.Visible = False '设置WORD可见 MyWordBook.SaveAs FileName:="c:\aa.doc" MyWordBook.Close MyWord.Quit Set MyWordBook = Nothing Set MyWord = Nothing MsgBox "操作完毕"， vbOKOnly， "提醒" unload me End Sub。