Otro post rápido, para contestar al comentario de un lector del blog…
“Primero, quiero agradecer que comenten, esto me ayuda a seguir posteando y claro a ustedes a seguir leyendo para compartir información, pero a lo que voy.”
Para saber el total de páginas la clase Microsoft.Office.Interop.Word.Application nos provee de una instrucción, pero para entender mejor esto… realice una demo rápida en un proyecto de tipo Console Application, aquí el código:
Sub Main()
'Instancia de Word
Dim Word As New Microsoft.Office.Interop.Word.Application
'Abrimos un documento
Word.Documents.Open("Ruta de tu documento")
Word.Application.Visible = True
Word.WindowState = WdWindowState.wdWindowStateMaximize
'Mostramos el total de páginas del documento
Dim totalPaginas As String = String.Empty
totalPaginas = Word.Selection.Information(WdInformation.wdNumberOfPagesInDocument).ToString
Console.WriteLine("El documento {0} contiente {1} paginas", Word.ActiveDocument.Name, totalPaginas)
Console.WriteLine("preciona la tecla 'X' para cerrar el documento")
Dim cerrar As Char = Console.ReadLine
'Cerramos el archivo sin guardar cambios
Select Case cerrar
Case "X"
Word.ActiveDocument.Close(SaveChanges:=False)
Word.Application.Quit()
Case "x"
Word.ActiveDocument.Close(SaveChanges:=False)
Word.Application.Quit()
End Select
Console.ReadLine()
End Sub
Creo que es muy fácil de entender, y si tienen alguna duda, ya saben que pueden comentar y si tengo la respuesta seguro lo poste. Como es otro post rápido aquí lo doy por terminado
Nota: no se les olvide agregar la referencia a la clase Microsoft.Office.Interop.Word.Application y después hacer su respectivo Imports:
Imports Microsoft.Office.Interop.Word
Saludos.
Comentarios recientes