Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve o establece una constante MsoTriState que representa el estado de la propiedad Bold en los caracteres de un intervalo de texto. Lectura y escritura.
Sintaxis
expresión. Audaz
expresión Variable que representa un objeto Font .
Valor devuelto
MsoTriState
Observaciones
El valor de la propiedad Bold puede ser una de las siguientes constantes MsoTriState declaradas en la biblioteca de tipos de Microsoft Office.
| Constante | Descripción |
|---|---|
| msoFalse | Ninguno de los caracteres del intervalo tiene negrita como formato. |
| msoTriStateMixed | Valor devuelto que indica que el intervalo contiene texto con formato de negrita y texto que no tiene formato de negrita. |
| msoTriStateToggle | Valor establecido que cambia entre msoTrue y msoFalse. |
| msoTrue | Todos los caracteres del intervalo tienen el formato de negrita. |
Ejemplo
En este ejemplo se prueba todo el texto del segundo artículo de la publicación activa y, si contiene texto en negrita y no texto en negrita, establece todo el texto en negrita. Si el texto está en negrita o no está en negrita, se muestra un mensaje que informa al usuario de que no hay ninguna negrita mixta. Para que este código se ejecute correctamente, es necesario que haya dos o más artículos con texto en la publicación activa.
Sub BoldStory()
Dim stf As Publisher.Font
Set stf = Application.ActiveDocument.Stories(2).TextRange.Font
With stf
If .Bold = msoTriStateMixed Then
.Bold = msoTrue
Else
MsgBox "Mixed bolding is not in this story."
End If
End With
End Sub
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.