Como puedo unir varios archivos .doc ???

22/03/2005 - 19:46 por _ C l a u d i n h o _ | Informe spam
Eso, necesito una rutina o programita, o lo qu esea paa poder unir varios documentos que estan dentro de un directorio.

cualquier ayuda es bienvenida

salu2

Preguntas similare

Leer las respuestas

#1 Victor Delgadillo
23/03/2005 - 06:52 | Informe spam
Lo mas simple es abrir el primero y grabarlo con otro nombre (el nombre
nuevo del documento). Sin cerrar este documento abres el segundo,
seleccionas todo el documento (CTR+A) y lo copias (CTR+C). Mueves el cursor
al final del primer documento y pegas (CTR+V).
Repites el procedimiento con el resto de los documentos y al final grabas el
documento completo!

Victor Delgadillo MS-MVP Access 2002-2005
Miami, Florida

Mensajes a los grupos de noticas -- asi todos nos beneficiamos
Responde a este mensaje si te ha servido o no el consejo...

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/


"_ C l a u d i n h o _" wrote in message
news:
Eso, necesito una rutina o programita, o lo qu esea paa poder unir
varios documentos que estan dentro de un directorio.

cualquier ayuda es bienvenida

salu2
Respuesta Responder a este mensaje
#2 Marta PM [MVP Office]
23/03/2005 - 21:34 | Informe spam
Hola:
Te paso esta macro que he creado hace un año más o menos para hacer lo que pides.
Espero que te sirva, pero ya advierto que las macros no son lo mío, sigo intentando
aprender pero es demasiado complejo para mí.
-
Sub InsertarFichero()
Dim strFichero As String
Dim strRuta As String
Dim MiRango As Range

strRuta = "H:\Documents and Settings\Nueva carpeta"
'Debes poner la ruta de la carpeta donde tengas los archivos

strFichero = Dir$(strRuta & "\*.doc")
Documents.Add
' Para añadir los ficheros

Do While strFichero <> ""
With Selection
.InsertFile FileName:=(strRuta & "\" & strFichero)
.Collapse wdCollapseEnd
.InsertBreak wdSectionBreakNextPage
' Inserta un salto de sección de página siguiente. Puedes modificarlo a tu gusto

End With

strFichero = Dir()
Loop

Set MiRango = Nothing

End Sub

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"_ C l a u d i n h o _" escribió en el mensaje
news:
Eso, necesito una rutina o programita, o lo qu esea paa poder unir varios
documentos que estan dentro de un directorio.

cualquier ayuda es bienvenida

salu2
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida