Public Sub Unload()
Dim b As Block
Set b = ActiveDocument.Blocks(1)
b.Unload
MsgBox "Blocks(1) has been unloaded."
End Sub
Block Collection | Block Members