Вы можете поэкспериментировать с чем-то вроде:
SetOptions[InputNotebook[],
InputAutoReplacements -> {"[" -> "[\[SelectionPlaceholder]]",
"{" -> "{\[SelectionPlaceholder]}",
"(" -> "(\[SelectionPlaceholder])"}]
Обратите внимание, что замена не произойдет, пока вы не введете символ после открывающей скобки. Если вам нравится результат, вы можете применить его более глобально.