专家坐堂-[求助]Word表格所在的页码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=135647)

--  作者：benwong2013
--  发布时间：2019/5/30 23:46:00
--  [求助]Word表格所在的页码
word文档中，在某一页开始全部都有表格，请问当系统在读取某一页表格的时候能自动获取当前表格所在的页数，请问应该如何表述，谢谢！

--  作者：有点甜
--  发布时间：2019/5/31 0:17:00
--
Dim app As New MSWord.Application
try
    Dim fileName = "D:\\test.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = Doc.Tables(1)
    t.Select
    Dim n = app.ActiveWindow.Selection.Information(msword.WdInformation.wdActiveEndPageNumber)
    msgbox(n)
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try