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

Matt C · #1 02-07-2022, 11:08 AM

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:

Quote:

Sub SetSmartKeys()

CustomizationContext = ActiveDocument

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

End Sub

Quote:

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 · #2 02-07-2022, 08:48 PM

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

Matt C · #3 02-08-2022, 05:31 AM

Quote:

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 · #4 02-09-2022, 05:16 PM

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

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Excel 2003: VBA "Function" causes "#VALUE!" errors after running "insert/delete row" custom macro	Matt C	Excel Programming	2	01-08-2022 06:03 AM
Conditional function to operate a formula based on "Yes" or "No" Condition	Des ONeill	Excel	1	07-03-2021 12:17 AM
Condtional function to operate a formula based on "Yes" or "No"	Des ONeill	Excel	3	07-03-2021 12:16 AM
Keybinding 3 keys throws an "issue"	rjrichar40	Word VBA	1	08-13-2014 07:42 AM
How do I prevent the "author" or "owner" fields from being changed?	Bones	Word	3	06-08-2012 12:15 AM