Discussion :

[halaster08]

Bonjour,

Etant familier avec le VBA Excel j'essaye d'aider un collègue sur un doc Word mais ne connaissant pas bien les différents objets Word je galère un peu, c'est pour ça que je viens solliciter votre aide.

J'ai un fichier d'environ 800 pages a découper en 237 sous-fichier de taille variable.
Chaque sous-fichier est composé d'un premier tableau (dont le premier mot est toujours "contact") un peu de bla bla et un autre tableau de taille variable.
J'aimerais donc découper le fichier après chaque second tableau.
Visiblement il y a aussi un saut de page après le second tableau (je sais pas si ça peut servir)
Je ne sais pas si c'est possible directement en code Word
Si ça ne l'est pas, repérer les numéro de pages de la fin du second tableau ou le début de premier, serait déjà un gros gain de temps pour découper le fichier d'une autre manière

Pour l'instant j'ai trouvé une boucle qui parcours tout mes tableau (d'ailleurs quand je dis tableau je parle de l'objet "tables" dans Word) mais je ne trouve pas comme découper ou repérer le numéro de la page

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For I = 1 To activedocument.Tables.Count
  Tables(I). ??
next I

Tout aide sera la bienvenue

Merci d'avance

edit: ça y est j'ai trouvé comment récupérer les numéros de pages qui m'intéressent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim i As Long
For i = 1 To 100 'ActiveDocument.Tables.Count
    If i Mod 2 = 1 Then
        ActiveDocument.Tables(i).Select
        Debug.Print Selection.Information(wdActiveEndPageNumber) - 1
    End If
Next i

Il me reste a trouver comment séparer mon fichier !

[Invité]

Bonjour Halaster,

Essaye ce code qui reste à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Test()
 
Dim I As Integer
Dim DocTable As Document
 
    With ActiveDocument
        For I = 1 To .Tables.Count Step 2
            .Range(.Tables(I).Range.Start, .Tables(I + 1).Range.End).Select
            Selection.Copy
            Set DocTable = Documents.Add
            With DocTable
              .Range.Paste
            End With
            Set DocTable = Nothing
        Next I
    End With
 
End Sub

[halaster08]

Enorme merci à toi Eric KERGRESSE, ça marche super
J'ai juste ajouter sauvegarde et fermeture du fichier et c'est super

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub découpage()
 
Dim I As Integer
Dim DocTable As Document
 
    With ActiveDocument
        For I = 1 To .Tables.Count Step 2
            .Range(.Tables(I).Range.Start, .Tables(I + 1).Range.End).Select
            Selection.Copy
            Set DocTable = Documents.Add
            With DocTable
              .Range.Paste
            End With
            DocTable.SaveAs "d:\" & "237p_Notif33_20-03-11" & "_" & I & ".docx"
            DocTable.Close
            Set DocTable = Nothing
        Next I
    End With
 
End Sub

J'étais en train de bricoler un truc beaucoup moins efficace, tu m'as fait gagner beaucoup du temps !