如何从word文档中删除特定页面

Question

我正在使用vb.net，并且我正在编辑一个 Word 文档。

我只想从第 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