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 rango de texto. Lectura y escritura.
Sintaxis
más sencilla.Negrita
expresión Variable que representa un objeto de fuente .
Valor devuelto
MsoTriState
Comentarios
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 | Un valor devuelto que indica que el rango contiene texto con formato de negrita y otro texto sin negrita. |
| msoTriStateToggle | Un 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 piso de la publicación activa y, si contiene texto en negrita y no texto en negrita, se 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 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.