Buscar Reemplazar en Cuadro de TEXTO

09/05/2006 - 00:00 por HMS | Informe spam
Hola a tod@s.

Copie un cudro de texto de un doc de Word en una hoja de EXCEL, y quisier
BUSCAR y REEMPLAZAR, algunos valores en dicho cuadro de texto.
Existe alguna forma de hacerlo...
Ya probé con CTRL+L, pero ese comando sólo hace búsquedas en Celdas y NO en
cuadros de texto...

De anetmano Gracias..
HMS
 

Leer las respuestas

#1 Héctor Miguel
09/05/2006 - 06:43 | Informe spam
hola, 'tocayo' !

Copie un cuadro de texto de un doc de Word en una hoja de EXCEL
y quisiera BUSCAR y REEMPLAZAR, algunos valores en dicho cuadro de texto.
Ya probe con CTRL+L, pero... solo hace busquedas en Celdas y NO en cuadros de texto...



[en excel]... los metodos 'find' y 'replace' [que son los que usan el atajo y el comando por menu]...
SOLO 'trabajan' en los objetos 'propios' de la hoja de calculo... [las celdas] :)
NO en los objetos 'incrustados' [como cuadros de texto, botones, figuras, etc.] :\

asumiendo que 'el cuadro de texto'... viene de la barra de herramientas de dibujo...
prueba con la siguiente macro -> seleccionando PRIMERO dicho cuadro de texto ;)
en un modulo de codigo normal ==Sub Reemplazo_en_cuadro_de_texto_incrustado()
If TypeName(Selection) <> "TextBox" Then Exit Sub
With Selection.Characters
.Text = Application.Substitute(.Text, _
InputBox("Indica el texto buscado..."), _
InputBox("Indica el texto nuevo..."))
End With
End Sub

nota: si vas a utilizar [solo] excel 2000 en adelante...
puedes sustituir la funcion de hoja de calculo -> Application.Substitute
por la funcion de vba... -> Replace

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares