word宏怎么写 _word

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)