[WD-2010] [VBA]Suppression de tous les tableaux d'un document word

[azerty1989]

Bonjour je suis actuellement bloqué sur le problème suivant :

Je cherche a faire une macro qui va supprimer tous les tableaux de tous les documents word d'un répertoire .


J'ai trouver comment parcourir les fichiers d'un répertoire ,je bloque surtout sur la partie consistant a supprimer tous les tableaux d'un document du répertoire.

Si quelqu'un pouvait me donner quelque pistes.


. La partie qui supprime les tableaux de fonctionne pas et me sort une erreur de dépassement de capacité.

Pourtant si j'isole ce code en l'adaptant pour un document word ouvert cela marche tres bien

Code :

1
2
3
4
5
6
7
 
 
del = ActiveDocument.Tables.Count
    For i = del To 1 Step -1
        ActiveDocument.Tables(i).Select
        ActiveDocument.Tables(i).Delete
    Next

J'ai fais le code suivant pour l'instant

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Sub importLignesDocumentWord()
 
Dim Fichier As String, Direction As String
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim i As Byte
Dim j As Integer
 
 
Dim num As Integer
Dim x As Integer
Dim y As Integer
 
 
x = 1
y = 1
j = 1
 
 
 
'---------------------------------------------------------------------------------------
 
Application.ScreenUpdating = False
 
Direction = ThisWorkbook.Path
Fichier = Dir(Direction & "\*.doc")
Do While Fichier <> "" 'boucle sur tous les fichiers .doc du repertoire
 
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False
Set wordDoc = wordApp.Documents.Open(Direction & "\" & Fichier) 'ouverture documents word
j = j + 1
 
 
del = ActiveDocument.Tables.Count
    For i = del To 1 Step -1
        wordDoc.Tables(i).Select
        wordDoc.Tables(i).Delete
    Next
 
 
 
 
wordDoc.Close False 'fermeture documents word
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing
Fichier = Dir
 
Loop
End Sub

Merci d'avance

[carden752]

Bonjour,

Code :

Essayez de remplacer WordApp par WordDoc

Code :

1
2
3
4
For i = del To 1 Step -1
        wordDoc.Tables(i).Select
        wordDoc.Tables(i).Delete
    Next

[azerty1989]

Merci pour cette erreur que j'ai oublié de corriger avant de copier le code aussi. Par contre une fois cette coquille corrigé , j obtiens un erreur :
" Erreur d’exécution 6 , dépassement de capacité " à la ligne

For i = del To 1 Step -1

[Heureux-oli]

Salut,


Peut-être plus simple ?

Code :

1
2
3
4
5
6
7
8
Sub oli()
Dim oTbl As Table
 
For Each oTbl In ActiveDocument.Tables
oTbl.Delete
Next oTbl
 
End Sub