制表位的机理还是比较复杂的,它与文档的默认制表位设置、段落制表位设置和自定义制表位设置等都有关系,具体关系到何种程度,需要视文档的实现情况来分析。
以下代码可以将自动编号与文本间的距离缩为零。 '* +++++++++++++++++++++++++++++
'* Created By I Love You_Word!@ExcelHome 2005-3-11 12:02:39
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* -----------------------------
Sub ExampleForClearTabStop()
Dim tsLoop As TabStop, P As Paragraph
On Error Resume Next
Application.ScreenUpdating = False
For Each P In ActiveDocument.Paragraphs
For Each tsLoop In P.TabStops
tsLoop.Clear
Next tsLoop
Next
Application.ScreenUpdating = True
End Sub
'----------------------
[此贴子已经被作者于2005-3-11 12:02:46编辑过] |