Buscar Reemplazar en Cuadro de TEXTO

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.

Muchas Gracias TOCAYO !!!
Pruebo y luego te comento..
Saludos
HMS

Ing. Héctor Montero Sobrado
HMS ENGINE VISUAL KNOWLEDGE CA PCR
Mail :
Ofic 506-2317858 Cel 506-376-9751
Skype User Name: hmonteros
San José, Costa Rica.

"Héctor Miguel" wrote in message
news:

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.