Thank you,Graham.
There is a little problem.
When I run the Word, it will automatically open
a new document,but the VBA code doesn't run.
How to repair it ?
Assuming you have macro security set to medium - add the following macros:
Sub AutoExec()
Application.OnTime _
When:=Now + TimeValue("00:00:03"), Name:="OutlineBar"
End Sub
Sub OutlineBar()
CommandBars("Outlining").Visible = True
End Sub
This will insert a short delay when Word is firts run, before applying the
bar

Signature
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Thank you,Graham.
> There is a little problem.
> When I run the Word, it will automatically open
> a new document,but the VBA code doesn't run.
> How to repair it ?