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

　　┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓
　　┃姓名　　何年何月毕业于何校　　技术职务　　工资总额┃
　　┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛
　　该表第一、三、四列只有一行字，第二列有两行字，显然，应将第一、三、四列的文字调到该行的中间。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
　　将该程序设置在工具栏或菜单里，使用十分方便。