|
Cómo extraer información de un Campo de formulario en varios documentos de Word cerrados |
 |
 |
 |
|
Written by monica
|
|
Monday, 10 September 2007 16:26 |
|
¿Cómo extraer la información que tenemos referenciada mediante un marcador de texto en un documento de Word? En este artículo veremos como hacerlo de forma muy gráfica, para ello utilizaremos una macro que nos facilitará la tarea.
Tenemos creado un formulario en varios documentos de Word mediante la barra de herramientas » Formularios
En dichos documentos tenemos un « Campo de texto » cuyo marcador le hemos puesto « Lunes » recordamos como se cambia el nombre de marcador que viene por defecto en estos campos de texto de Formulario:
Pues si tenemos muchos documentos de Word y en ellos tenemos un campo de texto donde por ejemplo introducimos la fecha y queremos extraer ese campo de todos esos documentos y añadirlo a un nuevo documento, pues tendremos que utilizar macros para ello:
En un modulo nuevo de visual Basic Aplicaciones de Word añadimos el siguiente código:
Sub Extraer_Formtext_Formulario()
Dim documento As Document
Dim campotxt As Document
Dim ruta As String
Dim x As String
With Dialogs(wdDialogCopyFile)
If .Display() <> -1 Then Exit Sub
ruta = .Directory
End With
Set campotxt = Documents.Add
If Len(ruta) = 0 Then Exit Sub
If Asc(ruta) = 34 Then
ruta = Mid(ruta, 2, Len(ruta) - 2)
End If
x = Dir(ruta & "*.doc")
Do While x <> ""
Set documento = Documents.Open(ruta & x)
campotxt.Range.InsertAfter documento.FormFields("Lunes").Result & vbCr
documento.Close wdDoNotSaveChanges
x = Dir
Loop
End Sub
- Para saber que es un modulo en visual basic aplicaciones presss here :--P
- Para saber como poder asociar dicha macro a un botón aqui
Trackback(0)
 |
|
Last Updated ( Wednesday, 20 August 2008 19:04 )
|
Articles 
TrackBack URI para esta entrada
RSS feed Comments
[smiley=happy]