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 especifica si un párrafo tiene sangría mediante el ancho de caracteres del este asiático. Lectura y escritura.
Sintaxis
expresión. UseCharBasedFirstLineIndent
expresión Variable que representa un objeto ParagraphFormat .
Valor devuelto
MsoTriState
Observaciones
El valor de la propiedad UseCharBasedFirstLineIndent puede ser una de las constantes MsoTriState declaradas en la biblioteca de tipos de Microsoft Office.
El valor de UseCharBasedFirstLineIndent puede establecerse sólo si los idiomas del este asiático están habilitados en el equipo cliente, mientras que el valor puede devolverse independientemente de si están habilitados los idiomas de Asia oriental. Tenga en cuenta que UseCharBasedFirstLineIndent debe establecerse antes de la propiedad CharBasedFirstLineIndent puede devolver o establecer. Si no se establece UseCharBasedFirstLineIndent primero, se devuelve un error en tiempo de ejecución "permiso denegado".
Si UseCharBasedFirstLineIndent es msoTrue, el párrafo se aplica sangría mediante el ancho de caracteres del este asiático y, si es msoFalse, no lo es. El valor predeterminado es msoFalse.
Ejemplo
En el siguiente ejemplo se crea un cuadro de texto en la cuarta página de la publicación activa. Después de establece la propiedad UseCharBasedFirstLineIndent en True, el ancho de la sangría de primera línea se establece en 15 puntos mediante la propiedad CharBasedFirstLineIndent. A continuación, se establecen las propiedades de fuente y, a continuación, se inserta texto en el párrafo.
Dim theTextBox As Shape
Set theTextBox = ActiveDocument.Pages(4).Shapes _
.AddShape(msoShapeRectangle, 100, 100, 300, 200)
With theTextBox
.TextFrame.TextRange.ParagraphFormat _
.UseCharBasedFirstLineIndent = msoTrue
.TextFrame.TextRange.ParagraphFormat _
.CharBasedFirstLineIndent = 15
.TextFrame.TextRange.Font.Name = "Verdana"
.TextFrame.TextRange.Font.Size = 12
.TextFrame.TextRange.Text = "This is a test sentence." _
& Chr(13) & "This is another test sentence."
End With
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.