Partilhar via

Método Selection.SelectCurrentIndent (Word)

  • Artigo

Estende a seleção para frente até encontrar texto com recuos de parágrafo esquerdo ou direito diferentes.

Sintaxe

expression. SelectCurrentIndent

expression é obrigatório. Uma variável que representa um objeto Selection.

Exemplo

Este exemplo vai para o início do primeiro parágrafo do documento que tenha recuos diferentes do primeiro parágrafo do documento ativo.

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

Este exemplo determina se todos os parágrafos do documento ativo estão formatados com os mesmos recuos esquerdo e direito e exibe uma caixa de mensagem indicando o 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

Confira também

Objeto Selection

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.