XL 2016 Supprimer plusieurs pages dufichier word en une seul operation

leader

XLDnaute Nouveau
;););)Coucou

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.

Voici mon programme :

Private Sub OptionButton2_Click()
Dim Link As String
Set WordApp = CreateObject("word.Application")
Link = "D:\Users\Desktop\STAGE\CCTP-MCEL 2014-2018 V1 trame.docx"
WordApp.Visible = True
WordApp.Documents.Open Link
WordApp.Selection.GoTo What:=1, Which:=2, Name:="16"

End Sub
 

Lone-wolf

XLDnaute Barbatruc
Coucou leader! ;) Bienvenue sur XLD

Entre supprimer 1 page et supprimer plusieurs pages(titre du message), il y a la lune entre deux.

EDIT: voici la macro fonctionnelle.

VB:
Public Sub test()
Dim Wordapp As Object
Dim Link As String
Dim iNum As Integer
Dim rDeb, rFin

    Set Wordapp = CreateObject("Word.Application")
    Link = ThisWorkbook.Path & "\Doc1.doc"
    Wordapp.Documents.Open Link
    iNum = 16

    With Wordapp
             .Visible = True
             .Selection .GoTo What:=1, Which:=2, Name:=iNum
             rDeb =.Selection .GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum).Start
            rFin = .Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum + 1).Start
    End With
    ActiveDocument.Range(rDeb, rFin).Delete

End Sub
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum, Lone-Wolf;)

@leader [Bienvenue sur le forum]
Une autre façon de faire (sans Selection)
Ici test fait sur le document actif (donc à adapter à la problématique)
VB:
Sub SupprimerPage()
Dim Rng As Range, Num&
On Error Resume Next
Num = InputBox("Saisir le N° de la page", "SUPRESSION PAGE")
With ActiveDocument
    Set Rng = .GoTo(What:=1, Name:=Num): Set Rng = Rng.GoTo(What:=-1, Name:="\page")
Rng.Delete
End With
End Sub

PS: Tu as posté dans la mauvaise section du forum
Ta question concerne Word.
 

Staple1600

XLDnaute Barbatruc

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG