Macro para eliminar espacios de un documento
Publicado por pati (1 intervención) el 09/01/2017 20:27:10
Hola tengo esta macro para microsoft office que elimina los espacios en el documento, pero me gustaria que no eliminara los espacios de las tablas.
¿Como puedo indicarle a la macro que no elimine el espacio de las tablas que existan en el documento?
¿Como puedo indicarle a la macro que no elimine el espacio de las tablas que existan en el documento?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub parrafo()
Macro grabada por FEckEZ
Selection.Text = reemplazar_parrafo("^p^p^p^p^p^p^p^p^p^p^p^p", "__nuevoparrafo__")
Selection.Text = reemplazar_parrafo("^p", " ")
Selection.Text = reemplazar_parrafo("__nuevoparrafo__", "^p^p")
End Sub
Private Function reemplazar_parrafo(ByVal texto As String, _
ByVal reemplazar As String)Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Text = texto
.Replacement.Text = reemplazar
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Function
Valora esta pregunta
0
