Excel VBA 宏：未定义用户定义的类型

Question

尝试执行此宏时出现上述错误。 我对宏和一般编码很陌生，所以请原谅我的无知。

Sub DeleteEmptyRows()

Dim oTable As Table, oRow As Row, _
TextInRow As Boolean, i As Long

Application.ScreenUpdating = False

For Each oTable In ActiveDocument.Tables
    For Each oRow In oTable.Rows

        TextInRow = False

        For i = 2 To oRow.Cells.Count
            If Len(oRow.Cells(i).Range.Text) > 2 Then
                'end of cell marker is actually 2 characters
                TextInRow = True
                Exit For
            End If
        Next

        If TextInRow = False Then
            oRow.Delete
        End If
    Next
Next
Application.ScreenUpdating = True

End Sub

Answer 1

您的错误是由以下原因引起的：

Dim oTable As Table, oRow As Row,

这些类型Table和Row不是 Excel 固有的变量类型。 您可以通过以下两种方式之一解决此问题：

1. 包括对 Microsoft Word 对象模型的引用。 从工具中执行此操作 | 引用，然后添加对 MS Word 的引用。 虽然不是绝对必要，但您可能希望将Dim oTable as Word.Table, oRow as Word.Row等对象完全限定Dim oTable as Word.Table, oRow as Word.Row 。 这称为早期绑定。
2. 或者，要使用后期绑定方法，您必须将对象声明为通用Object类型： Dim oTable as Object, oRow as Object 。 使用此方法，您无需添加对 Word 的引用，但也会失去 VBE 中的智能感知帮助。

我没有测试过你的代码，但我怀疑ActiveDocument不能在 Excel 中使用方法 #2，除非你将它正确地限定到 Word.Application 对象的一个​​实例。 我在您提供的代码中的任何地方都没有看到。 一个例子是这样的：

Sub DeleteEmptyRows()
Dim wdApp as Object
Dim oTable As Object, As Object, _
TextInRow As Boolean, i As Long

Set wdApp = GetObject(,"Word.Application")

Application.ScreenUpdating = False

For Each oTable In wdApp.ActiveDocument.Tables

Answer 2

我参加聚会迟到了。 尝试替换如下，我的工作完美 - “DOMDocument”到“MSXML2.DOMDocument60”“XMLHTTP”到“MSXML2.XMLHTTP60”

Answer 3

Sub DeleteEmptyRows()  

    Worksheets("YourSheetName").Activate
    On Error Resume Next
    Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

以下代码将删除工作表 (YourSheetName) 上 A 列内容为空的所有行。

编辑：未定义的用户定义类型是由“oTable As Table”和“oRow As Row”引起的。 用 Object 替换 Table 和 Row 以解决错误并使其编译。