Word - Sutituir distintas palabras a la vez en Word

Sutituir distintas palabras a la vez en Word

Publicado por Alvaro (1 intervención) el 13/01/2012 22:12:02

Tengo un documento con texto en Word, en ese documento quiero sustituir varias palabas que son distintas Ej: (casa, motor, perro) por otras palabras Ej: (edificio, grande, marron)
Pero lo que quiero es que "casa" se sutituya por "edificio", "motor" se sustituya por "grande" en ese orden... Quiero que el listado a remplazar se sutituya por las nuevas palabras de una sola vez porque si lo hiciera de una en una tardaria horas puesto que el listado a remplazar es muy grande.
Gracias y un saludo!!

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 147

Sutituir distintas palabras a la vez en Word

Publicado por Antoni Masana (205 intervenciones) el 16/01/2012 08:35:35

La única forma de hacerlo optimo y rápido es correr una MACRO que realice los tres reemplazos.

Ventajas: No tienes que esperar a que termine una palabra para hacer la otra, es la forma mas rápida y lo mejor de todo, para que inventar la rueda si ya esta inventara.

Te pongo una macro muy simple que realiza los tres reemplazos pero ten cuidado por que opciones de reemplazar que quizás tengas que modificas.

Por ejemplo en el caso de la palabra casa podría pasar esto

Original:
- Esta casa es muy bonita y en ella vive Casandra.

Modificada:
- Esta edificio es muy bonita y en ella vive edificiondra.

Sub Macro1()

' Macro1 Macro

    ' ========== Palabra 1 ==========

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "casa"

        .Replacement.Text = "edificio"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    ' ========== Palabra 2 ==========

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "motor"

        .Replacement.Text = "grande"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

    ' ========== Palabra 3 ==========

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "perro"

        .Replacement.Text = "marron"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

La forma de crear la macro es la siguiente:
- Seleccionas grabar macro
- Abres reemplazar, pones las palabras, marcas las opciones, ejecutas reemplazar.
- Finalizas la macro y ya esta creada.

Trabaja sobre un documento pequeño o en blanco y después ejecuta la macro sobre el documento bueno.

Asegúrate de haber realizado una copia del documento antes de ejecutar la MACRO.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar