Öffnen Sie word mit vba-Mac – OS X

Ich versuche, so öffnet sich automatisch ein excel-Dokument auf einem Mac OS X, aber es funktioniert nicht. Mein code ist:

Sub Button81_Click()
    Dim objWord
    Dim objDoc
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open("/Users/ricardo/Miniman/miniman_uti.docx")
    objWord.Visible = True
End Sub

Wird der Pfad falsch sein? Für diesen Weg „/Users/ricardo/Miniman/miniman_uti.docx“ es öffnet excel-Dateien. Warum nicht word-Dateien?

Kann mir bitte jemand helfen?

InformationsquelleAutor SaM | 2016-11-26



2 Replies
  1. 0

    Macht diese Arbeit für Sie?

    sub Test()
    
    dim objdoc as object
    
    with CreateObject("word.application")
    set objdoc = .documents.open("path")
    end with
    
    end sub
    • Ja, es ist eine docx Datei. Danke für den code. Aber es funktioniert nur, wenn microsoft word nicht geöffnet werden (beispielsweise mit einem anderen Dokument). Das heißt, wenn wir wollen, dass die Arbeit mit mehreren word-Dateien funktioniert es nur beim ersten mal, Sie wollen eine word-Datei öffnen.
    • Nicht vollständig zu verstehen, Sie in diesem moment. Haben Sie eine bestimmte variable im Pfad, die wird verwendet, um öffnen Sie dann word-doc?
    • Nein. Wenn ich andere word-Datei schon geöffnet, bevor Sie diesen code ausführen, es spieltt work, that is, it doesnt öffnen Sie die Datei, die ich will. Wenn ich nicht die word-Anwendung geöffnet wird, bevor Sie diesen code ausführen, es funktioniert.
    • Ich möchte einen code zu öffnen, zu jeder Zeit, unabhängig davon, ob oder nicht, ich habe eine oder mehrere word-Dateien, die bereits geöffnet ist, bevor Sie diesen code ausführen. Hast, erkläre ich jetzt besser? Vielen Dank für die Aufmerksamkeit.
    • Geändert meine Antwort, macht diese Arbeit für Sie?
  2. 0

    Code, um sicher zu öffnen ein word-Dokument aus einer Datei.
    Behandelt den Fall, wo Sie bereits word öffnen.

    Dim w As Object
    ' If word is already open get ahold of the running instance
    ' Otherwise create a new instance
    On Error Resume Next
    Set w = GetObject(, "Word.Application")
    If w Is Nothing Then Set w = CreateObject("Word.Application")
    On Error GoTo 0
    ' Close all open files and shutdown Word
    ' Loop through any open documents and close them
    Do Until w.Documents.Count = 0
        w.Documents(1).Close
    Loop
    w.Quit False
    Set w = Nothing
    
    ' Now that all instances of word are closed, open the template
    Dim wdApp As Object
    Dim wdDoc As Object
    Set wdApp = CreateObject("Word.application")
    wdApp.Visible = True
    wdApp.DisplayAlerts = False
    Set wdDoc = wdApp.Documents.Open(Filename:="MYPATH")

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.