- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- WORD报表的页数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172360)
-- 发布时间：2021/10/9 8:51:00
-- WORD报表的页数
请教：如何获取WORD报表的页数，T.PAGES.COUNT 不行，谢谢！
-- 发布时间：2021/10/9 9:22:00
--
-- 发布时间：2021/10/9 9:41:00
--
谢谢！
-- 发布时间：2021/10/9 10:36:00
--
页数是取到了，但是APP.QUIT不行，死机了。
-- 发布时间：2021/10/9 10:41:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
-- 发布时间：2021/10/9 10:56:00
--
Dim count_word as integer
Dim app As New MSWord.Application
Dim doc = app.Documents.Open("D:\\fil_1.doc")
Dim t = doc.Tables(1)
count_word = t.Rows.count
Dim pages As Integer = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages, Nothing)
try
MessageBox.Show(count_word)
MessageBox.Show(pages)
catch ex As exception
MessageBox.Show(ex.message)
finally
app.Quit
End try
红色代码不执行，没有问题；红色代码执行，桌面显示word保存副本什么的，应该是ex.message，FOXTABLE死机。
谢谢！
-- 发布时间：2021/10/9 14:08:00
--
您好：把红色代码放入TRY里面就没有问题不会死机了，但是WINDOWS桌面(不在FOXTABLE页面)还是有提示。
Dim count_word as integer
Dim app As New MSWord.Application
Dim doc = app.Documents.Open("D:\\fil_1.doc")
Dim t = doc.Tables(1)
count_word = t.Rows.count
try
Dim pages As Integer = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages, Nothing)
MessageBox.Show(count_word)
MessageBox.Show(pages)
catch ex As exception
MessageBox.Show(ex.message)
finally
app.Quit
End try
不知道该如何解决？谢谢！
-- 发布时间：2021/10/9 14:16:00
--
提示什么？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2021/10/9 14:50:00
--
再试试：
此主题相关图片如下：2021.png
-- 发布时间：2021/10/9 15:05:00
--
就是文档内容改了，提示是否保存，可以自己增加保存代码：doc.save