Foros del Web » Soporte técnico » Ofimática »

Macro para eliminar espacios de un documento

Estas en el tema de Macro para eliminar espacios de un documento en el foro de Ofimática en Foros del Web. 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. ...
  #1 (permalink)  
Antiguo 09/01/2017, 12:17
 
Fecha de Ingreso: febrero-2006
Mensajes: 446
Antigüedad: 14 años, 3 meses
Puntos: 3
Macro para eliminar espacios de un documento

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 

Etiquetas: espacios, macro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:52.