Fermu Website - Macro para unir varios archivos de Word
1 de 2
Inicio
Artculos
Inicio
Office
Artculos
05.01.2007
Macro para unir varios archivos de Word
FAQs
Gua Regedit
Windows Update
Descargas
Mapa
Espaol 6
Men Principal
Inicio
Bienvenidos
Artculos
Gua Regedit
Windows Update
Enlaces
Escrbeme
Buscar
Instantneas
Orgenes RSS
FAQ's
Los usuarios registrados pueden participar aportando artculos, noticias y novedades a nuestra web
Foro
Descargas
Libro de visitas
Net Ms Word
Two forms of God's Word
Top tech jobs at CyberMedia Dice!
Opportunities keep on knocking.
Spiritual & Physical, which Saves? Please,
Show me Bible scriptures!
Sitios Amigos
Novedades
Multingles
El Blog de Daniel Martn
Svetlian
El Blog de Ramn Sola
Autentifcate
Nombre de usuario
Contrasea
c Recordarme
d
e
f
g
Iniciar sesin
Bill Gates abandona Windows
El panel Agregar o quitar componentes de Windows inicia automticamente una
instalacin
La ayuda de VBA en los programas de Office 2003 no se muestra o sale en blanco
Cmo numerar secuencialmente multiples copias de un mismo documento en Word
Grave agujero de Seguridad de Internet Explorer en el procesamiento de Documentos
VML
Microsoft Update/Windows Update/Actualizaciones automticas consumen casi un 100%
de CPU
Lo ms visitado
Windows XP
El archivo "boot.ini" en Windows XP
0x80200010
Entendiendo El Registro de Windows
0x8024001D
Cmo mantener nuestro XP en buenas
condiciones?
MACRO PARA UNIR VARIOS ARCHIVOS DE WORD
Votos de usuario:
/1
Olvidaste tu contrasea?
j n
k
l
m
Malo n
j n
k
l
m
j n
k
l
m
j n
k
l
m
i Bueno Votar
j
k
l
m
Nuevo usuario? Regstrate aqu
Escrito por Marta
Anuncios Google
Explaining the Trinity
Why does the Bible
never use the word
Trinity? Learn all about
it.
08.06.2005
En ocasiones nos encontramos con la necesidad de unir varios archivos de Word en uno solo.
Con esta macro agilizamos el proceso. Tan solo requiere que los archivos a unir estn en una misma carpeta.
www.TruthOrTradition.com
Sindicacin
Sub
Dim
Dim
Dim
InsertarFichero()
strFichero As String
strRuta As String
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 aadir los ficheros
Do Until strFichero = ""
With Selection
.InsertFile FileName:= (strRuta & "\" & strFichero)
.Collapse wdCollapseEnd
.InsertBreak wdSectionBreakNextPage
' Inserta un salto de seccin de pgina siguiente. Puedes
modificarlo a tu gusto
End With
strFichero = Dir()
Loop
Set MiRango = Nothing
End Sub
ADD NEW
COMMENTS
Invitado - ayuda
S EARCH
IP:80.58.22.xxx | 14-11-2005 - 16:30:18
buenos dias gracias por este espacio.
Como o en donde pongo este codigo para poder unir varios archivos de word en uno solo, en verdad lo necesito.
GRACIAS POR SU APOYO
nota del webmaster:
Por favor, formula tus preguntas en nuestro foro, tiene uno especfico para word en el cual puede participar previo registro, el registro es
gratuito.
Fermu Website - Macro para unir varios archivos de Word
2 de 2
Reply | Quote
W RITE COMMENT
Name:
Title:
UBBCode:
-color-
Send
ltima modificacin ( 08.06.2005 )
Siguiente >
[ Atrs ]
<
6 -size-
