时间戳

首页 > 解决方案 > Word VBA .doc 文件提示用户关闭

vba - Word VBA .doc 文件提示用户关闭

问题描述

我在一个文件夹中有一堆word文档。有些是 .docx 文件，有些是 .doc 文件。我的代码适用于 .docx 文件，但每次文件是 .doc 文件时，它都会提示我保存。我正在处理超过 5k 的 .doc 文件，所以有没有办法在不提示我的情况下保存。谢谢 

Sub WordDocScrubber()

Dim directory As String, fileName As String, i As Variant, dc As Document
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    Dim security As MsoAutomationSecurity
    security = Application.AutomationSecurity
    Application.AutomationSecurity = msoAutomationSecurityForceDisable

    directory = "C:\Users\bayli\Desktop\Files for Testing\"
    fileName = Dir(directory & "*.do??")

    i = 0
    Do While fileName <> vbNullString
        On Error Resume Next
        Set dc = Documents.Open(directory & fileName)

        If Err.Number = 0 And Not dc Is Nothing Then
            On Error GoTo 0
            dc.RemoveDocumentInformation (wdRDIAll)
         dc.Close savechanges:=True,originalformat:=wdOriginalDocumentFormat
           'dc.Close savechanges:=True, originalformat:=wdWordDocument

            i = i + 1
            Application.StatusBar = "Files Completed:  " & i
            fileName = Dir()
        Else
            Err.Clear
            On Error GoTo 0
            'Handle 
        End If
    Loop

    Application.AutomationSecurity = security
    Application.StatusBar = False
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Complete"



End Sub

标签： vbams-word

解决方案

试试这个而不是 dc.close：

dc.Save
dc.Saved = True 'extra code, maybe not necessary
dc.Close wdDoNotSaveChanges

推荐阅读