中文Word V6.0表格处理技巧

Author: 四川 陈晓敏 Date: 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
        将该程序设置在工具栏或菜单里,使用十分方便。