Shift enter mapping

I created the Macros as Greg suggested but I am having a problem with it
working. These macros were added to a template other than Normal.dot and I
have placed the template in the startup folder. What I am finding is the
first time I open MS Word the macros are not working. If I closed the
initial document and create a new document the macros work. Does anyone know
how I can get it working on the document that opens first?

"I would create a
template with the following macros and use it for documents that you want use
this feature for:

Sub AutoNew()

'Assigns the Macro1 Macro to the ENTER Key
CustomizationContext = ActiveDocument.AttachedTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="Macro1"

End Sub
Sub AutoOpen()

'Assigns the Macro1 Macro to the ENTER Key
CustomizationContext = ActiveDocument.AttachedTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="Macro1"

End Sub
Sub AutoClose()

CustomizationContext = ActiveDocument.AttachedTemplate
FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
'Disables prompt to save template changes
Templates(1).Save

End Sub

Sub Macro1()
'
' Macro1 Macro
' Macro recorded December 1, 2004 by CDR Gregory K. Maxey
'
Selection.TypeText Text:=Chr(11)
End Sub"

Peter
Tue Dec 07 16:14:08 CST 2004

In order to have the keybinding happen every time Word runs, you need an =
AutoExec() Sub that mirrors the AutoNew() and AutoOpen() ones. Note =
that since it's in the Startup folder, the keybinding will apply to ALL =
documents you open. Hence Greg's suggestion that you use it only for =
specific documents, and his neglect of AutoExec().

hth,

-Peter

"jbickel" <jbickel@discussions.microsoft.com> wrote in message =
news:57393ED4-6FFB-4C07-9049-E9F85C83C7B1@microsoft.com...
> I created the Macros as Greg suggested but I am having a problem with =
it=20
> working. These macros were added to a template other than Normal.dot =
and I=20
> have placed the template in the startup folder. What I am finding is =
the=20
> first time I open MS Word the macros are not working. If I closed the =

> initial document and create a new document the macros work. Does =
anyone know=20
> how I can get it working on the document that opens first?
>=20
> "I would create a=20
> template with the following macros and use it for documents that you =
want use=20
> this feature for:
>=20
> Sub AutoNew()
> =20
> 'Assigns the Macro1 Macro to the ENTER Key
> CustomizationContext =3D ActiveDocument.AttachedTemplate
> KeyBindings.Add KeyCode:=3DBuildKeyCode(wdKeyReturn), _
> KeyCategory:=3DwdKeyCategoryMacro, Command:=3D"Macro1"
>=20
> End Sub
> Sub AutoOpen()
> =20
> 'Assigns the Macro1 Macro to the ENTER Key
> CustomizationContext =3D ActiveDocument.AttachedTemplate
> KeyBindings.Add KeyCode:=3DBuildKeyCode(wdKeyReturn), _
> KeyCategory:=3DwdKeyCategoryMacro, Command:=3D"Macro1"
>=20
> End Sub
> Sub AutoClose()
>=20
> CustomizationContext =3D ActiveDocument.AttachedTemplate
> FindKey(KeyCode:=3DBuildKeyCode(wdKeyReturn)).Disable
> 'Disables prompt to save template changes
> Templates(1).Save
> =20
> End Sub
>=20
> Sub Macro1()
> '
> ' Macro1 Macro
> ' Macro recorded December 1, 2004 by CDR Gregory K. Maxey
> '
> Selection.TypeText Text:=3DChr(11)
> End Sub"