Как открыть документ с VBA на Mac?

Я пытаюсь написать макрос для пакетной обработки нескольких документов Word. Мне нужно установить размер страницы "Legal" для более чем 200 файлов. Код, который я написал, довольно прост и кажется, что он должен работать, но я не могу заставить команду Documents.Open успешно выполняться. Каждый раз, когда я получаю этот результат:

Ошибка выполнения "5174": этот файл не найден.

(и так далее) - даже когда я жестко кодирую имя файла. Файл определенно существует. Вот что у меня так далеко:

Public Sub MassFormatLegal()

    Dim vDirPath As String
    Dim vFile As String
    Dim vFileName As String
    Dim oDoc As Document

    vDirPath = "MacMiniHD:Users:atc:Documents:TEST:"
    vFile = Dir(vDirPath)

    Do While vFile <> ""

        vFileName = vDirPath & vFile
        '* display the filename to verify that it's correct
        MsgBox "vFileName: " + vFileName

        '* open file
        Set oDoc = Documents.Open("MacMiniHD:Users:atc:Documents:TEST:AAFILE.doc")

        '* I also tried the following, all resulting in the same error
        '*Set oDoc = Documents.Open(vFileName)
        '*Set oDoc = Documents.Open(fileName:=vFileName)
        '*Set oDoc = Application.Documents.Open(fileName:=vDirPath & vFile)

        '* change paper size
        oDoc.PageSetup.PaperSize = wdPaperLegal

        '* save and close the document
        oDoc.Close wdSaveChanges

        '* get next file
        vFile = Dir

    Loop

    MsgBox "Finished"

End Sub

Какие-либо предложения? Я перепробовал много разных подходов и осознаю, что у VBScript для Mac есть серьезные ограничения, но, конечно, такая базовая обработка файлов возможна?!?

0 ответов

Другие вопросы по тегам