Buscar y Pegar

Compumakro avait écrit le 02/01/2007 :

Amigos de Word2003
Yo estoy transcribiendo un listado "X" pero como tengo ya más de 600
referencias y no debe haber duplicados, entonces uso Ctrl+B y escribo por
ejemplo Z45R7U, aparece que no lo encuentra, esto significa que no está en el
listado.
Entonces lo copio del campo de Buscar y lo pego en el siguiente espacio en
Blanco. Me toca bajar 28 páginas.
¿Hay alguna forma "automática" para que si no lo encuentra va y lo pega
después del último párrafo?
Gracias
Oscar

Hola Compumakro :-)

Bien de donde estas cogiendo esos datos (de una base de datos, de
excel, etc...)

Cuando los copias a word ¿son referencias unicas?

Bien pregunto esto porque si son referencias unicas y estan sacadas de
un archivo word o excel o base de datos se puede crear una copia de
estos archivos crear una macro que elimine duplicados y se te quedarian
solo las referencias unicas, por ejemplo :-)

Bueno Comentanos ok?

Saludos
Monica


¡Un Saludo! :-)
www.fermu.com
www.zorval.es

Hola Monica
Los datos los estoy tomando de un libro...de papel...impreso
Gracias
Oscar


"Tux" wrote in message
news:

Compumakro avait écrit le 02/01/2007 :

Amigos de Word2003
Yo estoy transcribiendo un listado "X" pero como tengo ya más de 600
referencias y no debe haber duplicados, entonces uso Ctrl+B y escribo por
ejemplo Z45R7U, aparece que no lo encuentra, esto significa que no está
en el listado.
Entonces lo copio del campo de Buscar y lo pego en el siguiente espacio
en Blanco. Me toca bajar 28 páginas.
¿Hay alguna forma "automática" para que si no lo encuentra va y lo pega
después del último párrafo?
Gracias
Oscar

Hola Compumakro :-)

Bien de donde estas cogiendo esos datos (de una base de datos, de excel,
etc...)

Cuando los copias a word ¿son referencias unicas?

Bien pregunto esto porque si son referencias unicas y estan sacadas de un
archivo word o excel o base de datos se puede crear una copia de estos
archivos crear una macro que elimine duplicados y se te quedarian solo las
referencias unicas, por ejemplo :-)

Bueno Comentanos ok?

Saludos
Monica


¡Un Saludo! :-)
www.fermu.com
www.zorval.es

Compumakro avait soumis l'idée :

Hola Monica
Los datos los estoy tomando de un libro...de papel...impreso
Gracias
Oscar

Hola Oscar :-)

Pues bien ya tengo el codigo jejejje! a ver si nos va bien (si no
entiendes de codigo nos comentas y te explicamos ok? :-)

En un modulo de tu libro de word en visual basic (menu insertar>
modulo) y copy paste del siguiete codigo :

'--

Sub Introducir_referencias()

Txt = InputBox("Introduzca la referencia: ")

With ActiveDocument.Content.Find
.ClearFormatting
Counter = 0
Do While .Execute(FindText:=Txt, Forward:=True) = True
Counter = Counter + 1
Loop
End With
MsgBox "La refencia " + Txt + " esta repetida " + Str$(Counter) + "
vece/s"


msg = "¿Quiere copiarlo?"

respuesta = MsgBox(msg, vbExclamation + vbYesNoCancel, Txt)
Select Case respuesta
Case Is = vbYes

Selection.TypeText Txt

Case Is = vbCancel
Exit Sub
End Select

End Sub

'-

Este codigo te crea un inputbox para introducir la referencia y te dice
cuantas veces esta repetida ( 1 vez , 0 veces etc)
A continuacion te sale un msgBox diciendote que quieres hacer si lo
quieres copiar o no , Tu si no la tienes repetida le dices que si y te
la copiara alla donde tengas el cursor ok?

Bueno la pruebas y nos comentas ok? :-)

Saludos
Monica


¡Un Saludo! :-)
www.fermu.com
www.zorval.es

Hola Mónica, Buenos días..!!
Gracias por tu código, la verdad que está Excelente..!!!
Para hacerlo ejecutar demoré como 30 minutos...pues deseaba asignarle un
comando del tecladohasta que dí. "Ctrl+z"
Ahora necesito resolver otro problema:
Cada referencia tiene 10 posibilidades de extensión y yo para simplificar
utilizo el Autotexto. Ejemplo:

DFT5690-Sección de Mantenimiento
SKP6031-Area de Ensamblaje
XOM1236-Modulo de Prototipos

Lo que está después del guión, se puede además "Autotextar" en el
InputBox("Introduzca la referencia: ") de tu código?
Muchísimas gracias
Un abrazo
Oscar

