Man kan kode sig ud af det kopier koden ind i macro editoren. Koden knytter EnterKeyMacro() når man åber word-filen, og fjerner den igen når det lukkes.
Sub EnterKeyMacro()
Selection.TypeText Text:="Hej med dig"
' Tilføj også et enter
Selection.TypeParagraph
' Selection.TypeText Chr(13)
End Sub
Sub AutoOpen()
' This macro will reassign the ENTER key
CustomizationContext = ActiveDocument.AttachedTemplate
' Bind the Enter key to the EnterKeyMacro.
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
End Sub
Sub AutoClose()
CustomizationContext = ActiveDocument.AttachedTemplate
FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
' Disables prompt to save template changes.
Templates(1).Save
End Sub
Men hjælp fra MS:
http://support.microsoft.com/default.aspx?kbid=187985Er det en template som så kan du også tilføje denne så nye dokumenter baseret på templaten får din egen "enter" funktion:
Sub AutoNew()
CustomizationContext = ActiveDocument.AttachedTemplate
' Bind the ENTER key to the EnterKeyMacro.
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
End Sub