Propriedade Comment.Scope (Word)

Retorna um objeto Range que representa o intervalo de texto marcado pelo comentário especificado.

Sintaxe

expression. Scope

expressão Uma expressão que devolve um objeto "Comentário".

Exemplo

Este exemplo exibe o texto associado ao primeiro comentário da seleção.

If Selection.Comments.Count >= 1 Then 
 Set myRange = Selection.Comments(1).Scope 
 MsgBox myRange.Text 
End If

Este exemplo copia o texto associado ao último comentário do documento ativo.

total = ActiveDocument.Comments.Count 
If total >= 1 Then ActiveDocument.Comments(total).Scope.Copy

Confira também

Objeto Comment

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.