下面是我自己查的一段代码，但总是运行出错。  
  Do While fileName <> ""
        ' 打开CAD文件
        Dim acadDoc As AcadDocument
        Set acadDoc = Application.Documents.Open(folderPath & fileName) 'ThisDrawing.Application.Documents.Open(folderPath & fileName)
        
        ' 选择所有文字对象
        Dim selSet As AcadSelectionSet
        Set selSet = acadDoc.SelectionSets.Add("MySelectionSet")
        selSet.Select acSelectionSetAll, , , Array("", "", "", "*Text")''''运行到这里总是出错。运行到这里总是出错。运行到这里总是出错。
        
        ' 遍历选中的文字对象
        Dim objText As AcadText
        For Each objText In selSet
            ' 如果找到指定的文字
            If InStr(1, objText.TextString, oldText, vbTextCompare) > 0 Then
                ' 替换文字
                objText.TextString = Replace(objText.TextString, oldText, newText, , , vbTextCompare)
               
                ' 增加计数器
                counter = counter + 1
            End If
        Next
        
        ' 清除选择集
        selSet.Delete
        
        ' 保存并关闭CAD文件
        acadDoc.Save
        acadDoc.Close
        
        ' 进入下一个DWG文件
        fileName = Dir()
    Loop

也还是在我原来的位置那里出错，显示
参数Filter type   or   FilterData无效。