title image


Smiley Re: Abfragen ob Makro vorhanden ist


nochmal meine Idee ausfühlicher.



Also dies geht, aber leider nur

über Fehler abfangen:









Option Explicit





Sub Test1()



    MsgBox ExistiertModul("ModulIndex")

    MsgBox ExistiertMakro("ModulIndex", "MakroIndex_ZurWartung_AufzunehmendeWorteLaden")



End Sub



Function ExistiertModul(strName As String) _

                           As Boolean



    Dim intDummy As Integer

    

    

    ExistiertModul = True

    On Error Resume Next

    intDummy = ActiveDocument.AttachedTemplate.VBProject.VBComponents(strName).CodeModule.CountOfLines

    If Err.Number <> 0 Then

        ExistiertModul = False

    End If

    On Error GoTo 0



End Function



Function ExistiertMakro(strNameModul As String, _

                        strNameMakro As String) _

                           As Boolean



    Dim intDummy As Integer

    

    

    ExistiertMakro = True

    If ExistiertModul(strNameModul) Then

        On Error Resume Next

        intDummy = ActiveDocument.AttachedTemplate.VBProject.VBComponents(strNameModul).CodeModule.ProcBodyLine(strNameMakro, vbext_pk_Proc)

        If Err.Number <> 0 Then

            ExistiertMakro = False

        End If

        On Error GoTo 0

    Else

        ExistiertMakro = False

    End If

    

End Function







Code eingefügt mit Syntaxhighlighter 2.4





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: