Hola a todos!!!!
Tengo que hacer un copia y pega d un enlace de internet el cual tiene un texto repartido en unas 500 paginas aproximadamente y me han dicho que utilizando macros me podria evitar, lo siguiente:
1º estar delante del ordenador y hacer ctrl+c y ctrl+v en las 500 paginas para pegarme toooooa la informacion en una hoja d word.
2º ahorrarme unas gafas nuevas por pasar delante d la pantalla todo ese tiempo.
Es posible????
Estoy mirando por alli y por aqui y no entiendo mucho eso d las macros y para que sirven exactamente.
Entiendo q es como una herramienta q te evita hacer acciones repetitivas con documentos y hojas d calculo y demas.
Pero no tengo ni idea d como aplicar las macros para hacer copiar y pegar cosas d paginas d Internet.
Si alguien domina y me puede echar un cable?????
Muxas Gracinas y un saludo a todos!!!!
Nada de marcos si e entendido bien lo k kieres acer es 500 archivos de texto ponerlo todo en uno no?
Dim I As Long
Dim Texto As String
Dim Bufer As String
For I = 1 To 500
Open "C:\archivo" & I & ".txt" For Binary As #1
Bufer = Space(LOF(1))
Get #1, , Bufer
Texto = Texto & Bufer
Close #1
Next I
Open "C:\archivo_completo.txt" For Binary As #1
Put #1, , Texto
Close #1
PD puede aber fallos ya k no lo e probado.
Salu2