中文Word V6.0表格处理技巧 四川 陈晓敏 1996-03-08 ┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓ ┃姓名 何年何月毕业于何校 技术职务 工资总额┃ ┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛ 该表第一、三、四列只有一行字，第二列有两行字，显然，应将第一、三、四列的文字调到该行的中间。Word提供的办法是分别选取单元格，然后通过格式菜单的段落命令，通过设置段前间距的办法解决。这样不仅麻烦，而且不能掌握段前间距应设置多少才合适，需要反复调整。 笔者解决的办法是：编制一个WordBasic程序，自动识别选取单元格的行间距，然后通过行间距自动调整段前间距，可绝对保证行居中，且不受表格字体、行距大小的影响。调整后的表格如下： ┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓ ┃姓名 何年何月毕业于何校 技术职务 工资总额 ┃ ┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛ 完整的BASIC程序如下： Sub MAIN Dim hangju As FormatParagraph GetCurValues hangju a$=LeftB$(hangju,LineSpacing,2) y=Val(a$) dqjj=y/2 Formatparagraph CharAlign=3,LeftIndent="0厘米",RightIndent="0厘米",Before=dqjj, After="0磅",LineSpacingRule=3,LineSpacing="16磅",Alignment=1,WidowControl=1, KeepWithNext=0,KeepTogether=0,PageBreak=0,NoLineNum=0,DontHyphen=0,Kinsoku=1, WordWrap=1,OverflowPunct=1,TopLinePunct=0,AutoSpaceDE-0,AutoSpaceDN-0,Tab-"0", FirstIndent-"0厘米" End Sub 将该程序设置在工具栏或菜单里，使用十分方便。