Codigo Visual Basic 6.0 para Word

[Insomnia]

Hola

Prueba con el siguiente código:

Código:

    Dim WordObj As New Word.Application
    Dim Doc As Word.Document
    Dim paginas As Integer
    
    Set Doc = WordObj.Documents.Open("c:\prueba.doc")
    paginas = Doc.ComputeStatistics(wdStatisticPages)
     
    MsgBox paginas

Tienes que añadir la referencia Microsoft Word.

--Saludos--