Hi Andy,

I am also getting the same problem i.e "The macro caanot be found or has
been disabled because of your macro settings".

I have developed a shared add-in in vb.net for MS Word 2003 which i am
adding a new commandbar button in "Tools" commandbars and i have written a
commandbar control event which displays a message box.

everything is working fine but after displaying a message box i am getting a
dialog box saying that "The macro caanot be found or has been disabled
because of your macro settings". Currently my macro settings are medium and i
tried even with low and i did check in "Trust all installed addins and
templates".

I did develop the same addin in couple of boxes but i am getting this dialog
box("The macro caanot be found or has been disabled because of your macro
settings") in both of the boxes.

here is the add-in code

code:
--------------------------

Public Class Connect

   Implements Extensibility.IDTExtensibility2
   Dim applicationObject As Object
   Dim addInInstance As Object
   Dim objCommandBars As Microsoft.Office.Core.CommandBars
   Dim objCommandBar As Microsoft.Office.Core.CommandBar
   Dim objCommandBarControl As Microsoft.Office.Core.CommandBarControl
   Dim WithEvents objCommandBarButton As
Microsoft.Office.Core.CommandBarButton

Public Sub OnStartupComplete(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnStartupComplete
       Try
           AddDocManagerMenuItem()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub



Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements
Extensibility.IDTExtensibility2.OnBeginShutdown
       Try
           applicationObject.CommandBars.Item("Tools").Controls.Item("MY
Document Manager").Delete()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

   End Sub



Private Sub AddDocManagerMenuItem()

       Try
           objCommandBars = applicationObject.CommandBars
           objCommandBar = objCommandBars.Item("Tools")

           For Each objCommandBarControl In objCommandBar.Controls
               If Trim(objCommandBarControl.Caption) = "MY Document
Manager" Then
                   objCommandBar.Controls.Item("MY Document
Manager").Delete()
               End If
           Next objCommandBarControl

           objCommandBarButton = objCommandBar.Controls.Add(msoControlButton)
           With objCommandBarButton

               .Caption = "MY Document Manager"
               .Tag = "MY Document Manager tag"
               .OnAction = "MY Document Manager action"
               .Visible = True
               .TooltipText = "MY Document Manager tool tip"
           End With

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

   End Sub

Private Sub objCommandBarButton_Click(ByVal Ctrl As
Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
Handles objCommandBarButton.Click
       Try
           MsgBox("Menu item clicked")
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

   End Sub

End Class



Is there any problem in code or is it to do the word settings?

Any ideas please?

cheers

Praveen