|
编程中碰到文字对齐问题，附件中为修改前后的文档。我想编程使得其中的“计算日期”与下行中的“界址点数”对齐，如何实现呢？我尝试了使用
...
'定义一个字常量，其值为“计算日期”
Const jsrqtext As String = "计算日期"
'定义一个字常量，其值为“界址点数”
Const jzdstext As String = "界址点数"
...
If VBA.InStr(.Range, jsrqtext) <> VBA.InStr(.Next.Range, jzdstext) Then
.Range.Find.Execute findtext:=jsrqtext, Forward:=True
jsrqst = Val(.Range.Information(wdHorizontalPositionRelativeToPage))
.Next.Range.Find.Execute findtext:=jzdstext, Forward:=True
jzdsst = Val(.Next.Range.Information(wdHorizontalPositionRelativeToPage))
tabcha = Fix((jsrqst - jzdsst) / 21)
If tabcha < 0 Then
.Range = VBA.Replace(.Range, jsrqtext, String(-tabcha, 9) & jsrqtext)
ElseIf tabcha > 0 Then
.Next.Range = VBA.Replace(.Next.Range, jzdstext, String(tabcha, 9) & jzdstext)
End If
...
通过获得文字距离页边的距离，但是尝试很久，没有成功，望大大教我！
MJSuch2H.rar
(20.4 KB, 下载次数: 17)
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2005-7-13 16:09
楼主