Sub AutoOpen() CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _ KeyCategory:=wdKeyCategoryMacro, Command:="nada" End Sub ---- Sub nada() End Sub ----Para volver la tecla INTRO a su estado normal:
Sub restituye() CustomizationContext = NormalTemplate FindKey(BuildKeyCode(wdKeyReturn)).Clear End Sub