主题：WORD报表的页数

请教：如何获取WORD报表的页数，T.PAGES.COUNT 不行，谢谢！

谢谢！

 

页数是取到了，但是APP.QUIT不行，死机了。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

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死机。

谢谢！

 

您好：把红色代码放入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

 

 

不知道该如何解决？谢谢！

提示什么？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

再试试： 

此主题相关图片如下：2021.png

就是文档内容改了，提示是否保存，可以自己增加保存代码：doc.save