Macro VBA para reemplazar una palabra o texto seleccionado
Publicado por Guillermo (1 intervención) el 19/09/2019 16:07:17
Estimados,
necesitaría su ayuda para lograr reemplazar una selección de texto en un documento Word por la misma selección de texto, pero en formato "tachado" e incluida dentro dentro de la siguiente cláusula, toda en color rojo: "[XX: `texto seleccionado en formato tachado´]"
Serían tan amables de iluminarme, por favor?
necesitaría su ayuda para lograr reemplazar una selección de texto en un documento Word por la misma selección de texto, pero en formato "tachado" e incluida dentro dentro de la siguiente cláusula, toda en color rojo: "[XX: `texto seleccionado en formato tachado´]"
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
Sub Macro3()
'
' Macro3 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Text = "accordance"
.Replacement.Text = "[CH: accordance]"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
End Sub
Serían tan amables de iluminarme, por favor?
Valora esta pregunta
0
