[5分]VBA代码无法自动缩进

ACCESS 2007中，代码无法自动缩进。经检查，工具->选项->编辑器选项卡中的“自动缩进(I)”已勾选，并设置“Tab宽度(T)”为4。另外，用从UMV网站下载的SMART INDENT工具也无效。

实例：

'修改窗体的获得焦点事件代码
Private Sub 序号_GotFocus()
On Error GoTo err_序号_gotfocus:
selectlong = Me.序号
Forms!usysfrmMain!labFind.Tag = 1
Forms!usysfrmMain!btnEdit.Tag = 999
exit_序号_gotfocus:
Exit Sub
err_序号_gotfocus:
Resume exit_序号_gotfocus
End Sub

这段代码就不能让其自动按VBA的规范缩进，影响代码查看。

问题：

如何解决上述异常？