在 Word 2002 和 Word 2003 中如何使用“打开并修复”功能打开文档

http://support.microsoft.com/kb/893672/zh-cn

 

在您打开某个文档时，如果 Microsoft Word 检测到文档有问题，它会自动使用“打开并修复”功能。但是，您可以强制 Word 在打开任何文档时均使用“打开并修复”功能。如果您打算将文档保存为其他文件格式，这可能特别有用。如果您将损坏的文档保存为其他文件格式，可能无法打开 保存的文档。 有关如何处理损坏的 Word 文档的问题的更多信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

826864   如何处理损坏的 Word 文档

要在 Word 中使用“打开并修复”功能打开文档，请使用下列方法之一。

方法 1：打开特定的文档

要在 Word 中使用“打开并修复”功能打开特定的文档，请按照下列步骤操作：

1. 启动 Word。
2. 在“文件”菜单上，单击“打开”。
3. 在“打开”对话框中，单击以选择要打开的文件。
4. 单击“打开”按钮上的向下箭头，然后单击“打开并修复”。

方法 2：打开所有文档

Microsoft 提供的编程示例只用于说明目的，不附带任何明示或默示的保证。这包括但不限于对适销性或特定用途适用性的默示保证。本文假定您熟悉所演示的编程语言和用于 创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能，但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。要在 Word 中使用“打开并修复”功能打开所有文档，请将 Word 中内置的 FileOpen 宏替换为一个 Microsoft Visual Basic for Applications (VBA) 宏。为此，请按照下列步骤操作：

1. 启动 Word，然后打开一个新建的空白文档。
2. 在“工具”菜单上，指向“宏”，然后单击“宏”。
3. 单击“宏的位置”框中的下箭头，然后单击“Word 命令”。
4. 在“宏名”列表中，单击“FileOpen”。
5. 单击“宏的位置”框中的下箭头，然后单击“Normal.dot(共用模板)”。
6. 单击“创建”。
7. 内置的 FileOpen 宏如下面的示例所示：

   Sub FileOpen()
   '
   ' FileOpen Macro
   ' Opens an existing document or template
   '
       Dialogs(wdDialogFileOpen).Show
   
   End Sub
   

8. 将内置的 FileOpen 宏替换为下面的宏示例：

   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 template
   '
   Dim sFileName As String
   
   ' Display the File Open dialog and capture the filename selected and pass it to a
   ' variable
   With Application.Dialogs(wdDialogFileOpen)
       .Display
       sFileName = .Name
   End 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 skipped
   If sFileName <> "" Then
       ' Use the filename as a variable to be opened using Open and Repair feature
       Documents.Open FileName:=sFileName, OpenAndRepair:=True
   End If
   
   End Sub
   

9. 在“文件”菜单上，单击“关闭并返回到 Microsoft Word”。
10. 在“文件”菜单上，按 Shift，然后单击“全部保存”。

注意

• 仅当您使用以下方法之一来打开文档时，新的 FileOpen 宏才会运行：
  • 单击“文件”菜单中的“打开”。
  • 单击“常用”工具栏中的“打开”。
• 如果您使用以下方法之一来打开文档，新的 FileOpen 宏不会运行：
  • 在 Windows 资源管理器中打开文档。
  • 从最近使用过的 (MRU) 文件列表中打开文档。