Application.OrganizerDelete メソッド (Word)

  • [アーティクル]

指定されたスタイル、定型句、ツールバー、またはマクロを文書またはテンプレートから削除します。

構文

expression. OrganizerDelete( _Source_ , _Name_ , _Object_ )

expression 必須です。 Application オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
Source 必須 String 削除する項目を含む文書またはテンプレートの名前を指定します。
Name 必須 String 削除するスタイル、定型句、ツールバー、またはマクロの名前を指定します。
Object 必須 WdOrganizerObject コピーする項目の種類を指定します。

例

次の使用例は、[ユーザー設定 1] ツールバーを標準テンプレートから削除します。

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

次の使用例は、作業中の文書に添付されたテンプレートの各定型句を削除するかどうかをユーザーに確認します。 ユーザーが [はい] をクリックすると、定型句は削除されます。

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

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。