2

我有一个动态插入 VBA 代码的应用程序，以帮助构建带有适当书签的 MS Word 文档。VBA 代码不需要与文档本身一起保存。

保存文档时，会弹出以下警告（不幸的是我还不能发布图像），这会使应用程序的最终用户感到困惑。有没有办法在 DocumentBeforeSave 事件中禁用它？

**

以下内容不能保存在无宏文档中： VBA 项目 要保存具有这些功能的文件，请单击否返回“另存为”对话框，然后在“文件类型”下拉列表中选择启用宏的文件类型。继续另存为无宏文档？按钮：[是][否][帮助]

**

一个想法是将文档的 SaveFormat 更改为旧格式，以防止弹出此警告。但我不确定此更改是否会影响文档的行为方式，以及是否可以在 DocumentBeforeSave 事件中修改此属性（该属性是 READONLY 属性）。

在此先感谢您对此主题的任何帮助。

以下代码将打开一个单词（假设存在 c:\work\test.docx，它可以只是一个空白单词 doc）。如果您点击 word doc 上的 Save 按钮，则会显示警告消息。顺便说一句，我正在使用 Office 2010。

<TestMethod()>
Public Sub testWord()
    Dim wApp As New Word.Application()
    Dim myDoc As Word.Document
    Dim DataCodeModule As Object = Nothing

    myDoc = wApp.Documents.Open("C:\Work\test.docx")

    DataCodeModule = myDoc.VBProject.VBComponents(0).CodeModule
    With DataCodeModule
        .InsertLines(1, "Option Explicit")
        .InsertLines(2, "Sub TestCode()")
        .InsertLines(3, "Selection.InsertAfter ""test""")
        .InsertLines(4, "End Sub")
    End With

    wApp.Visible = True
    myDoc.Activate()
End Sub

一旦 DocumentBeforeSave 被连接，我希望下面的代码会禁用警告。可能需要在打开文档后立即设置 DisplayAlerts？

Public Sub App_DocumentBeforeSave(ByVal doc As Object, ByRef saveAsUI As Boolean, ByRef cancel As Boolean) Handles _officeHelper.DocumentBeforeSave
            Dim WordApp As Object = this.WordApp()
            'WordApp.DisplayAlerts = False
            WordApp.DisplayAlerts = 0
End Sub
4

2 回答 2

4

像这样？

Application.DisplayAlerts = wdAlertsNone
'~~> Your Save Code
Application.DisplayAlerts = wdAlertsAll

跟进

您正在 vb.net 中执行此操作。我目前无法访问 VB.net，但下面的这个示例将让您走上正确的道路

打开 Word 并插入一个模块，然后粘贴此代码

Option Explicit

Dim MyClass As New Class1

Sub Sample()
    Set MyClass.App = Word.Application
End Sub

现在插入一个类模块并粘贴此代码

Public WithEvents App As Word.Application

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

    Application.DisplayAlerts = wdAlertsNone
    ActiveDocument.Save
    Application.DisplayAlerts = wdAlertsAll

End Sub

现在，如果您按下保存按钮，您会注意到您将不再收到该警报。:)

希望您可以根据需要进行调整:)

于 2012-05-30T17:32:29.403 回答
0

我只是完成了这段代码。它会提示您保存并帮助您将其附加到电子邮件中。它对我有用。请试试。我在工作表顶部给出了一个命令按钮。谢谢

Private Sub CommandButton1_Click()
Dim whatfolder, whatfile As String
whatfolder = InputBox("Type folder name.. Don't type which drive")
whatfile = InputBox("Type file name you want to give")
ChangeFileOpenDirectory "C:\" & whatfolder
Application.DisplayAlerts = wdAlertsNone
ActiveDocument.SaveAs FileName:=whatfile & ".docx", FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
Application.DisplayAlerts = wdAlertsNone
ActiveDocument.SendMail
End Sub
于 2014-06-17T05:07:59.927 回答