Как удалить определенные страницы из документа Word

Question

Я использую vb.net, и у меня есть документ, который я редактирую.

Я хочу удалить разрыв страницы только со страницы 6 (например) до конца документа, а не всего документа.

Код, который у меня есть, предназначен для всего документа - Как его изменить?

Dim paragraphs As Word.Paragraphs 
paragraphs = doc.Paragraphs 

For Each paragraph As Word.Paragraph In paragraphs 
    If paragraph.Range.Text.Trim() = String.Empty Then 
     paragraph.Range.[Select]() 
     wordapp.Selection.Delete() 
    End If 
Next 

Answer 1

Это работает для меня. Это приведет к удалению страницы (если существует) с 6-й страницы.

Imports Word = Microsoft.Office.Interop.Word 

Public Class Form1 

    '~~> Define your Excel Objects 
    Dim wrdApp As New Word.Application 
    Dim wrdDoc As Word.Document 
    '~~> Page NO 
    Dim pgNo As Integer = 6 
    Dim i As Integer = 0 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     wrdDoc = wrdApp.Documents.Open("C:\Users\Siddharth\Desktop\Document1.docx") 

     '~~> Display Word 
     wrdApp.Visible = True 

     With wrdDoc 
      For i = .Paragraphs.Count To 1 Step -1 
       If Asc(.Paragraphs(i).Range.Text) = 12 And _ 
        .Paragraphs(i).Range.Information(Word.WdInformation.wdActiveEndPageNumber) = pgNo Then 
        .Paragraphs(i).Range.Delete() 
        Exit For 
       End If 
      Next i 
     End With 
    End Sub 
End Class