保存Word文档和DisplayAlerts

我试图使用Application.DisplayAlerts = wdAlertsNone或Application.DisplayAlerts = False在我的剧本，以避免到有字弹出消息“被保存的文档包含轨道变化继续保存吗？”只字VBA脚本之前保存一个word文档。但它不起作用。该消息仍然存在。保存Word文档和DisplayAlerts

这里我的脚本：

Private Sub CreateReportButton_Click() 
    Dim objDocA As Word.Document 
    Dim objDocB As Word.Document 
    Dim objDocC As Word.Document 

    Dim objFSO As Scripting.FileSystemObject 
    Dim objFolderA As Scripting.Folder 
    Dim objFolderB As Scripting.Folder 
    Dim objFolderC As Scripting.Folder 

    Dim colFilesA As Scripting.Files 
    Dim objFileA As Scripting.File 

    Dim i As Integer 
    Dim j As Integer 

    Set objFSO = New FileSystemObject 
    Set objFolderA = objFSO.GetFolder(ChooseFolder("Choose the folder with the original documents", ThisDocument.Path)) 
    Set objFolderB = objFSO.GetFolder(ChooseFolder("Choose the folder with revised documents", ThisDocument.Path)) 
    Set objFolderC = objFSO.GetFolder(ChooseFolder("Choose the folder for the comparisons documents", ThisDocument.Path)) 

    Set colFilesA = objFolderA.Files 

    For Each objFileA In colFilesA 
    If objFileA.Name Like "*.docx" Then 
     Set objDocA = Documents.Open(objFolderA.Path & "\" & objFileA.Name) 
     Set objDocB = Documents.Open(objFolderB.Path & "\" & objFileA.Name) 
     Set objDocC = Application.CompareDocuments(_ 
      OriginalDocument:=objDocA, _ 
      RevisedDocument:=objDocB, _ 
      Destination:=wdCompareDestinationNew) 
     objDocA.Close 
     objDocB.Close 
     On Error Resume Next 
     Kill objFolderC.Path & "\" & objFileA.Name 
     On Error GoTo 0 

     'Turn off DisplayAlerts 
     Application.DisplayAlerts = wdAlertsNone 

     objDocC.SaveAs FileName:=objFolderC.Path & "\" & objFileA.Name 
     objDocC.Close SaveChanges:=False 
    End If 
    Next objFileA 

End Sub

能否请你帮我解决这个问题？

预先感谢您的帮助

来源

2017-12-18 coeurdange57

我无法复制您的错误（MS Word 2016）。错误源于这个过程：'CompareDocuments'。检查比较结果，如果文档很大，在关闭文档之前可能需要更多时间。 –

即使文件很大，我的脚本仍在Word 2013下工作（同一文档的两个版本必须具有相同名称的唯一方法。 – coeurdange57

显然，这取决于办公室的版本，2013年有必要去应用程序的信任中心区（文件>选项>信任中心>信任中心设置>隐私选项），并取消选中“打印前保存，保存或发送包含已跟踪更改或评论的文件”选项。这样做后，文件保存任何消息的Word

来源

2017-12-18 14:16:52 coeurdange57

保存Word文档和DisplayAlerts

回答

相关问题