Option Explicit
Sub Main
	Dim op As FMOperation
	Dim doc As FMDocument
	Dim opers As FMOperations

	Set doc = Application.ActiveDocument
	Set opers = doc.Operations

	For Each op In opers
		Dim holderType As tagFMToolHolderType
		Dim holderName As String
		Dim holderTypeString As String
		Dim holder As FMToolHolder

		holderName = op.Tool.Holder

		If holderName = "" Then
			' there is no specific holder assigned to this tool, so use the default one
			Set holder = op.Tool.DefaultHolder
			holderName = holder.Name
		Else
			' a specific holder has been assigned to this tool.
			' look it up by name
			Set holder = doc.ActiveToolCrib.ToolHolders(holderName)
		End If

		holderType = holder.HolderType
		If holderType = eTHT_ColletHolder Then
			holderTypeString = "collet"
		ElseIf holderType = eTHT_EndmillHolder Then
			holderTypeString = "endmill"
		ElseIf holderType = eTHT_SpindleHolder Then
			holderTypeString = "spindle"
		End If

		MsgBox op.FeatureName & vbNewLine & _
		op.OperationName & vbNewLine & _
		"holder type: " & holderTypeString & vbNewLine & _
		"holder name: " & holderName
	Next
End Sub