Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
72 lines (45 sloc) 1.96 KB
title keywords f1_keywords ms.prod api_name ms.assetid ms.date
ParagraphFormat.ListNumberSeparator Property (Publisher)
vbapb10.chm5439526
vbapb10.chm5439526
publisher
Publisher.ParagraphFormat.ListNumberSeparator
63189011-12a0-c7bc-f6c6-7b17b0dcedf2
06/08/2017

ParagraphFormat.ListNumberSeparator Property (Publisher)

Sets or retrieves a PbListSeparator constant that represents the list separator of the specified paragraphs. Read/write.

Syntax

expression. ListNumberSeparator

expression A variable that represents a ParagraphFormat object.

Return Value

PbListNumberSeparator

Remarks

You must set the ListType property to a numbered list type before you set the ListNumberSeparator property. Returns an "Access Denied" message if the list is not a numbered list.

The ListNumberSeparator property value can be one of these PbListSeparator constants.

| pbListSeparatorColon| | pbListSeparatorDoubleHyphen| | pbListSeparatorDoubleParen| | pbListSeparatorDoubleSquare| | pbListSeparatorParenthesis| | pbListSeparatorPeriod| | pbListSeparatorPlain| | pbListSeparatorSquare| | pbListSeparatorWideComma|

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 property is set to pbListSeparatorParenthesis. Otherwise, the SetListType method is called and passed pbListTypeArabic as the pbListType parameter and then the ListNumberSeparator property can be set.

Dim objParaForm As ParagraphFormat 
 
Set objParaForm = ActiveDocument.Pages(1).Shapes(1) _ 
.TextFrame.TextRange.ParagraphFormat 
 
With objParaForm 
 If .ListType = pbListTypeArabic Then 
 .ListNumberSeparator = pbListSeparatorParenthesis 
 Else 
 .SetListType pbListTypeArabic 
 .ListNumberSeparator = pbListSeparatorParenthesis 
 End If 
End With