Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Macro-Aufruf





Frage

Hallo! Ich weiß, daß ich im EXCEL-Macro ein WINWORD-Macro aufrufen kann. Wer weiß die genaue Syntax? Danke Wolfram

Antwort 1 von Beverly

Hi Wolfram,

hier eine Möglichkeit

Sub CommandButton1_Click()
'   *****************************************************************************************
'   * Code 18/19.10.05: Hajo_Zi, Herbers Excel-Server (Hinweis von jinx); angepasst Beverly *
'   *****************************************************************************************
    Dim StDateiname As String
    StDateiname = InputBox("Bitte Dateinamen der Worddatei eingeben!")
    Dim appWord As Object
    If Dir(StDateiname) = "" Then
        MsgBox "Word-Dokument nicht gefunden"
    Else
        Set appWord = CreateObject("Word.Application")
        appWord.Documents.Open StDateiname
    End If
'   Word makro aufrufen
    appWord.Run "Einfue_ZA"
    appWord.Quit
    Set appWord = Nothing
End Sub


Bis später,
Karin

Antwort 2 von wolfram

Hallo Karin,
Super - Danke
Wolfram

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: