ParagraphFormat.UseCharBasedFirstLineIndent-Eigenschaft (Publisher)

  • Artikel

Gibt eine MsoTriState-Konstante zurück, die angibt, ob ein Absatz mit ostasiatischer Zeichenbreite eingerückt wird, oder legt sie fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. UseCharBasedFirstLineIndent

Ausdruck Eine Variable, die ein ParagraphFormat-Objekt darstellt.

Rückgabewert

MsoTriState

HinwBemerkungeneise

Der Wert der UseCharBasedFirstLineIndent -Eigenschaft kann eine der in der Microsoft Office-Typbibliothek deklarierten MsoTriState -Konstanten sein.

Der Wert der UseCharBasedFirstLineIndent kann festgelegt werden, nur, wenn auf dem Clientcomputer ostasiatische Sprachen aktiviert sind, während der Wert zurückgegeben werden kann, unabhängig davon, ob ostasiatische Sprachen aktiviert sind. UseCharBasedFirstLineIndent vor der CharBasedFirstLineIndent -Eigenschaft festgelegt werden müssen, kann zurückgegeben oder festgelegt werden. Wenn UseCharBasedFirstLineIndent vorher nicht festgelegt wurde, wird ein Fehler "Berechtigung verweigert" zurückgegeben.

Wenn UseCharBasedFirstLineIndentauf msoTrue festgelegt ist, wird der Absatz mit ostasiatischer Zeichenbreite eingerückt, und wenn er msoFalse ist, ist dies nicht der Wert. Der Standardwert ist MsoFalse.

Beispiel

Im folgenden Beispiel wird ein Textfeld für die vierte Seite der aktiven Publikation erstellt. Nachdem die UseCharBasedFirstLineIndent -Eigenschaft auf True festgelegt ist, wird die Breite des Einzugs der ersten Zeile mithilfe der CharBasedFirstLineIndent -Eigenschaft auf 15 Punkt festgelegt. Font-Eigenschaften werden festgelegt, und Text wird in dem Absatz eingefügt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.