Método Selection.SelectCurrentIndent (Word)

Extiende la selección hacia delante hasta que encuentra texto con una sangría de párrafo izquierda o derecha distinta.

Sintaxis

expresión. SelectCurrentIndent

expresión: Necesaria. Variable que representa un objeto Selection.

Ejemplo

En este ejemplo se pasa al principio del primer párrafo del documento con sangría distinta a la del primer párrafo del documento activo.

With Selection 
 .HomeKey Unit:=wdStory, Extend:=wdMove 
 .SelectCurrentIndent 
 .Collapse Direction:=wdCollapseEnd 
End With

En este ejemplo se determina si a todos los párrafos del documento activo se les ha aplicado formato con las mismas sangrías izquierda y derecha y, a continuación, se muestra un cuadro de mensaje con el resultado.

With Selection 
 .HomeKey Unit:=wdStory, Extend:=wdMove 
 .SelectCurrentIndent 
 .Collapse Direction:=wdCollapseEnd 
End With 
If Selection.End = ActiveDocument.Content.End - 1 Then 
 MsgBox "All paragraphs share the same left " _ 
 & "and right indents." 
Else 
 MsgBox "Not all paragraphs share the same left " _ 
 & "and right indents." 
End If

Vea también

Objeto Selection

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.