Discussion :

[cyrcroix]

Bonjour,
J'ai un document word de plusieurs pages.
Je souhaite en supprimer une grâce à une macro.
Pour l'instant j'arrive à me positionner sur la page en question mais impossible de la supprimer.
Voici mon code :

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
Sub MaMacro()
 
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = True
    End With
End Sub

Comment procéder?
Mci d'avance

[cyrcroix]

Personne ne veux me repondre
Ca doit pas etre bien compliquer quand meme... pour les gens qui connaissent un peu...

[SfJ5Rpw8]

tiens à tester :

Code :

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

1
2
3
4
5
Sub DetruitPage(iNum As Integer)
   rDeb = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum).Start
   rFin = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum + 1).Start
    ActiveDocument.Range(rDeb, rFin).Delete
End Sub

[cyrcroix]

Merci beaucoup, apprement ca marche. Je vais approfondir mes tests...
Merci encore