高级表格表头自动换行

gb.表头行数 ＝ 0
.计次循环首 (gb.列数, x)
临时字 ＝ 取文本长度 (到文本 (gb.取数据 (0, x － 1)))
加入成员 (lssz, 到文本 (gb.取数据 (0, x － 1)))
.如果真 (临时字 ＞ 总字数)
总字数 ＝ 临时字
.如果真结束
.计次循环尾 ()
总字数 ＝ 到整数 (四舍五入 (总字数 ÷ 2, 0))
行字数 ＝ 取整 (gb.取列宽 (1) ÷ 15)
gb.列宽 ＝ 字数 × (15 ＋ 宽)
.如果 (寻找文本 (到文本 (总字数 ÷ 字数), “.”, , 假) ＝ -1)
gb.置行高 (0, 总字数 ÷ 字数 × (24 ＋ 高))
.否则
gb.置行高 (0, (总字数 ÷ 字数 ＋ 1) × (24 ＋ 高))
.如果结束
.计次循环首 (gb.列数, x)
gb.置数据 (0, x － 1, 1, lssz [x])
.计次循环尾 ()
gb.置自动换行 (0, 0, 0, gb.列数 － 1, 真)
gb.表头行数 ＝ 1