[求助]帮忙看看这段代码的问题？！

yourcells

Private Sub cmdValidate_Click()
Dim STime As String
    On Error Resume Next
    If Tasks.Exists("Microsoft Word") = True Then
        Set wd = GetObject(, "Word.Application")
    Else
        Set wd = CreateObject("Word.Application")
    End If
    STime = Now
'    With wd
        With wd.FileSearch
            .LookIn = MyFolder
            .SearchSubFolders = True
            .Filename = MyType
            If .Execute > 0 Then
'            Debug.Print .FoundFiles.Count & " file(s) found."
'            End If
                MsgBox "指定文件夹中共找到 " & .FoundFiles.Count & " 个文件。" & vbCrLf & vbCrLf & "下面开始验证可行性，请稍候……"
                For i = 0 To .FoundFiles.Count
                    wd.Documents.Open Filename:=.FoundFiles(i)
'                    Debug.Print .FoundFiles(i) & "   " & ActiveDocument.Sentences.Count
                    n = n + wd.ActiveDocument.Sentences.Count
                    wd.ActiveDocument.Close
                Next
                If n > 1048576 Then
                    MsgBox "翻译单元过多，超出可处理的范围。"
                    cmdGet.Enabled = False
                    cmdTrim.Enabled = False
'                    cmdTag.Enabled = False
                    Exit Sub
                ElseIf n <= 65536 Then
                    MsgBox "验证成功，请继续操作。" & vbCrLf & vbCrLf & "验证开始于：" & STime & vbCrLf & "验证结束于：" & Now()
                    cmdGet.Enabled = True
                    ReDim FN(n)
                    ReDim FU(n)
                Else
                    MsgBox "此版本无法处理如此大量的数据，请使用 Excel 2007 进行进一步处理。"
                    cmdGet.Enabled = False
                    cmdTrim.Enabled = False
'                    cmdTag.Enabled = False
                End If
            Else
                MsgBox "制定文件夹中没有 " & Right$(MyType, 3) & " 类型的文件。"
            End If
        End With
'    End With
        
End Sub

大侠帮忙看看这段代码的问题吧。我的初衷是想重新定义数组FN和FU的大小（蓝色处），但是运行到红色位置处就有问题了，因为分步执行的时候发现 wd 的结果始终是 nothing。请高人指点。多谢！

守柔

楼主的代码应该是在EXCEL中运行，而：

Dim STime As String
    On Error Resume Next
    If Tasks.Exists("Microsoft Word") = True Then
        Set wd = GetObject(, "Word.Application")
    Else
        Set wd = CreateObject("Word.Application")
    End If
Task对象是Word中的对象，不是Excel中的对象。

可直接：

    On Error Resume Next
    Set wd = GetObject(, "Word.Application")
    if Err.number<>0 then 
    err.clear
    Set wd = CreateObject("Word.Application")
    End If

yourcells

多谢守柔版主，您这招果然好使。
我写那个看起来也可以，可是就是得不到word的对象，哈哈。
多谢咯！