如何以编程方式打开 MS Word 文档而不调用 Document_Open 宏

Question

我正在尝试使用 Office Automation 打开 Word 文档。 问题是我想在不调用 Document_Open 宏的情况下打开它。 有没有办法做到这一点？

下面的相关行是 wordApp.Documents.Open()

Imports Microsoft.Office.Interop

Public Class WordFunctions
  Public Shared Function ConvertToDoc(ByVal file As String) As Boolean
    Dim wordDoc As Word.Document
    Dim wordApp As Word.Application

    Try
        wordApp = CreateObject("Word.Application", "")
    Catch ex As Exception
        Return False
    End Try

    Try
        wordApp.Caption = "Automated Word Instance"
        wordApp.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
        wordDoc = wordApp.Documents.Open(FileName:=file, Visible:=False, ConfirmConversions:=False)

        wordDoc.SaveAs(FileName:=file + ".doc", FileFormat:=Word.WdSaveFormat.wdFormatDocument)
        wordDoc.Activate()
        wordDoc.Close()
        Return True
    Catch ex As Exception
        Return False
    Finally
        wordApp.Quit(SaveChanges:=False)
    End Try
  End Function
End Class

Answer 1

如果您正在使用 Word 2007 文档，请尝试更改代码以直接使用 XML，而不是使用 Office Automation API。

它更快，而且您不必担心宏（以及许多其他自动化问题）。