Откройте Word из Excel VBA на Mac - PullRequest
0 голосов
/ 15 мая 2019

Я хочу открыть определенный документ Word через Excel VBA на Macos.Моя офисная версия 2016

Я пробовал несколько кодов.Все отлично работало на Windows.Теперь я нашел это, которое открывает новое слово doc, но не существующее.

Это код, который у меня есть:

Sub WordopenV1()
    Dim objWordApp As Object
    Dim objDoc As Object
    Dim FileName As String

    On Error Resume Next
    Set objWordApp = GetObject(, "Word.Application") 
    On Error GoTo 0

    'If Word was not previously open then object variable will be nothing
    'Therefore Create the Object
    If objWordApp Is Nothing Then
        Set objWordApp = CreateObject("Word.Application")
    End If

   FileName = "C:\Users\nicow\Desktop\Praxis Erik Bernhardt\Word Verknüpfung\Rechnung_mitBriefkopf.docx"

    With objWordApp
        .Visible = True
        Set objDoc = .documents.Add ' .documents.Open(FileName)
    End With           
End Sub

В данный момент нет сообщений об ошибках.У меня было несколько ошибок времени выполнения при попытке с Set objWord = CreateObject("Word.application"), что я считаю одной из основных проблем.

В любом случае, кто-то может дать совет, как открыть мое конкретное слово doc?

...