Public Function GetPsPageCount(ByRef vsFilePath As String) As Long Dim F As Integer Dim sContent As String Dim nPos As Long F = FreeFile Open vsFilePath For Input As #F sContent = Input(LOF(F), F) Close #F nPos = InStr(1, sContent, "%%Pages:") If nPos Then GetPsPageCount = Val(Mid$(sContent, nPos + 8, 10)) End If End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question