TextStyles オブジェクト (Publisher)

テキスト スタイル のコレクション 文書の組み込みおよびユーザー定義のスタイルを表すオブジェクト。

注釈

TextStyles コレクションを取得するには、Document.TextStyles プロパティを使用します。

追加 の使用 新しいユーザー定義スタイルを作成し、 TextStyles コレクションに追加するメソッドです。

例

次の使用例は、表を作成し、作業中の文書のすべてのスタイルを一覧表示します。

Sub ListTextStyles() 
 Dim sty As TextStyle 
 Dim tbl As Table 
 Dim intRow As Integer 
 
 With ActiveDocument 
 Set tbl = .Pages(1).Shapes.AddTable(NumRows:=.TextStyles.Count, _ 
 NumColumns:=2, Left:=72, Top:=72, Width:=488, Height:=12).Table 
 For Each sty In .TextStyles 
 intRow = intRow + 1 
 With tbl.Rows(intRow) 
 .Cells(1).text = sty.Name 
 .Cells(2).text = sty.BaseStyle 
 End With 
 Next sty 
 End With 
End Sub

次の使用例は、新しいスタイルを作成し、それをカーソル位置の段落に適用します。

Sub ApplyTextStyle() 
 Dim styNew As TextStyle 
 Dim fntStyle As Font 
 
 'Create a new style 
 Set styNew = ActiveDocument.TextStyles.Add(StyleName:="NewStyle") 
 Set fntStyle = styNew.Font 
 
 'Format the Font object 
 With fntStyle 
 .Name = "Tahoma" 
 .Size = 20 
 .Bold = msoTrue 
 End With 
 
 'Apply the Font object formatting to the new style 
 styNew.Font = fntStyle 
 
 'Apply the new style to the selected paragraph 
 Selection.TextRange.ParagraphFormat.TextStyle = "NewStyle" 
End Sub

メソッド

• Add
• アイテム

プロパティ

• Application
• Count
• Parent

関連項目

• Publisher オブジェクト モデル リファレンス

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

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