Insertar Section Breaks

Hola:
Prueba con una macro:
Sub Buscaryreemplazarconsaltosdeseccion()

Dim rngReemplazar As Word.Range
Dim rngEncontrar As Word.Range
Set rngReemplazar = ActiveDocument.Content
With rngReemplazar.Find
.ClearFormatting
.Replacement.ClearFormatting

‘ Aquí insertas el texto que has marcado como “marcador de seccion”
.Text = "B"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
Do While .Execute
Set rngEncontrar = rngReemplazar.Duplicate
rngEncontrar.Move Unit:=wdCharacter, Count:=1
rngEncontrar.InsertBreak Type:=wdSectionBreakContinuous
rngReemplazar.Collapse wdCollapseEnd
Loop
End With
End Sub



Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"C a r l o s A n t o n i o" <carlvazpr?arroba¿yahoo.com> escribió en el mensaje
news:uIA%

Buen dia.

Me entregaron un documento en Word con problemas en las secciones y los
encabezados. Para resolverlo, decidi eliminar las todas las secciones de un golpe
con reemplazando la seccion "^b" por "XXX". Luego borre todos los encabezados y ya
estoy listo para restaurar las secciones reemplazando "XXX" por el "section break".

La pregunta es: ¿como puedo hacer el segundo reemplazo si en en la ventana de
"special" no encuentro la opcion "Section Break"?


Gracias por su ayuda.



Saludos,