Buscar y Reemplazar

   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

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
Gladiador Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 22/Junio/2006 Localización: Venezuela Estado: Sin conexión Puntos: 219	Opciones de entrada Responder Cita Gladiador Informar de mensaje Gracias(0) Cita Respuesta 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

prga Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Moderador Unido: 16/Noviembre/2004 Localización: España Estado: Sin conexión Puntos: 3493	Opciones de entrada Responder Cita prga Informar de mensaje Gracias(0) Cita Respuesta 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

joaquin16 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 09/Marzo/2021 Localización: México Estado: Sin conexión Puntos: 13	Opciones de entrada Responder Cita joaquin16 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 30/Agosto/2022 a las 01:26
	Muchas gracias por compartir el código resuelto. ___________________________ Trabajo con Tecnología de Mulesoft que agiliza la comunicación de varios sistemas.