Objeto Words (Word)

Uma coleção de palavras em uma seleção, intervalo ou documento. Cada item na coleção Words é um objeto Range que representa uma palavra. Não há nenhum objeto do Word.

Comentários

Use a propriedade de palavras para retornar um objeto Words. O exemplo a seguir exibe quantas palavras estão selecionadas atualmente.

MsgBox Selection.Words.Count & " words are selected"

Use palavras (Index), onde Index é o número de índice, para retornar um objeto Range que representa uma palavra. O número de índice representa a posição da palavra na coleção Words. O exemplo a seguir formata a primeira palavra da seleção como itálico de 24 pontas.

With Selection.Words(1) 
 .Italic = True 
 .Font.Size = 24 
End With

O item na coleção Words inclui a palavra e os espaços após a palavra. Para remover os espaços à direita, use a função RTrim do Visual Basic — por exemplo, RTrim(ActiveDocument.Words(1)). O exemplo de código a seguir seleciona a primeira palavra (e seus espaços à direita) no documento ativo.

ActiveDocument.Words(1).Select

Se a seleção for o ponto de inserção e estiver seguido imediatamente por um espaço, Selection.Words(1) se referirá à palavra que antecede a seleção. Se a seleção for o ponto de inserção e estiver seguido imediatamente por um caractere, Selection.Words(1) se referirá à palavra após a seleção.

A propriedade Count dessa coleção em um documento retorna o número de itens no texto principal. Para contar itens em outros textos usam a coleção com o objeto de intervalo. Além disso, a propriedade Count inclui as marcas de parágrafo e pontuação no total. Para contar palavras reais em um documento, use a caixa de diálogo Contar palavras. O exemplo de código a seguir obtém o número de palavras no documento ativo e atribui o valor à variável numWords.

Set temp = Dialogs(wdDialogToolsWordCount) 
' Execute the dialog box to refresh its data. 
temp.Execute 
numWords = temp.Words

Observação

[!OBSERVAçãO] Para obter mais informações sobre como chamar caixas de diálogo internas, consulte Exibindo caixas de diálogo internas do Word.

O método Add não está disponível para o conjunto de palavras. Em vez disso, use o InsertAfter método ou o InsertBefore método para adicionar texto a um objeto Range. O exemplo de código a seguir insere texto após a primeira palavra do documento ativo.

ActiveDocument.Range.Words(1).InsertAfter "New text "

Métodos

Nome
Item

Propriedades

Nome
Aplicativo
Count
Creator
Primeira
Último
Parent

Confira também

Referência do modelo de objeto do Word

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.