Codigo Visual Basic 6.0 para Word

[iaras66]

Hola!!! El caso es que estoy realizando un programa en visual basic 6.0 en el cual necesito la parte de codigo que te guarda en una variable el numero de hojas de un documento word cualquiera que queramos abrir.

Haber si alguien me puede decir como hacerlo por favor!!!

[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--

[iaras66]

Gracias pero el caso es que el programa mediante un CommonDialog me habre el documento word que yo quiera para no tener que poner la ubicacion exacta del mismo.

La parte del codigo sería así:

Private Sub Command4_Click()

CommonDialog1.ShowOpen
OLE1.LoadFile(CommonDialog1.FileName)

Por lo que tu me dices para no tener que poner la ruta especifica y abrir cualquier word se podria poner lo siguiente????

CommonDialog1.ShowOpen
Set Doc = WordObj.Documents.Open(CommonDialog1.FileName)
paginas = Doc.ComputeStatistics(wdStatisticPages)
MsgBox paginas

O como sería???
¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿?????????????????????????? ???

[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--

[iaras66]

Muchas gracias Insomnia!!!