Microsoft Word Page Sources
Microsoft Word Page SourcesConsultez toutes les sources
Nombre d'auteurs : 5, nombre de sources : 7, création le 1er octobre 2007
Sommaire→Pages
Sélectionner une ou plusieurs pages d'un document word - Utilisation de .ExtendMode
Sélectionnez
Sub SélectionnerUneOuDesPages()
Dim NoPageDebut as integer, NoPageFin as integer
NoPageDebut = 4
NoPageFin = 4
SelectionnerPages NoPageDebut , NoPageFin
End Sub
Public Sub SelectionnerPages(NoPageDebut, NoPageFin)
If ActiveDocument.BuiltInDocumentProperties("Number of Pages") < NoPageDebut Then Exit Sub
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=NoPageDebut
With Selection
.ExtendMode = True
.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=NoPageFin + 1
End With
MsgBox Selection.Text
End SubCréé le 14 août 2007 par ouskel'n'or