Office - Macro para eliminar espacios de un documento

 
Vista:

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?

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
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 wordexperto.com
Val: 246
Oro
Ha mantenido su posición en Office (en relación al último mes)
Gráfica de Office

Macro para eliminar espacios de un documento

Publicado por wordexperto.com (99 intervenciones) el 10/01/2017 08:56:02
Hola pati:
Parece que es difícil de obviar eliminar párrafos entre dos tablas. http://word.mvps.org/FAQS/MacrosVBA/DeleteEmptyParas.htm
Si lo eliminas las tablas se unen. Word piensa que no hay motivo para poner dos tablas seguidas, cree que dos tablas seguidas deben ser la misma.
Yo te aconsejaría, si puedes, que uses imágenes de las tablas en el documento.
Si no puedes, lo más rápido es usar Buscar y reemplazar de la forma que describo en esta entrada de mi blog. Tendrás que hacerlo por tramos para evitar la unión de tablas. https://wordexperto.com/2016/05/17/eliminar-parrafos-en-blanco-vacios-en-un-documento/
https://wordexperto.com/blog/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar