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
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.