一个word模板有五页有没有办法根据条件删除其中的某个页 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

有时候需要显示五页

有时候需要删除第5页或第3页或者3.4.5页都删除

怎么操作才能实现呢？

参考：https://blog.csdn.net/zp2zjl/article/details/7988753

https://docs.microsoft.com/zh-cn/office/vba/api/word.range.delete

大概这样

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

老师尝试了一下没有成功还得继续麻烦老师谢谢！

当前代码如下：【第四页并没有被删除，刚好第四页是末尾页，另外如果我要删除3.4页，下述红色部分代码我该怎么写呢】

Dim tm As String = ProjectPath & "Attachments\谈话通知书.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\谈话通知书.doc" '指定目标文件
Dim fl2 As String = ProjectPath & "Reports\谈话通知书.pdf" '指定目标文件

Dim wrt As New WordReport(Tables("谈话通知书"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.SaveToPDF(fl2) '保存为PDF文件
wrt.Quit() '退出

Dim pages As Integer
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open(fl)
    Dim range1 = doc.GoTo(1, Which:=1, Count:=4) '第几页就把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

Dim Proc As New Process '打开PDF文件
Proc.File = fl
Proc.Start()

[此贴子已经被作者于2022/2/12 15:55:01编辑过]

没有删除页的用法，实现的是删除这一页的所有内容，后面的页就顶上了。因为是最后一页，没有其它页顶上，就会存在一个空白页

删除3,4页，分别删除即可：删除2次第三页；或者先删除第4页，再删除第3页

也就这5页，把他拆分装入数据表，一键生成文档，想要哪一行装入哪一行，非常灵活高效！

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

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