Método Selection.NextRevision (Word)
Localiza e retorna a próxima alteração controlada como um objeto Revision.
Sintaxe
expression. NextRevision( _Wrap_ )
expressão Obrigatório. Uma variável que representa um objeto Selection.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Wrap | Opcional | Variant | True para continuar a pesquisa de uma revisão no início do documento quando é atingido o final do documento. O valor padrão é False. |
Valor de retorno
Revision
Comentários
O texto alterado se torna a seleção atual. Use as propriedades do objeto Revision resultante para ver qual tipo de alteração ele é, quem a fez e assim por diante. Use os métodos do objeto Revision para aceitar ou rejeitar a alteração.
Se não houver alterações controladas para serem encontradas, a seleção atual continua inalterada.
Exemplo
Este exemplo rejeita a próxima alteração controlada encontrada depois do quinto parágrafo no documento ativo. A revTempvariável será definida como Nada se uma alteração não for encontrada.
Dim rngTemp as Range
Dim revTemp as Revision
If ActiveDocument.Paragraphs.Count >= 5 Then
Set rngTemp = ActiveDocument.Paragraphs(5).Range
rngTemp.Select
Set revTemp = Selection.NextRevision(Wrap:=False)
If Not (revTemp Is Nothing) Then revTemp.Reject
End If
Este exemplo aceita a próxima alteração controlada encontrada se o tipo de mudança for texto inserido.
Dim revTemp as Revision
Set revTemp = Selection.NextRevision(Wrap:=True)
If Not (revTemp Is Nothing) Then
If revTemp.Type = wdRevisionInsert Then revTemp.Accept
End If
Este exemplo encontra a próxima revisão após a seleção atual feita pelo autor do documento.
Dim revTemp as Revision
Dim strAuthor as String
strAuthor = ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor)
Do While True
Set revTemp = Selection.NextRevision(Wrap:=False)
If Not (revTemp Is Nothing) Then
If revTemp.Author = strAuthor Then
MsgBox Prompt:="Another revision by " & strAuthor & "!"
Exit Do
End If
Else
MsgBox Prompt:="No more revisions!"
Exit Do
End If
Loop
Confira também
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.