MMa全书中的一个例子：
nb = SelectedNotebook[];
NotebookWrite[nb, "Expand[(1+x\!\(\*SuperscriptBox[\()\), \(4\)]\)]", \
All]
NotebookApply[nb, "x + 1/\[SelectionPlaceholder]"]
SelectionMove[nb, All, CellContents]
SelectionEvaluate[nb]
运行结果为：
x + 1/(1 + 4 x + 6 x^2 + 4 x^3 + x^4)

类似的一段代码：
nb = SelectedNotebook[];
NotebookWrite[nb, "10!", All]
SelectionEvaluateCreateCell[nb, All]
NotebookApply[nb, "FactorInteger[\[SelectionPlaceholder]]", All]
运行结果为：
FactorInteger::exact: FactorInteger[\[SelectionPlaceholder]] 中的参数 \[SelectionPlaceholder] 不是一个精确数.

……你版本几？我版本9.0.1后一段可以，前一段反而不行。（把前一段的字符串里的代码改成InputForm也行。）

像我这种“三天打鱼两天晒网”的人估计是永远学不精MMa了吧？

试了一下，版本11.2两段都行啊。（版本9第一段通不过是Bug？）：