使用vba编程时,碰到需要将两行中的部分文字对齐,我想将下面修改前文档中的“计算日期”与下行中的“界址点数”使用TAB对齐。努力了很久,没有解答。望各位大大教我。
我的代码如下:
Sub a()
Dim a As Integer, b As Integer, c As Integer
Dim i As Paragraph
Dim myrange As Range
For Each i In ActiveDocument.Paragraphs
If i.Range.Find.Execute(FindText:="计算日期", Forward:=True, Wrap:=wdFindStop) = True Then
Set myrange = ActiveDocument.Range(i.Range.Start, i.Next.Range.End - 1)
With i.Range.Find
.Execute FindText:="计算日期", Forward:=True
a = .Parent.Information(wdHorizontalPositionRelativeToPage)
End With
With myrange.Find
.Execute FindText:="界址点数", Forward:=True
b = .Parent.Information(wdHorizontalPositionRelativeToPage)
c = a - b
MsgBox c
If c < 0 Then
myrange = VBA.Replace(myrange, jsrqtext, String(-c, 9) & jsrqtext)
ElseIf c > 0 Then
myrange = VBA.Replace(myrange, jzdstext, String(c, 9) & jzdstext)
End If
End With
End If
Next
End Sub
文档处理修改前:
宗地面积量算表
土地使用者:北京经济技术开发区
土地坐落: 北门口村1
地类号:
面积(平米):16022.9 计算日期: 2005年7月12日
宗地编号: 北门口村1总面积 界址点数: 24
宗地面积量算表
土地使用者:北京经济技术开发区
土地坐落: 北门口村2
地类号:
面积(平米):205007.4 计算日期: 2005年7月12日
宗地编号: 北门口村2总面积 界址点数: 78
文档处理修改后:
宗地面积量算表
土地使用者:北京经济技术开发区
土地坐落: 北门口村1
地类号:
面积(平米):16022.9 计算日期: 2005年7月12日
宗地编号: 北门口村1总面积 界址点数: 24
宗地面积量算表
土地使用者:北京经济技术开发区
土地坐落: 北门口村2
地类号:
面积(平米):205007.4 计算日期: 2005年7月12日
宗地编号: 北门口村2总面积 界址点数: 78
附带修改前后文本:
dFLmpcU2.rar
(20.4 KB, 下载次数: 30)
|