テキストフレームの1段の幅(縦組みなら高さ)を変えずに段数を1つ減らすやつ
f=app.selection[0],vb=f.visibleBounds,tp=f.textFramePreferences,is=tp.insetSpacing,cc=tp.textColumnCount,cg=tp.textColumnGutter,sw=f.strokeWeight;
f.parentStory.storyPreferences.storyOrientation%4?(i=1,j=3,k="Horizontal"):(i=0,j=2,k="Vertical");
vb[j]-=((vb[j]-vb[i])-(sw*2+is[i]+is[j]-cg)*f["absolute"+k+"Scale"]/100)/cc;
tp.textColumnCount--,f.visibleBounds=vb;// #dtp