** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Word
  Mensajes nuevos Mensajes nuevos RSS - Buscar y Reemplazar
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Buscar y Reemplazar

 Responder Responder
Autor
Mensaje
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 195
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Gladiador Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Buscar y Reemplazar
    Enviado: 02/Junio/2021 a las 20:24
Hola, quisiera su ayuda en este asunto

Muchas veces importo texto y deseo hacerle cambios.
Por Ejemplo

1 Lista de compras
2 Libros clásicos
3 Partes de repuestos

Y quisiera reemplazarlo así: 

1<tab>Lista de compras
2<tab>Libros clásicos
3<tab>Partes de repuestos

"<tab> es marca de tabulador"

Entonces, quisiera hacer una búsqueda digamos
Buscar:                     número y espacio
Reemplazar por:        el mismo número que encuentra y <tab>

A veces no es un número lo que busco, puede ser un carácter

Alguna idea, sugerencia.

Gracias
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3411
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita prga Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 03/Junio/2021 a las 12:43
Hola.
Una respuesta a la pregunta de buscar número y espacio y dejar el mismo número pero en el espacio poner un tabulador, pasa por un código parecido a:

Sub ponetabuladores()
    Selection.Find.ClearFormatting
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "[0-9] "   ''''busca número seguido de espacio
        .Forward = True
        .Wrap = wdFindAsk
        .MatchWildcards = True
    End With
  Do While Selection.Find.Execute
   Selection.Text = Replace(Selection.Text, " ", Chr(9))   '''chr(9) es el tabulador
   Selection.HomeKey Unit:=wdStory
  Loop
End Sub

El código es a título de ejemplo para perfeccionarlo y adaptarlo a cada caso, ya que cambia SIEMPRE el espacio que haya después de un número por un tabulador ( en una expresión tipo "3 de junio de 2021 a las 12 horas" también mete el tabulador después de los números)
No es mucho, pero espero que ayude a resolver la duda
Ya comentas.
Un saludo a todos
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable