ListType Property
Returns a pbListType constant from the specified ParagraphFormat object. Read-only.
| PbListType can be one of these PbListType constants. |
| pbListTypeAiueo |
| pbListTypeArabic |
| pbListTypeArabic1 |
| pbListTypeArabic2 |
| pbListTypeArabicLeadingZero |
| pbListTypeBullet |
| pbListTypeCardinalText |
| pbListTypeChiManSty |
| pbListTypeChinaDbNum1 |
| pbListTypeChinaDbNum2 |
| pbListTypeChinaDbNum3 |
| pbListTypeChinaDbNum4 |
| pbListTypeChosung |
| pbListTypeCirclenum |
| pbListTypeDAiueo |
| pbListTypeDArabic |
| pbListTypeDbChar |
| pbListTypeDbNum1 |
| pbListTypeDbNum2 |
| pbListTypeDbNum3 |
| pbListTypeDbNum4 |
| pbListTypeDIroha |
| pbListTypeGanada |
| pbListTypeGB1 |
| pbListTypeGB2 |
| pbListTypeGB3 |
| pbListTypeGB4 |
| pbListTypeHebrew1 |
| pbListTypeHebrew2 |
| pbListTypeHex |
| pbListTypeHindi1 |
| pbListTypeHindi2 |
| pbListTypeHindi3 |
| pbListTypeHindi4 |
| pbListTypeIroha |
| pbListTypeKoreaDbNum1 |
| pbListTypeKoreaDbNum2 |
| pbListTypeKoreaDbNum3 |
| pbListTypeKoreaDbNum4 |
| pbListTypeLowerCaseLetter |
| pbListTypeLowerCaseRoman |
| pbListTypeLowerCaseRussian |
| pbListTypeNone |
| pbListTypeOrdinal |
| pbListTypeOrdinalText |
| pbListTypeSbChar |
| pbListTypeTaiwanDbNum1 |
| pbListTypeTaiwanDbNum2 |
| pbListTypeTaiwanDbNum3 |
| pbListTypeTaiwanDbNum4 |
| pbListTypeThai1 |
| pbListTypeThai2 |
| pbListTypeThai3 |
| pbListTypeUpperCaseLetter |
| pbListTypeUpperCaseRoman |
| pbListTypeUpperCaseRussian |
| pbListTypeVietnamese1 |
| pbListTypeZodiac1 |
| pbListTypeZodiac2 |
| pbListTypeZodiac3 |
expression.ListType
expression Required. An expression that returns a ParagraphFormat object.
Remarks
This property is read-only. To set the ListType property of a ParagraphFormat object, use the SetListType method.
Example
This example tests to see if the list type is a numbered list, specifically pbListTypeArabic. If the ListType property is set to pbListTypeArabic, the ListNumberSeparator is set to pbListSeparatorParenthesis.
Dim objParaForm As ParagraphFormat
Set objParaForm = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange.ParagraphFormat
With objParaForm
If .ListType = pbListTypeArabic Then
.ListNumberSeparator = pbListSeparatorParenthesis
End If
End With