praveen
Tue Apr 18 03:28:01 CDT 2006
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
"Andy Fish" wrote:
>
> "Cindy M -WordMVP-" <C.Meister-C@hispeed.ch> wrote in message
> news:VA.0000bc37.00d8f755@speedy...
> > Hi Andy,
> >
> >> The first time the add-in generates an untrapped exception, it will never
> >> be
> >> invoked again (even if word is restarted, the machine rebooted or, as in
> >> this case, office is reinstalled !!)
> >>
> >> Strangely, the item remains on the menu (even after uninstalling the
> >> add-in!!) but it is not loaded and therefore can't be invoked.
> >>
> > Since the "temporary" setting has no meaning for a commandbar control in
> > the
> > Word environment, it's not surprising that the item would remain. The
> > Addin was
> > disconnected, so any code you may have in the Addin to remove the control
> > won't
> > fire.
> >
>
> Thanks for clarifying that. All the sample code I have seen adds the control
> every time word starts up, so I had assumed that they were specific to that
> "session" of word
>
> Andy
>
> > Cindy Meister
> > INTER-Solutions, Switzerland
> >
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
> >
http://www.word.mvps.org
> >
> > This reply is posted in the Newsgroup; please post any follow question or
> > reply
> > in the newsgroup and not by e-mail :-)
> >
>
>
>