分栏操作评分无法实现的原因？

Private Sub CommandButton1_Click()
Dim str_Wrong As String    '记录考生的错误操作
   '以下检查文件是否存在，即要求的（7）
Dim int_Count As Integer, int_RCount As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
   If Not fs.FileExists("D:\Y\1.doc") Then
      MsgBox "没有发现文件：D:\Y\done.doc"
      Exit Sub
   End If
   Dim myDoc As Document
   Set myDoc = Documents.Open("D:\Y\1.doc") '打开文件
   str_Wrong = "以下为考生的错误操作:" & Chr(13)

  If myDoc.Paragraphs(2).Range.PageSetup.TextColumns.Count <> 1 _
         And myDoc.Paragraphs(4).Range.PageSetup.TextColumns.Count <> 1 Then
      str_Wrong = str_Wrong & "考生将正文的第1段或第3段设置了分栏" & Chr(13)
   End If
     
   With myDoc.Paragraphs(3).Range.PageSetup.TextColumns  
      If .Count <> 3 Then
         str_Wrong = str_Wrong & "正文的第2段没有设置成3栏"
                  Else
         If Not .EvenlySpaced Then
            str_Wrong = str_Wrong & "栏宽设置错误"
         
         End If
         If Not .LineBetween Then
            str_Wrong = str_Wrong & "分隔线设置错误" & Chr(13)
        End If
      End If
   End With
End Sub
请问：分栏已经是三栏，为什么不执行呢？请各位帮一下

不要让它沉下去，自已顶一下