Identifier une page d'un fichier autre qu'Excel

Sub Test()
    IsolerPage 4
End Sub
 
Public Sub IsolerPage(NumPage As Integer)
    Dim NbLigne As Long
    Dim NombrePage As Integer
    
    NombrePage = _
        ActiveDocument.BuiltInDocumentProperties("Number of Pages")
    
    If NombrePage < NumPage Then Exit Sub
    
    ActiveDocument.Range.Select
    Selection.GoTo What:=wdGoToPage, _
            Which:=wdGoToAbsolute, Count:=NumPage + 1
    Selection.Move Unit:=wdCharacter, Count:=-1
    
    If NombrePage = NumPage Then Selection.Move Unit:=wdCharacter, _
        Count:=ActiveDocument.Range.Characters.Count
    
    NbLigne = Selection.Information(wdFirstCharacterLineNumber)
    
    If NombrePage = NumPage Then NbLigne = NbLigne - 1
        
    Selection.Move Unit:=wdCharacter, Count:=1
    
    With Selection
        .HomeKey Unit:=wdLine, Extend:=wdMove
        .ExtendMode = True
        .MoveUp Unit:=wdLine, Count:=NbLigne
        .ExtendMode = False
    End With
    
    Selection.Copy
    
    Documents.Add
    ActiveDocument.Range.Paste
    If NumPage < NombrePage Then
        Selection.Move Unit:=wdCharacter, _
            Count:=ActiveDocument.Range.Characters.Count
        Selection.Delete Unit:=wdCharacter, Count:=1
    End If
End Sub