Word VBA .doc файлы, предлагающие пользователю закрыть - PullRequest
Новая
       15

Word VBA .doc файлы, предлагающие пользователю закрыть

0 голосов
/ 30 ноября 2018

У меня есть куча текстовых документов в папке.Некоторые из них являются файлами .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

1 Ответ

0 голосов
/ 30 ноября 2018

Попробуйте вместо dc.close: 

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