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.
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 "
Nome |
---|
Item |
Referência do modelo de objeto do Word
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.