Sub Aufruf()  
' Wichtig: _
Diese Hilfsfunktion wertet die Kommandozeile aus und MUSS vorhanden sein  
Dim s As String
Dim sProz() As String, sPara() As String
Dim sMakro As String
Dim sProzedur As String
Dim iPos As Integer
Dim sParameter() As String
s = ShowCommandline  ' API zum Auslesen der Kommandozeile  
' Anführungszeichen entfernen  
s = Replace(s, Chr(34), "")
sProz() = Split(s, "/m")  ' Makroname abtrennen  
If UBound(sProz()) = 0 Then
    MsgBox "Word wurde ohne Parameterliste aufgerufen.", vbInformation, ""
    Exit Sub  
End If
sPara() = Split(sProz(1), "/p")  'Prozeduren und Parameter abtrennen  
' Makroname  
sMakro = Trim(sPara(0))
' Aufzurufende Prozedur  
sProzedur = Trim(sPara(1))
' Parameter-Array ermitteln  
ReDim sParameter(UBound(sPara) - 2)
' Schleife über alle angegebenen Parameter  
For iPos = 2 To UBound(sPara)
    ' HochKomma entfernen  
    sParameter(iPos - 2) = Replace(Mid(sPara(iPos), InStr(1, sPara(iPos), Chr(39))), Chr(39), "")
Next iPos
On Error GoTo err_Call
' Angegebene Prozedur aufrufen  
' sProzedur: Name des Makros, das die Kommandozeile auswertet  
' sMakro: Name des aufzurufenden Makros  
' s: Komplette Kommandozeile  
' sParameter(): Array mit allen angegebenen Parametern  
Application.Run sProzedur, sProzedur, sMakro, s, sParameter()
Exit Sub  
err_Call:
MsgBox "Fehler in der Kommandozeile:" & vbCrLf & s
End Sub