Macro para eliminar espacios de un documento

[-thor-]

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?

Código PHP:

  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