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