"Can't execute code in design mode" error message when starting Word 2010

Question

I just upgraded from Office XP to Office 2010. Now whenever I start Word I get the error message "Can't execute code in design mode." I want this to go away.

Answer 1

On Thu, 19 Aug 2010 00:17:52 +0000, My Annie wrote:

I just upgraded from Office XP to Office 2010. Now whenever I start Word I get the error message "Can't execute code in design mode." I want this to go away.

Look if there is something in the start-up folder or an add-in that is

interfering with Word. See:

http://support.microsoft.com/kb/921541

---

Gérard

Answer 2

I encountered the same error message with design mode in another context. Every time I opened a document (that contains an AutoOpen procedure), I was told that code could not be executed in design mode.

 

The following solution worked. Place this procedure in normal.dotm:

 

Private Sub AutoOpen()

Dim Index As Byte

With ActiveDocument.VBProject

For Index = 1 To .VBComponents.count

With .VBComponents(Index)

If .HasOpenDesigner Then .DesignerWindow.Close

End With

Next

End With

End Sub

 

"Private" to ensure that there will be no conflict with other "AutoOpen" procedures.

 

I found this code somewhere on the net. My only contribution is placing it universally functioning in Normal.dotm (and using "Byte" in stead of "Long").

 

The funny thing is that after having closed and opened Word one or two times I could remove this piece of code from Normal.dotm - and the problem was gone.

 

Best wishes

HansJLassen

 

I am trying to troubleshoot this same problem. I upgraded a user from 07 to 2010. Once I open normal.dotm where do I put this code???

Answer 3

I encountered the same error message with design mode in another context. Every time I opened a document (that contains an AutoOpen procedure), I was told that code could not be executed in design mode.

The following solution worked. Place this procedure in normal.dotm:

Private Sub AutoOpen()

Dim Index As Byte

With ActiveDocument.VBProject

For Index = 1 To .VBComponents.count

With .VBComponents(Index)

If .HasOpenDesigner Then .DesignerWindow.Close

End With

Next

End With

End Sub

"Private" to ensure that there will be no conflict with other "AutoOpen" procedures.

I found this code somewhere on the net. My only contribution is placing it universally functioning in Normal.dotm (and using "Byte" in stead of "Long").

The funny thing is that after having closed and opened Word one or two times I could remove this piece of code from Normal.dotm - and the problem was gone.

Best wishes

HansJLassen