Ошибка выполнения при попытке пакетного преобразования из do c в docx - PullRequest
Новая
       7

Ошибка выполнения при попытке пакетного преобразования из do c в docx

0 голосов
/ 06 марта 2020

Я использую этот код: 

Sub TranslateDocIntoDocx()
    Dim objWordApplication As New Word.Application
    Dim objWordDocument As Word.Document
    Dim strFile As String
    Dim strFolder As String

    strFolder = "/Users/christieparker/Documents/"
    strFile = Dir(strFolder & "*.doc", vbNormal)

    While strFile <> ""
        With objWordApplication

Set objWordDocument = .Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False)

With objWordDocument
                .SaveAs FileName:=strFolder & Replace(strFile, "doc", "docx"), FileFormat:=16
.Close
            End With
        End With
        strFile = Dir()
Wend

Set objWordDocument = Nothing
Set objWordApplication = Nothing
End Sub

для преобразования пакета файлов в папке на моей Ma c из .do c в .docx и получаю эту ошибку, когда я запустить его ..

Ошибка времени выполнения = '214 .... (80080005) Ошибка автоматизации

Ошибка возникает в строке With objWordApplication.

...