主题：一个word模板有五页 有没有办法根据条件删除其中的某个页

Dim pages As Integer

Dim fl As String = ProjectPath & "Attachments\" & "123.docx"

Dim app As New MSWord.Application

try

    Dim doc = app.Documents.Open(fl)

    

    Dim range1 = doc.GoTo(1, Which:=1, Count:=5) 第几页就把Count:=5改为几，比如第三页：Count:=3

    Dim range2 = range1.GoToNext(1)

    doc.Range(range1.Start,range2.Start).Delete(1,1)

    doc.save

    Doc.close

catch ex As exception

    msgbox(ex.message)

finally

    app.Quit

End try