Como cambiar el mismo texto en multiples comentarios

19/07/2004 - 23:27 por Luis Alexander Lòpez | Informe spam
Saludos:

Bueno compañeros, yo no pido mucho y casi siempre aprendo de lo que
preguntan los demas bueno llego el momento de preguntar ya que no lo puedo
conocer todo sino fuese millonario jejeje ok al grano:

Tengo un libro con 3 hojas
cada hoja tiene x cantidad de comentarios (variables para cada hoja es decir
en una pueden ser 2 como en otra 8 y en la tercera 5).
Ahora bien tengo el texto: "Luis Alexander López" (es el usuario y en
negrita seguida de dos Puntos)
Quiero sustituirlo por "Unidad de Avionica:" <por ejemplo

Ahora bien lo que deseo es.

Sustituir "Luis Alexander López:" por "Unidad de Avionica": en toda la hoja
al menos se como cambiar de hoja pero no doy la manera de cambiar esto.
lo haria manual pero son muchos libros de diferentes formatos pero con estos
comentarios.

Muchisimo sabria agradecer su ayuda.


Gracias de antemano.

Luis Alexander López
Caracas-Venezuela
 

Leer las respuestas

#1 Fernando Arroyo
20/07/2004 - 09:20 | Informe spam
Prueba con el siguiente código:


Sub ModificarTodosLosComentariosDelLibro()
Dim wksH As Worksheet
Dim cmtC As Comment

For Each wksH In Worksheets
For Each cmtC In wksH.Comments
cmtC.Text Text:=Replace(cmtC.Text, "Luis Alexander López", "Unidad de Aviónica")
Next cmtC
Next wksH

Set cmtC = Nothing
Set wksH = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel



"Luis Alexander Lòpez" escribió en el mensaje news:Oqvt$
Saludos:

Bueno compañeros, yo no pido mucho y casi siempre aprendo de lo que
preguntan los demas bueno llego el momento de preguntar ya que no lo puedo
conocer todo sino fuese millonario jejeje ok al grano:

Tengo un libro con 3 hojas
cada hoja tiene x cantidad de comentarios (variables para cada hoja es decir
en una pueden ser 2 como en otra 8 y en la tercera 5).
Ahora bien tengo el texto: "Luis Alexander López" (es el usuario y en
negrita seguida de dos Puntos)
Quiero sustituirlo por "Unidad de Avionica:" <por ejemplo

Ahora bien lo que deseo es.

Sustituir "Luis Alexander López:" por "Unidad de Avionica": en toda la hoja
al menos se como cambiar de hoja pero no doy la manera de cambiar esto.
lo haria manual pero son muchos libros de diferentes formatos pero con estos
comentarios.

Muchisimo sabria agradecer su ayuda.


Gracias de antemano.

Luis Alexander López
Caracas-Venezuela


Preguntas similares