Outlook - My zoom does not work in Outlook 2010 how do I enable it?

Asked By Carlos Alarcon on 24-Apr-13 06:53 PM
I found a possible solution searching the web, it recommended to copy the following  code in the VBA editor:
Option Explicit
Dim WithEvents objInspectors As Outlook.Inspectors
Dim WithEvents objOpenInspector As Outlook.Inspector
Dim WithEvents objMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set objInspectors = Application.Inspectors
End Sub

Private Sub Application_Quite()
Set objOpenInspector = Nothing
Set objInspectors = Nothing
Set objMailItem = Nothing
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMailItem = Inspector.CurrentItem
Set objOpenInspector = Inspector

End If
End Sub
Private Sub objOpenInspector_Close()

Set objMailItem = Nothing
End Sub

Private Sub objOpenInspector_Activate()

Dim wdDoc As Word.Document
Set wdDoc = objOpenInspector.WordEditor
wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 140

End Sub

But it returns an error in:

Private Sub objOpenInspector_Activate()

What is the best solution to enable the zoom, Help please