"Tux" escribió en el mensaje
news:

Compumakro avait soumis l'idée :

Hola Monica
Los datos los estoy tomando de un libro...de papel...impreso
Gracias
Oscar

Hola Oscar :-)

Pues bien ya tengo el codigo jejejje! a ver si nos va bien (si no
entiendes de codigo nos comentas y te explicamos ok? :-)

En un modulo de tu libro de word en visual basic (menu insertar> modulo) y
copy paste del siguiete codigo :

'--

Sub Introducir_referencias()

Txt = InputBox("Introduzca la referencia: ")

With ActiveDocument.Content.Find
.ClearFormatting
Counter = 0
Do While .Execute(FindText:=Txt, Forward:=True) = True
Counter = Counter + 1
Loop
End With
MsgBox "La refencia " + Txt + " esta repetida " + Str$(Counter) + "
vece/s"


msg = "¿Quiere copiarlo?"

respuesta = MsgBox(msg, vbExclamation + vbYesNoCancel, Txt)
Select Case respuesta
Case Is = vbYes

Selection.TypeText Txt

Case Is = vbCancel
Exit Sub
End Select

End Sub

'-

Este codigo te crea un inputbox para introducir la referencia y te dice
cuantas veces esta repetida ( 1 vez , 0 veces etc)
A continuacion te sale un msgBox diciendote que quieres hacer si lo
quieres copiar o no , Tu si no la tienes repetida le dices que si y te la
copiara alla donde tengas el cursor ok?

Bueno la pruebas y nos comentas ok? :-)

Saludos
Monica


¡Un Saludo! :-)
www.fermu.com
www.zorval.es

Compumakro a formulé la demande :

Hola Mónica, Buenos días..!!
Gracias por tu código, la verdad que está Excelente..!!!
Para hacerlo ejecutar demoré como 30 minutos...pues deseaba asignarle un
comando del tecladohasta que dí. "Ctrl+z"
Ahora necesito resolver otro problema:
Cada referencia tiene 10 posibilidades de extensión y yo para simplificar
utilizo el Autotexto. Ejemplo:

DFT5690-Sección de Mantenimiento
SKP6031-Area de Ensamblaje
XOM1236-Modulo de Prototipos

Lo que está después del guión, se puede además "Autotextar" en el
InputBox("Introduzca la referencia: ") de tu código?
Muchísimas gracias
Un abrazo
Oscar

Hola Oscar :-)

Pues para asignar una combinacion de teclas a un teclado:

menu herramientas > macro > grabar nueva macro ahi veras un cuadro de
dialogo en el que sale una imagen de un teclado le das un click y te
sale un cuadro de dialogo en donde dice:

"Nueva tecla de metodo abreviado" pones el cursor ahi y coges y le das
por ejemplo a Ctrl+j+k (a la vez tienes que pulsarlas) y se te
colocaran ahi le das a aceptar y ya tienes la macro grabada. Para
utilizar el codigo de tu macro solo tienes que copiar y pegarlo ahi en
esa macro que no hemos grabado nada y cerrar visual basic y ya tienes
la combinacion de letras para tu macro.

Consejo:

Utiliza dos teclas como el ejmplo porque muchas teclas estan ya
ocupadas por otras funciones por ejemplo:

Ctrl+z que tiene la funcion de deshacer (undo) y al aplicar tu codigo
pues has deshecho esa funcion :-(

elimina la macro que has creado con esa combinacion (eso si no te
importa no tener disponible esa funcion Undo (deshacer) sino la dejas
tal cual . ok? :-)

Para el tema de Autotexto, pues yo te aconsejo crear una barra de
herramientas personalizada para tal funcion ¿como? pues puedes crearla
mediante codigo y mediante la opcion personalizar del menu Herramientas >
personalizar por ejemplo:

Abres personalizar > ahi en pestaña Barra de herramientas le das al
boton Nueva y te aparece ahi para ponerle el nombre que quieras y donde
la quieres tener disponible si en La plantilla general Normal.dot o en
solo tu documento ok?

Una vez queada te salda por ahi flotando la pones donde quieras junto a
las otras y te vas ahora a la pestaña Comandos ahi a la izquierda busca
"Autotexto" a la derecha te apareceran los nombres de referencias que
empleas pues coges clicas con el raton y arrastras hasta la barra
personalizada que hemos creado y ahi los tendras para que con un click
se te situen en la parte del documento donde desees :-)

Mediante codigo podemos hacer esto mismo y creando tambien un submenu
si no quieres tenerlas todas a la vista ok? :-)

Y creo que no me he dejado nada mas :-?

Bueno nos comentas ok? :-)

Saludos
Monica


¡Un Saludo! :-)
www.fermu.com
www.zorval.es