Imprimir página | Cerrar ventana

Buscar y Reemplazar

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Word
Descripción del foro: Foro de Word
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86038
Fecha de impresión: 26/Marzo/2026 a las 18:34


Tema: Buscar y Reemplazar
Publicado por: Gladiador
Asunto: Buscar y Reemplazar
Fecha de publicación: 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


Respuestas:
Publicado por: prga
Fecha de publicación: 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

Publicado por: joaquin16
Fecha de publicación: 30/Agosto/2022 a las 01:26
Muchas gracias por compartir el código resuelto.
___________________________
Trabajo con Tecnología de http://https://freewayconsulting.com/consultoria-salesforce/mulesoft/" rel="nofollow - Mulesoft que agiliza la comunicación de varios sistemas.


Imprimir página | Cerrar ventana