Richard S. was telling us:
Richard S. nous racontait que :
How do I select and copy a single page from my ActiveDocument to
paste into a new document?
This would be one way of doing it:
Dim rgePage As Range
Dim rgeCurrent As Range
Dim docNew As Document
Set rgeCurrent = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
Set rgePage = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
rgePage.SetRange rgePage.Start, Selection.Range.Start
Set docNew = Documents.Add
docNew.Range.FormattedText = rgePage.FormattedText
rgeCurrent.Select
