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