为什么自动分栏程序，运行到后面变成了全部都分栏了

ywzx703

1. Sub 循环遍历段落()
   
2.     Dim i As Paragraph
   
3.     'Application.ScreenUpdating = False
   
4.     For Each i In ActiveDocument.Paragraphs
   
5.         字数 = i.Range.Characters.Count
   
6.         内容 = Left(i.Range, 1)
   
7.         
   
8.         If 字数 < 15 Then 计数 = 计数 + 1 Else 计数 = 0
   
9.         DLS = DLS + 1
   
10.         STA = DLS - 3
    
11.         
    
12.         'If 字数 < 30 Then MsgBox 字数 & 内容
    
13.         'If 计数 > 3 Then MsgBox STA & "-" & DLS & 内容 & 字数S
    
14.         If 计数 > 3 And 内容 = "D" Then
    
15.         ActiveDocument.Range(ActiveDocument.Paragraphs(STA).Range.Start, ActiveDocument.Paragraphs(DLS).Range.End).Select
    
16.         计数 = 0
    
17.         If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    
18.             ActiveWindow.Panes(2).Close
    
19.         End If
    
20.         If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
    
21.             ActiveWindow.ActivePane.View.Type = wdPrintView
    
22.         End If
    
23.         Selection.PageSetup.TextColumns.SetCount NumColumns:=2  '分栏
    
24.         Selection.PageSetup.TextColumns.EvenlySpaced = True     '各栏平均
    
25.         'MsgBox 字数 & 内容 & 计数
    
26. 
    
27.         End If
    
28.         k = k + 1
    
29.         If k > 1000 Then Exit For
    
30.     Next
    
31.     'Application.ScreenUpdating = True
    
32. End Sub

复制代码

我只是想选项分栏的