Ms word Microsoft Word 2010默认另存为文件类型

如果在word中打开

.mhtml

文件，并单击“另存为”选项，则默认的“另存为类型”为

.mhtml

。但是我需要默认的“另存为类型”为

.doc/.docx

。有没有办法做到这一点？

引用Office的帮助文档：

1-Click the File tab.
2-Click Options.
3-Click Save.
4-Under Save documents, click "Word 97-2003 Document (*.doc)" or "Word Document (*.docx)" in the Save files in this format.

---

创建用于保存事件的处理程序，在此事件中分析原始文档的类型并显示您自己的“另存为”对话框

详情：

1。处理程序

在普通模板中，创建一个类，例如clsSaveAs：

2。使用处理程序

在普通模板中创建新模块：

Dim csa As New clsSaveAs

Sub Register_Event_Save_As_Handler()
    Set csa.appWord = Word.Application
End Sub

'autorun for any opening document
'Note: AutoOpen could be only one in normal template
Sub AutoOpen()
    'could be run only for mht, mhtm documents, but never mind
    Register_Event_Save_As_Handler
End Sub

您需要在MHTML文档中包含此代码。你可以这样做（但我没有尝试过）：

• 在MS Word中创建新文档并将其另存为普通HTML文件
• 在本文档中创建一个新类（clsSaveAs，见上文）并在任何模块中创建代码的第二部分
• 请参见保存的文档：有一个名为_files的文件夹，该文件夹中有一个文件editdata.mso；这是宏观的；您必须在MHTML文件中对其进行编码（当您将其另存为MHTML文件时，您将看到它是如何完成的）
• 在文档中，您必须链接此文件，在HTML文档中查找并找到一行，如

请注意，所有这些工作都是非标准的，而且你是在如履薄冰上行走，要小心

有用链接：

---

感谢leppie更新了标签。。。我错过了。这比stackoverflow更超级用户吗？你提到的步骤是用来保存新文档的。但是，我需要的是我已经在扩展名中保存了一个MHTML文件为.doc。当我在word中打开该文档并单击“另存为”按钮时，选择的默认另存为类型是“.mhtml”而不是“.doc”。嗨，Roman Plischke，如果我是正确的，我们需要将其添加到MsWord安装路径的普通模板文件中。如果是这样，我们需要在所有试图打开此文件的系统中执行此操作。实际上，我需要的是，我有一个包含MHTML内容的文件。我用扩展名“.doc”保存了那个文件。现在，如果我在MSword中打开该文件并单击“另存为”选项，在“另存为类型”下拉列表中，默认情况下会选择“mhtml”。但我想要的是默认情况下必须选择“.doc”。有没有办法通过在MHTML文件中写入一些额外的行来实现这一点。首先：它真的是以“.doc”扩展名保存的MHTML文件？在VBA中，您只能通过扩展名识别原始文档的类型（或者通过VBA读取文件的内容并对其进行分析，可以，但这是一种折磨）。使用.mht或.mhtm扩展名。第二：您可以将上面的所有代码放在每个MHTML文件中，而不是放在普通模板中。我需要用另一个程序生成MSHTML文件，而不是MSWord，这是可能的，但很可怕。在本例中，提示：将word宏放入文档中，另存为.mht并在记事本中打开，宏将在内容位置编码：file:///.../editdata.mso.Yes，它是以“.doc”扩展名保存的MHTML文件。但是，我无法将其保存为.mht或.mhtml格式，因为需要使用java编程创建动态word文档。因此，我们将MHTML文件转换为“.doc”扩展名。通过这种方式，我们可以双击在MSWord中打开。我希望你的第二点能帮助我。我要试一试。根据您的评论，我们必须将上述两组代码1.Handler和2.Using Handler放在MHTML文件的第一行。对吗？让我展示或给出一些示例MHTML文件。这可能对我有帮助。我已经编辑了我的帖子。我添加了用于分析文档的代码，而不是扩展名识别，以及一些用于在MHTML文件中对其进行编码的提示。基本思想是，MHTML是MIME编码的HTML文件，所以创建文档，编写宏，另存为HTML，分析它是如何完成的，并用自己的方式（本例中是java）来实现MHTML。我将尝试一下。

Dim csa As New clsSaveAs

Sub Register_Event_Save_As_Handler()
    Set csa.appWord = Word.Application
End Sub

'autorun for any opening document
'Note: AutoOpen could be only one in normal template
Sub AutoOpen()
    'could be run only for mht, mhtm documents, but never mind
    Register_Event_Save_As_Handler
End Sub