'Type Défini par l'utilisateur Non Défini" erreur

J'obtiens l'erreur ci-dessus lorsque vous tentez d'exécuter cette macros. Je suis assez nouveau pour les Macros et le codage en général, donc veuillez pardonner l'ignorance.

Grâce

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
Cela semble être le code pour Mot, mais vous avez marqués comme Excel. Où êtes-vous essayer de l'exécuter?
Row et Table ne sont pas un type de variable
Oui toutes mes excuses, le code est pour un publipostage dans Word, exécuté dans Excel

OriginalL'auteur holdo1 | 2014-06-17

  1. 14

    Votre erreur est causée par ces:

    Dim oTable As Table, oRow As Row,

    Ces types, Table et Row ne sont pas les types de variables native d'Excel. Vous pouvez résoudre ce problème de deux façons:

    1. Inclure une référence au modèle d'objet Microsoft Word. Le faire à partir d'Outils | Références, puis ajouter une référence dans MS Word. Bien que pas strictement nécessaire, vous peut comme pour obtenir les objets comme Dim oTable as Word.Table, oRow as Word.Row. Cela s'appelle de la liaison anticipée. 'Type Défini par l'utilisateur Non Défini
    2. Sinon, pour utiliser la liaison tardive méthode, vous devez déclarer les objets génériques Object type: Dim oTable as Object, oRow as Object. Avec cette méthode, vous n'avez pas besoin d'ajouter la référence à Word, mais vous perdez également l'intellisense de l'aide dans le VBE.

    Je n'ai pas testé ton code mais je soupçonne ActiveDocument ne fonctionne pas dans Excel avec la méthode #2, à moins que vous correctement portée à une instance d'un Mot.Objet de l'Application. Je ne vois pas ce que n'importe où dans le code que vous avez fournis. Un exemple serait:

    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
    Merci David, la méthode 1 fonctionne parfaitement.

    OriginalL'auteur David Zemens

  2. 0

    Je suis en retard pour la fête. Essayez de remplacer en tant que ci-dessous, le mien a fonctionné parfaitement
    "DOMDocument" à "MSXML2.DOMDocument60"
    "XMLHTTP" à "MSXML2.XMLHTTP60"

    OriginalL'auteur GideonMetre

  3. -1
    Sub DeleteEmptyRows()  

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

End Sub

    Le code suivant va supprimer toutes les lignes sur une feuille(YourSheetName) où le contenu de la Colonne A est vide.

    EDIT: Type Défini par l'Utilisateur Non Défini est causée par "oTable de Table" et "oRow la Ligne". Remplacer la Table et de la Ligne avec l'Objet à résoudre l'erreur et de faire de la compilation.

    Il peut compiler, mais ne sera probablement pas exécuter, sans que la Parole des objets, soit par l'intermédiaire de la liaison anticipée ou tardive de la liaison, comme dans ceci la réponse.

    OriginalL'auteur Olle89