[已解决]判断word文档页数的代码

yjwdjfqb

判断word文档页数的代码


如当文档，页数大于1页，则执行。。。。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-21 15:35

1.     Dim lPage As Long
   
2.     lPage = ActiveWindow.Panes(1).Pages.Count
   
3.     MsgBox lPage
   

复制代码

跳转到最佳答案楼层

yjwdjfqb

也就是说，获取当前文档的页数

冥王

网上搜了一下，请参考http://club.excelhome.net/thread-566597-1-1.html

yjwdjfqb

冥王 发表于 2014-2-21 12:36
http://club.excelhome.net/thread-566597-1-1.html

感谢朋友的链接但，我还是没有搞出来

朋友，可否帮我写个，

统计当前word文档，页数的代码

谢谢了！

hwc2ycy

1.     Dim lPage As Long
   
2.     lPage = ActiveWindow.Panes(1).Pages.Count
   
3.     MsgBox lPage
   

复制代码

hwc2ycy

1. MsgBox ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

复制代码

hwc2ycy

用之前最好先判断当前是否有打开文档，避免出错。

1.     On Error Resume Next
   
2.     If ActiveDocument Is Nothing Then MsgBox "当前无文档可操作": Exit Sub
   
3.    
   
4.     If ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) < 2 Then
   
5.         MsgBox "当前文档内页数不足2页，退出"
   
6.         Exit Sub
   
7.     End If

复制代码