Word - Sutituir distintas palabras a la vez en Word

   
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Sutituir distintas palabras a la vez en Word

Publicado por Antoni Masana (158 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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar