Archive

Archive for the ‘OpenXML’ Category

[Word] Colocar el cursor en la primera página

febrero 23, 2009 2 comentarios

Aquí un Tip, para colocar el cursor el inicio del Documento. Esto lo hacemos con una sola línea de código que es:

Word.Selection.HomeKey(Microsoft.Office.Interop.Word.WdUnits.wdStory, False)

El segundo parámetro nos indica si vamos a seleccionar el texto, si lo colocamos en True, selecciona desde el punto donde se encontraba el puntero hasta el inicio.

Etiquetas de Technorati: ,,

[Access] Obtener el tipo de datos y Formato de un campo en una Tabla

febrero 21, 2009 Deja un comentario

Aquí un tip más si quieren saber el tipo de datos lo hacen con esta instrucción:

miBD.TableDefs("Alumnos").Fields("ID").Type

El objeto miBD es de tipo data base que hereda de la clase DAO, para esto debes agregar una referencia al proyecto y después asignarle el tipo de datos de la Aplicacción Access más o menos así:

miBD = Access.CurrentDb

Para saber el formato de tipo de datos es con la siguiente instrucción:

miBD.TableDefs("Alumnos").Fields("ID").Properties("Format").Value

Espero que les sea de utilidad Saludos..

@nor

Etiquetas de Technorati: ,,,,,

[Word] Saber en que página esta el cursor en un Documento

febrero 9, 2009 Deja un comentario

Que tal, siguiendo con estos mini ejemplos de programación en Office, mientras pasa el tiempo, y en base a una pregunta eh aquí el como identificar en que página se encuentra el cursor en un Documento de Word.

El ejemplo siguiente es muy sencillo pero hice un menú para que pudieran apreciar el funcionamiento. Contiene un menú con las opciones:

  1. Abrir un Documento
  2. Mover el Cursor
  3. Cerrar Documento

El código es el siguiente.

Imports Word = Microsoft.Office.Interop.Word

Module Module1

    Public word As Word.Application
    Sub Main()
        word = New Word.Application
        Menu()
        Dim valor As Integer
        Do
            Try
                valor = Integer.Parse(Console.ReadLine())
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
            Proceso(valor)
            Console.Clear()
            Menu()
        Loop While valor <> 4

    End Sub

    Public Sub Menu()
        Console.WriteLine("1.- Abrir Documento")
        Console.WriteLine("2.- Mover Cursor")
        Console.WriteLine("3.- Cerrar el Documento")
        Console.WriteLine("4 Cerrar Aplicación")
        Console.Write("Selecciona alguna Opción :")
    End Sub


    Public Sub AbrirDocumento(ByVal val As Boolean)

        If val = False Then
            word.Documents.Open("C:\Demo.docx")
            word.Application.Visible = True
        Else
            word = word.ActiveDocument.Application
            For i As Integer = 1 To word.Selection.Information _
                (Microsoft.Office.Interop.Word.WdInformation.wdNumberOfPagesInDocument)
                If word.Selection.Information _
                (Microsoft.Office.Interop.Word.WdInformation.wdActiveEndPageNumber) = i Then
                    Console.WriteLine("El Cursor esta en la página: {0} ", i)
                End If
            Next
        End If
    End Sub

    Public Sub CerrarDocumento()
        
        For Each doc As Word.Document In word.Documents
            doc.Close(SaveChanges:=False)
        Next
        word.Application.Quit()
        
    End Sub

    Public Sub Proceso(ByVal id As Integer)
        Select Case id
            Case 1
                AbrirDocumento(False)
            Case 2
                Console.Clear()
                AbrirDocumento(True)
                Console.ReadLine()
            Case 3
                CerrarDocumento()
        End Select
    End Sub

End Module

Explicando el Código.

El primer método es el de Menú, que solo contiene las opciones que se muestran en pantalla.

Lugo esta el método de Abrir un documento, que consta de 2 etapas en base a una condición sencilla, recibe un variable booleana que según el valor es la acción que realiza. Con la opción uno solo abre el documento llamad Demo.docx que esta en la unidad C. En la opción 2 muestra un mensaje en la consola que indica que página esta el puntero.

El método de Cerrar el documento. (Sin comentarios)

Por ultimo el de proceso que evalúa que es lo que el usuario eligió.

La parte importante de este post es el saber como identificar en que página esta el puntero y esto se encuentra en el método AbrirDocumento y el código es este:

 

For i As Integer = 1 To word.Selection.Information _
                (Microsoft.Office.Interop.Word.WdInformation.wdNumberOfPagesInDocument)
                If word.Selection.Information _
                (Microsoft.Office.Interop.Word.WdInformation.wdActiveEndPageNumber) = i Then
                    Console.WriteLine("El Cursor esta en la página: {0} ", i)
                End If
            Next

Que recorremos la cantidad total de páginas del documento y obtenemos en que página esta puntero con la instrucción:

word.Selection.Information _
                (Microsoft.Office.Interop.Word.WdInformation.wdActiveEndPageNumber)

Recuerden que para que funcione deben tener el archivo llama Demo.docx en su unidad D o colocar la ruta en donde se encuentre. Saludos.

@nor

Etiquetas de Technorati: ,,,

[Word] Cerrar cualquier documento de Word de cualquier instancia

febrero 4, 2009 4 comentarios

Ya es el tercer post sobre esto, y a petición de un comentario de mi amigo David. Solo una pequeña modificación para cerrar los documentos de Word. Les platico a lo que se refiere y porque publico este post. Resulta que trabajamos con objetos de Word, validación de eventos sobre el Office 2007 y muchas veces tenemos la necesidad de reiniciar una aplicación de Office sin guardar cambios, pero resulta que sino controlamos bien la liberación de los recursos o de los objetos nos puede traer varios errores.

Lo que me preguntaron es como cerrar todos las instancias de Word, pero sin hacerlo desde los procesos como lo menciono en otro post, es decir que pasa si abro un archivo cualquiera y después creo un instancia (desde código) y necesito validar no se… que se cierren todos los documentos, o que se guarden con nombres específicos, que se yo.

En el siguiente ejemplo cerramos absolutamente todos los documentos sin importar la instancia.

Imports Word = Microsoft.Office.Interop.Word

Module Module1

    Sub Main()

        'Variables
        Dim AppWord As New Word.Global
        Dim doc As Word.Document

        'Aquí cerramos todos los documentos sin guardar cambios
        For Each doc In AppWord.Documents
            doc.Close(SaveChanges:=False)
        Next

        AppWord.Application.Quit(SaveChanges:=False)

    End Sub

End Module

Si se dan cuenta es muy similar a lo que publique en el post de cerrar los documentos a partir de una instancia, pero  aquí hacemos referencia a la aplicación Global, esa es la diferencia para poder cerrar todos los documentos de Word que se encuentren abiertos en nuestro Sistema.

Para ver que funciona, prueben abriendo varios archivos de Word y luego ejecuten el programa, verán que se cierran todos sin guardar cambios.

Saludos.

@nor

Etiquetas de Technorati: ,,,

[Word] Como cerrar los documentos de Word a partir de una instancia

febrero 4, 2009 4 comentarios

En el post anterior vimos como cerrar los objetos de Word en base a la lista del proceso del Sistema. En este ejemplo vamos a ver como cerrarlos a partir de una instancia, esto lo podemos usar cuando trabajamos con objetos de Word para verificar que el usuario haga algo o que se yo, pero aquí el ejemplo.

Imports Word = Microsoft.Office.Interop.Word

Module Module1

    Sub Main()

        'Variables
        Dim AppWord As New Word.Application
        Dim doc As Word.Document

        'Agregamos cuatro documentos en blanco y escribimos un texto
        For i As Integer = 0 To 4
            AppWord.Documents.Add()
            AppWord.Application.WindowState = Word.WdWindowState.wdWindowStateNormal
            AppWord.Visible = True
            AppWord.ActiveDocument.Sections(1).Range.Text = "Mi Documento numero:  " & i
        Next

        'Aquí cerramos todos los documentos sin guardar cambios
        For Each doc In AppWord.Documents
            doc.Close(SaveChanges:=False)
        Next
        AppWord.Quit(SaveChanges:=False)

    End Sub

End Module

Explicando el código.

Primero creamos una instancia de Word y un documento para poder hacer el recorrido por el arreglo de Documentos abiertos.

En el For creamos 5 documentos maximizamos la ventana y la mostramos, al mismo  tiempo que agregamos un texto al mismo.

Después por medio del For each recorremos todos los documentos que creamos (incluso sirve si los abrimos), los cerramos sin guardar cambios.

Por ultimo cerramos nuestra instancia de Word.

Espero que les sea de utilidad.

Saludos.

@nor.

Etiquetas de Technorati: ,,,

[Word] Cerrar todas las instancias de Word en el Sistema

febrero 4, 2009 Deja un comentario

Muchas veces tenemos la necesidad de cerrar o tronar los procesos de un objeto de Office, en este caso de Word. El siguiente ejemplo muestra como hacer.

Imports System.Diagnostics

Module Module1

    Sub Main()
        Dim procs() = Process.GetProcesses
        Dim pr As Process
        For Each pr In procs
            If (pr.ProcessName = "WINWORD") Then
                pr.Kill()
            End If
        Next

    End Sub

End Module

Utilizamos el nombre de espacios Diagnostics, que nos permite obtener los procesos que se están ejecutando en el Sistema. lo que hacemos es obtener un arreglo de dichos procesos para después recorrerlos e identificar cuales son los que queremos tronar. Por ultimo ejecutamos el método Kill el cual detiene inmediatamente el proceso asociado.

Espero que les sea de utilidad, y como se observa en el ejemplo podemos aplicar esto a cualquier proceso, e incluso ejecutar algún otro que no este corriendo.

Saludos.

 

Etiquetas de Technorati: ,,,,

[VSTO] Manejando Estilos de texto en Word

enero 28, 2009 Deja un comentario

Este es el primer post de una serie (espero que sea larga) en donde hablare de como trabajar un poco con VSTO desde .NET, realmente son ejemplos sencillos pero espero que les sean de utilidad sobre todo cuando trabajan con documentos de Office y necesitan optimizar algunos procesos. Iniciamos con el los Estilos en Word

¿Cómo asignar un Estilo rápido a un párrafo en Word?

Public Sub AsignarEstilo(ByVal doc As Word.Document, ByVal nomEstiloRapido As String, ByVal numParrafo As Integer)
        Dim s As Word.Style

        For Each s In doc.Styles
            If s.QuickStyle Then
                If s.NameLocal = nomEstiloRapido Then
                    doc.Paragraphs(numParrafo).Range.Style = s
                End If
            End If
        Next
    End Sub

Explicando el método. Recorremos todo el arreglo de estilos con los que cuenta un Documento de Word, utilizando la propiedad QuickStyle para identificar los estilos rápidos, como el método recibe el nombre del Estilo rápido lo comparamos y para asignarlo al párrafo que le indicamos cuando llamamos al método.

Etiquetas de Technorati: ,,,,