次の方法で共有

ParagraphFormat.CharBasedFirstLineIndent プロパティ (Publisher)

  • [アーティクル]

(東アジア言語の文字幅) の先頭行のインデントの値を設定を取得または取得します。 読み取り/書き込みが可能な Long です。

構文

式。CharBasedFirstLineIndent

式ParagraphFormat オブジェクトを表す変数。

戻り値

Long

注釈

CharBasedFirstLineIndent の値は、UseCharBasedFirstLineIndent プロパティが設定された後でのみ取得または設定できます。 UseCharBasedFirstLineIndent が最初に設定されていない場合は、実行時「アクセスが拒否されました」エラーが返されます。

注:

UseCharBasedFirstLineIndent は、クライアント コンピューターで東アジア言語が有効になっている場合にのみ設定できます (東アジア言語が有効かどうかに関係なく、値を返すことができます)。 これは実質的に、クライアント コンピューターで東アジア言語が有効になっていない限り、 CharBasedFirstLineIndent を使用できないことを意味します。

CharBasedFirstLineIndent に使用できるのは 0 (ゼロ) から 80 の範囲の値です。

例

次の例では、作業中の文書の 4 ページ目にテキスト ボックスを作成します。 UseCharBasedFirstLineIndent プロパティを True に設定すると、CharBasedFirstLineIndent プロパティを使用して、最初の行インデントの幅が 15 ポイントに設定されます。 フォントのプロパティを設定し、段落にテキストを挿入します.

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。