Microsoft Office Forums - View Single Post - Prevent customisation/keybinding of "Enter" key from breaking AutoText function

Guessed · 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