Как поправить код?

[Sanek_81]

На данный момент этот кусочек кода выделяет одну страничку и переносит её в отдельный документ. Как сделать так, чтобы выделялось 2 странички, что нужно добавить?

Dim word_App As New Word.Application
Dim word_Doc As Word.Document

Selection.HomeKey Unit:=wdStory

pages_count = ActiveDocument.Range.ComputeStatistics(wdStatisticPages)

    Set word_Doc = word_App.Documents.Add
    With word_Doc
    If i = pages_count Then
        Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Else
        Selection.ExtendMode = True
        Selection.GoToNext wdGoToPage
        Selection.MoveLeft wdCharacter, 1, False
                
    End If
        text_for_input = Selection
        Selection.ExtendMode = False
        Selection.MoveRight wdCharacter, 2, False
        .StoryRanges(wdMainTextStory) = text_for_input
        word_App.Visible = True

                    
        .SaveAs "C:\Лист.doc"
    End With

[Sanek_81]

Всё, разобрался надо добавить второй раз

Selection.GoToNext wdGoToPage

Жаль тему удалить нельзя...

[bananasus]

А что, тема тебе мешает? Да и если вдруг у кого проблема похожая появится, так тут ответ есть...