假如打开某个文档，Word 2003检测到文档出现问题，会自动使用“打开并修复”功能打开文档，当然我们也可以使用“打开并修复”功能打开任何文档，下面就一起来看看怎样使用“打开并修复”打开特定的文档和打开所有文档。工具/原料moreWord 2003方法1、打开特定的文档1/2分步阅读

启动 Word 2003，单击“文件”，单击“打开”

2/2

在“打开”对话框浏览到出问题的文档上，选中后单击右下角“打开”按钮的三角箭头，出来的下拉菜单选择“打开并修复”命令

方法2、打开所有文档1/9

启动 Word 2003，接着打开一个新建的空白文档

2/9

单击“工具”菜单，出来的菜单窗口指向“宏”，在下一级菜单单击“宏”命令

3/9

弹出“宏”对话框，单击打开“宏的位置”的下拉框列表，选择“Word 命令”选项

4/9

在“宏名”框中键入“FileOpen”或直接在列表中找到并单击“FileOpen”

5/9

单击“宏的位置”的三角箭头按钮，出来的下拉列表框选择“Normal.dot(共用模板)”

6/9

然后单击右侧的“创建”按钮

7/9

复制以下代码，并粘贴替换到打开的代码窗口中

Option Explicit

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS EXAMPLE IS AT YOUR OWN RISK. Microsoft provides this macro code as is without warranty of any kind, either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Sub FileOpen() FileOpen Macro Opens an existing document or templateDim sFileName As String

Display the File Open dialog and capture the filename selected and pass it to a variableWith Application.Dialogs(wdDialogFileOpen) .Display sFileName = .NameEnd With

Test to verify the filename has a value If no file is chosen or if the Open dialog is dismissed, the following code is skippedIf sFileName Then Use the filename as a variable to be opened using Open and Repair feature Documents.Open FileName:=sFileName, OpenAndRepair:=TrueEnd If

End Sub

8/9

单击“文件”菜单，显示的菜单界面单击“关闭并返回到 Microsoft Word”

9/9

按住Shift键，然后在菜单栏单击“文件”——“全部保存”

word文档