Compartilhar via

Método Range.WholeStory (Word)

  • Artigo

Expande um intervalo para incluir o texto inteiro.

Sintaxe

expression. WholeStory

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

Comentários

As instruções seguintes, nas quais myRange é um objeto Range válido, são funcionalmente equivalentes:

myRange.WholeStory 
myRange.Expand Unit:=wdStory

Exemplo

Este exemplo expande myRange para incluir todo o texto e aplica a fonte Arial ao intervalo.

Set myRange = Selection.Range 
myRange.WholeStory 
myRange.Font.Name = "Arial"

Este exemplo expande myRange para incluir todo o texto de comentários (wdCommentsStory) e copia os comentários para um novo documento.

If ActiveDocument.Comments.Count >= 1 Then 
 Set myRange = Activedocument.Comments(1).Range 
 myRange.WholeStory 
 myRange.Copy 
 Documents.Add.Content.Paste 
End If

Confira também

Objeto Range

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.