小问题,高分数.

[foxmsdn]

一个word文档，如果确定它有多少页？使用vba，不是在Word中自己看。

[Jneu]

DocPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages).Value

[icevi]

Function DocPages(FileName As String) As Integer
Documents.Open FileName
Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdEnd
Documents(1).Repaginate
DocPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages).Value
Documents(1).Close False
End Function

直接用ActiveDocument.BuiltInDocumentProperties(wdPropertyPages).Value返回的总页数是会不对的,所以要先加上一句Documents(1).Repaginate,这样才行.