本文目录一览：
在word2007中使用VBA的方法步骤详解
Office取得巨大成功的一个重要原因就是VBA，使用VBA可以完成很多事情，基于 Excel 、Word的VBA小程序不计其数。竟然VBA这么重要，那么下面我就教你怎么在word2007中使用VBA吧。
在word2007中使用VBA的 方法 步骤
打开word2007
在word2007中使用VBA的方法步骤图1
如果功能区有开发工具选项，跳到步骤6,如果没有，继续
在word2007中使用VBA的方法步骤图2
在word2007中使用VBA的方法步骤图3
打开文件选项
在word2007中使用VBA的方法步骤图4
点击word选项
在word2007中使用VBA的方法步骤图5
选择“在功能区显示‘开发工具’选项”
在word2007中使用VBA的方法步骤图6
点击“开发工具”选项
在word2007中使用VBA的方法步骤图7
点击“Visual Basic”选项
在word2007中使用VBA的方法步骤图8
出现Visual Basic页面
在word2007中使用VBA的方法步骤图9 猜你喜欢：
1. excel2007怎么打开vba窗
2. 怎么打开excel2007的代码编辑器
3. excel2007宏不能使用怎么办
4. Excel2007调用控件或开发工具
5. Excel2007教程
6. excel2007怎么将两个工作表合并成一个
如何用VBA代码设置Word自动保存
如何用VBA代码设置Word自动保存
如何用VBA代码设置Word自动保存
1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》 【插入模块】;
用VBA代码设置Word自动保存的`步骤
2、双击刚才插入的【模块1】，添加如下代码：
Sub 自动备份()
Dim NewTime
NewTime = Now + TimeValue(“00:05:10”)
Dim myPath$， myName$
myPath = ActiveDocument.Path
myName = Left$(ActiveDocument.Name， Len(ActiveDocument.Name) - 4)
ChangeFileOpenDirectory myPath
ActiveDocument.SaveAs FileName：=myName “_temp.doc”， ReadOnlyRecommended：=True
ActiveDocument.SaveAs FileName：=myName “.doc”， ReadOnlyRecommended：=False
Application.OnTime NewTime， “自动备份”
CreateObject(“Wscript.shell”).popup “备份成功，备份文件名为：” myName “_temp.doc”， 2， “提示!2秒后自动关闭!”
End Sub
用VBA代码设置Word自动保存的步骤
用VBA代码设置Word自动保存的步骤
3、双击【ThisDocument】并在其中 添加如下代码：
Private Sub Document_Open()
Call 自动备份
End Sub
用VBA代码设置Word自动保存的步骤
4、默认自动备份时间为5min，如要调整请修改【模块1】中一句代码：如图中红框所示：
时间格式为：HH ： mm ： ss
用VBA代码设置Word自动保存的步骤
5、保存代码及文件，且关闭word并重新打开，重新打开点击【选项】-》 【启用此内容】，如图：
用VBA代码设置Word自动保存的步骤
6、默认备份文件名为：【原文件名_temp，Lee.doc】且为只读，提示对话框2s后自动关闭。备份效果显示如下：
;
excel中如何通过VBA打开word文件和ppt文件？
一、打开word文件代码：Set wo = CreateObject("Word.Application")/x0d/x0awo.Documents.Open ThisWorkbook.Path "/流程.doc"/x0d/x0awo.Visible = True/x0d/x0a二、打开ppt文件代码：方法1：/x0d/x0aSet wo = CreateObject("Powerpoint.Application")/x0d/x0awo.Visible = True/x0d/x0awo.Presentations.Open ThisWorkbook.Path filename方法2：Sub dd()Dim filepath$, filename$/x0d/x0afilepath = Chr(34) ThisWorkbook.Path filename Chr(34)/x0d/x0aShell "POWERPNT.EXE " filepathEnd Sub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。/x0d/x0a这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。/x0d/x0aPrivateSub CommandButton1_Click()/x0d/x0aDim wo AsObject Dim app AsObject/x0d/x0a' 创建PowerPoint应用实例/x0d/x0aSet app = CreateObject("Powerpoint.Application")/x0d/x0a' 使PowerPoint可见/x0d/x0aapp.Visible = True ' 打开PPS文件/x0d/x0aSet wo = app.Presentations.Open(ThisWorkbook.Path "/a.pps")/x0d/x0a' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误/x0d/x0aOnErrorGoTo errHandle/x0d/x0a' PPS演示时全屏