Propiedad ParagraphFormat.UseCharBasedFirstLineIndent (Publisher)

Devuelve o establece una constante MsoTriState que especifica si se aplica sangría a un párrafo con el ancho de caracteres de Asia oriental. Lectura y escritura.

Sintaxis

más sencilla.UseCharBasedFirstLineIndent

expresión Variable que representa un objeto ParagraphFormat .

Valor devuelto

MsoTriState

Comentarios

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, al párrafo se le aplica sangría con el ancho de caracteres de Asia Oriental, 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.