设置文字自适应表格单元可以自动调整文字宽度，但如果文字不满格会自动加宽字间隔

增加下列两行代码问题可解决，但代码不具备通用性。
IF “自习1＂ ＄ WordCellText OR "自习2＂ ＄ WordCellText
   WordTable.Tables.item(1).Cell(k,i-6*(m-1)).Range.Font.Size=8
ENDIF

word啊

为啥不用VFP打印呢？
如果想分享电子文档，可以打印到PDF
在VFP里控制打印多方便啊

[此贴子已经被作者于2021-11-12 20:19编辑过]

你的学科名称一般是2个汉字，当自习1　时，长度超过4个字节了，把上面的IF换成　判断长度　应该有通用性了。