Prevent customisation/keybinding of "Enter" key from breaking AutoText function

[Matt C]

Hi folks



I'm trying to work out how to keep Word 2003's AutoText function intact after creating a key binding for the Enter key.

With the key binding set, AutoText gets as far as bringing up the auto-complete suggestion tip, but pressing Enter does not add the text (as it's just following the instructions in the macro).

I could, in theory, remove the Enter customisation completely, but I'd prefer not to as I want a couple of things to happen like updating fields and populating the status bar with a message.

Is there any way of overcoming this? Here's how my coding looks:

Sub SetSmartKeys()

CustomizationContext = ActiveDocument

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), KeyCategory:= _
wdKeyCategoryMacro, Command:="SmartEnter"

End Sub

Sub SmartEnter()

' Word default action

Selection.TypeParagraph

' Update fields, then show some tips in the status bar

Application.Run MacroName:="UpdateFields"
Application.Run MacroName:="SmartKeyHelp"

End Sub

Without this key customisation, the AutoText function works normally.

[Guessed]

Have you tried the F3 key instead of trying to kick off Autotext by using the Enter key?

[Matt C]

Originally Posted by Guessed

Have you tried the F3 key instead of trying to kick off Autotext by using the Enter key?

I could do that, yes, but I want to know if there's any way of clearing up the "Enter" issue in case I want to share the template. The tip which pops up says "Press ENTER to insert".

(Also, being a touch-typist, it's much more intuitive for me to press Enter rather than F3.)

[Guessed]

I'm not able to test but perhaps this concept would work unless the selection range is exactly the same size as the autotext being inserted

Sub SmartEnter()
  Dim iStart As Long, iEnd As Long
  iStart = ActiveDocument.Range.End - Len(Selection.Range.Text)   'assumes typing replaces selection
  Selection.TypeParagraph     ' Word default action
  iEnd = ActiveDocument.Range.End
  If iStart <> iEnd - 1 Then
    MsgBox "No autotext insertion"
  Else
    MsgBox "Autotext insertion"
  End If
  
  ' Update fields, then show some tips in the status bar
'  Application.Run MacroName:="UpdateFields"
'  Application.Run MacroName:="SmartKeyHelp"
End Sub