Fermu Website

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

Filtro +3 Excelente+2 Profundo+1 Útil0 NeutralVer todos-1 Off Topic-2 Quemando-3 SPAMNuevos PrimeroAntiguos Primero50 posts25 posts15 posts5 posts 

Escribir un comentario
Por favor, mantenga el asunto de los mensajes relevantes al tema del artículo. Los ataques verbales personales serán eliminados. Por favor, no emplee comentarios para promocionar su sitio web. Este tipo de mensajes serán eliminados
Nombre:
Homepage (opcional)
Email (opcional):
Seguimiento de comentarios con alertas por E-mail
Modo		Nueva entrada [Comenzar una nueva entrada]
Título:
BBCode:
Comentario:

Powered by OpenComment 3.0.30