Objeto Words (Word)
Una colección de palabras de un documento, selección o intervalo. Cada elemento de la colección Words es un objeto Range que representa una palabra. No hay ningún objeto de Word.
Comentarios
Utilice la propiedad Words para devolver el objeto Words. En el ejemplo de código siguiente se muestra el número de palabras actualmente seleccionado.
MsgBox Selection.Words.Count & " words are selected"
Utilice palabras (Index), donde Index es el número de índice, para devolver un objeto Range que representa una palabra. El número de índice representa la posición de la palabra en la colección de palabras. En el ejemplo de código siguiente se da formato a la primera palabra de la selección como cursiva de 24 puntos.
With Selection.Words(1)
.Italic = True
.Font.Size = 24
End With
El elemento de la colección Words incluye tanto la palabra como los espacios detrás de la palabra. Para quitar los espacios de la derecha, utilice la función RTrim de Visual Basic; por ejemplo, RTrim(ActiveDocument.Words(1)). En el ejemplo de código siguiente se selecciona la primera palabra (y sus espacios) en el documento activo.
ActiveDocument.Words(1).Select
Si la selección es el punto de inserción y va seguido de un espacio, Selection.Words(1) hace referencia a la palabra que precede a la selección. En cambio, si la selección es el punto de inserción y va seguido de un carácter, Selection.Words(1) hace referencia a la palabra posterior a la selección.
La propiedad Count de esta colección de un documento devuelve el número de elementos sólo del artículo principal. Para contar los elementos de otros contenidos utilice la colección con el objeto Range. Además, la propiedad Count incluye marcas de párrafo y los signos de puntuación en el total. Para contar las palabras reales de un documento, utilice el cuadro de diálogo Contar palabras. En el siguiente ejemplo de código, se recupera el número de palabras del documento activo y se asigna el valor a la variable numWords.
Set temp = Dialogs(wdDialogToolsWordCount)
' Execute the dialog box to refresh its data.
temp.Execute
numWords = temp.Words
Nota:
[!NOTA] Para obtener más información sobre cómo tener acceso a cuadros de diálogo integrados, vea Mostrar cuadros de diálogo de Word integrados.
El método Add no está disponible para la colección de palabras. En su lugar, utilice el InsertAfter método o InsertBefore método para añadir texto a un objeto Range. En el ejemplo de código siguiente se inserta texto después de la primera palabra del documento activo.
ActiveDocument.Range.Words(1).InsertAfter "New text "
Métodos
| Nombre |
|---|
| Item |
Propiedades
| Nombre |
|---|
| Aplicación |
| Count |
| Creator |
| Primero |
| Último |
| Parent |
Vea también
Referencia de modelos de objetos de Word
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.