Application.OrganizerDelete-Methode (Word)

Löscht die angegebene Formatvorlage, den AutoText-Eintrag, die Symbolleiste oder das Makroprojektelement aus einem Dokument oder einer Vorlage.

Syntax

Ausdruck. OrganizerDelete( _Source_ , _Name_ , _Object_ )

Ausdruck: Erforderlich. Eine Variable, die ein Application -Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Source	Erforderlich	String	Der Name des Dokuments oder der Vorlagendatei, die das zu löschende Element enthält.
Name	Erforderlich	String	Der Name des zu löschenden Elements (Formatvorlage, AutoText-Eintrag, Symbolleiste oder Makro).
Objekt	Erforderlich	WdOrganizerObject	Der Objekttyp, der kopiert werden soll.

Beispiel

In diesem Beispiel wird die Symbolleiste Custom1 aus der Vorlage Normal gelöscht.

Dim cbLoop As CommandBar 
 
For Each cbLoop In CommandBars 
 If cbLoop.Name = "Custom 1" Then 
 Application.OrganizerDelete Source:=NormalTemplate.Name, _ 
 Name:="Custom 1", _ 
 Object:=wdOrganizerObjectCommandBars 
 End If 
Next cbLoop

In diesem Beispiel wird der Benutzer aufgefordert, alle AutoText-Einträge in der mit dem aktiven Dokument verbundenen Vorlage zu löschen. Klickt der Benutzer auf die Schaltfläche Yes, werden die AutoText-Einträge gelöscht.

Dim atEntry As AutoTextEntry 
Dim intResponse As Integer 
 
For Each atEntry In _ 
 ActiveDocument.AttachedTemplate.AutoTextEntries 
 intResponse = _ 
 MsgBox("Do you want to delete the " & atEntry.Name _ 
 & " AutoText entry?", vbYesNoCancel) 
 If intResponse = vbYes Then 
 With ActiveDocument.AttachedTemplate 
 Application.OrganizerDelete _ 
 Source:= .Path & "\" & .Name, _ 
 Name:=atEntry.Name, _ 
 Object:=wdOrganizerObjectAutoText 
 End With 
 ElseIf intResponse = vbCancel Then 
 Exit For 
 End If 
Next atEntry

Siehe auch

Application-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.