Module löschen |
|
Module löschenDas Löschen von Forms, Modulen oder Klassen zur Laufzeit aus einer Vorlage geht erfolgt direkt über die Angabe des Namens. Befindet sich z.B. das Modul Modul1 in der Dokumentvorlage normal.dot, kann es mit folgendem Aufruf gelöscht werden: 1 Sub Modullöschen() 2 With NormalTemplate.VBProject.VBComponents 3 .Remove .Item("Modul1") 4 End With 5 End Sub Achtung:
Dieser direkte Aufruf beinhaltet aber auch ein Risiko: Wird das Makro ein zweites mal aufgerufen oder stimmt der Modul-Name nicht, wird die Fehlermeldung 9 ("Index außerhalb des gültigen Bereichs") ausgegeben, da das angegebene Modul nicht mehr in der Liste der Module vorhanden ist. 1 Sub Modullöschen2() 2 Dim i As Integer 3 Dim sName As String 4 For i = 1 To NormalTemplate.VBProject.VBComponents.Count 5 sName = NormalTemplate.VBProject.VBComponents.Item(i).Name 6 If sName = "Modul1" Then 7 With NormalTemplate.VBProject.VBComponents 8 .Remove .Item(sName) 9 End With 10 Exit For 11 End If 12 Next i 13 End Sub Um Module aus anderen Dokumentvorlagen zu entfernen, müssen diese zusätzlich in einer For ... Each Schleife durchlaufen werden. Sofern aber der Name in mehreren Vorlagen verwendet wurde, wird dieses mit obigem Makro nur beim ersten Auffinden gelöscht; u.U. wird dann das falsche Modul gelöscht. |
Besucher: 0 online | 0 heute | 0 diesen Monat | 2232594 insgesamt | Seitenaufrufe: 94 | Letzte Änderung: 24.06.2006 | © 2001-18 Christian Freßdorf | ||||
Das Paradies ist überall. Martin Luther |
powered by phpCMS and PAX |