Codigo Visual Basic 6.0 para Word

[Insomnia]

Hola

Yo pasaria el valor de la ruta a una variable quedando de esta forma:

Código:

    Dim WordObj As New Word.Application
    Dim Doc As Word.Document
    Dim paginas As Integer
    Dim ruta As String
    
    Me.CommonDialog1.ShowOpen
    ruta = Me.CommonDialog1.FileName
    
     Set Doc = WordObj.Documents.Open(ruta)
     paginas = Doc.ComputeStatistics(wdStatisticPages)
     
     MsgBox paginas

--Saludos--