Question

如果我在word中打开.mhtml文件，然后点击＆＃34;另存为＆＃34;选项，默认＆＃34;另存为类型＆＃34;是.mhtml。但我需要默认＆＃34;另存为类型＆＃34;是.doc/.docx。有没有办法实现这个目标？

Answer 1

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

详细说明：

<强> 1。处理

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

Public WithEvents appWord As Word.Application

Private Function IsMime(fileName As String)
    Dim mimeTag As String
    'open document
    Open fileName For Input Access Read As #1
    On Error Resume Next
    'read beginning of the document
    Input #1, mimeTag
    On Error GoTo 0
    Close #1
    'MHTM file starts with "MIME" string
    IsMime = Left(mimeTag, 4) = "MIME"
End Function

Private Sub appWord_DocumentBeforeSave _
 (ByVal Doc As Document, _
 SaveAsUI As Boolean, _
 Cancel As Boolean)

    'get extension
    ar = Split(Doc.Name, ".")
    ext = LCase(ar(UBound(ar)))

    'what is the document MIME type?
    If IsMime(Doc.FullName) Then
        'my own saveas dialog
        With Application.Dialogs(wdDialogFileSaveAs)
            .Format = WdSaveFormat.wdFormatXMLDocument 'docx
            .Show
        End With
        Cancel = True 'cancel saving process
    Else
        'normal saving
        Cancel = False
    End If
End Sub

<强> 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文档并找到像

请注意，所有这些工作都是非标准的，你是在冰上行走，小心。

有用的链接：

Answer 2

引用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.

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

2 个答案: