Problème avec ApplyListTemplate [Résolu]

[steveb]

Hello,

Je cherche à appliquer à un paragraphe un template de liste extrait d'un style. Pour cela, j'utilise le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Function ImportWithStyle(srcPar As Paragraph, newDoc As Document, styleName As String) As Paragraph
    Dim newPar As Paragraph
    Dim r As Range
    Dim styleToApply As style
    Set styleToApply = newDoc.Styles(styleName) ' find the style to apply. The style must exists
 
    ' get the end of the document range
    Set r = newDoc.Content
    r.Collapse direction:=WdCollapseDirection.wdCollapseEnd
 
    ' inject the formatted text from the source paragraph
    r.FormattedText = srcPar.Range.FormattedText
 
    ' apply list template from the target style.
    If Not styleToApply.ListTemplate Is Nothing Then
		r.ListFormat.ApplyListTemplate styleToApply.ListTemplate
    End If
 
    ' apply yhe style
    r.style = styleToApply
    Set newPar = newDoc.Paragraphs(newDoc.Paragraphs.Count - 1) 
 
    ' returns the newly created paragraph
    Set ImportWithStyle = newPar
End Function

Mon problème est assez étrange et apparait dans le bloc

Code :

1
2
3
   If Not styleToApply.ListTemplate Is Nothing Then
		r.ListFormat.ApplyListTemplate styleToApply.ListTemplate
    End If

Avant le passage dans ce bloc, styleToApply.ListTemplate vaut quelque chose, mais dès qu'on appelle ApplyListTemplate, styleToApply.ListTemplate devint nothing.

Pourquoi appliquer un modèle de liste à un paragraphe altérerait le style ???

Soit j'ai pas compris comment ça s'utilise, soit il y'a un soucis. Un peu d'aide serait la bienvenue !

[Heureux-oli]

Salut,

Hors contexte, j'ai peine à comprendre à quoi sert ton code.

[steveb]

Je comprend que c'est difficile à saisir sans le contexte, mais c'est également difficile à expliquer


Mon problème est qu'appliquer un style avec définition de liste ne "transforme" pas mon "1. " en dur dans le texte en "1. " d'une numération de liste.


Toutefois, j'ai fini par trouver une solution, un peu crade mais bon ... elle foncitonne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Function ImportWithStyle( _
    srcPar As Paragraph, _
    newDoc As Document, _
    styleName As String, _
    Optional applyBullet As Boolean = False, _
    Optional applyOutline As Boolean = False, _
    Optional applyRoman As Boolean = False, _
    Optional applyAlpha As Boolean = False, _
    Optional applyNumbered As Boolean = False
    ) As Paragraph
    Dim newPar As Paragraph
    Dim r As Range
    Dim styleToApply As style
    Set styleToApply = newDoc.Styles(styleName) ' find the style to apply. The style must exists
 
    ' get the end of the document range
    Set r = newDoc.Content
    r.Collapse direction:=WdCollapseDirection.wdCollapseEnd
 
    ' inject the formatted text from the source paragraph
    r.FormattedText = srcPar.Range.FormattedText
 
 
    ' apply list template from the target style.
 
    If applyBullet Then
        r.ListFormat.ApplyBulletDefault
    ElseIf applyNumbered Or applyRoman Or applyAlpha Then  ' Roman is a kind of numbering
        r.ListFormat.ApplyNumberDefault
    ElseIf applyOutline Then
        r.ListFormat.ApplyOutlineNumberDefault
    End If
 
 
    ' apply yhe style
    r.style = styleToApply
    Set newPar = newDoc.Paragraphs(newDoc.Paragraphs.Count - 1)
 
 
    ' returns the newly created paragraph
    Set ImportWithStyle = newPar
End Function

Le seul inconvénient, c'est que je dois, dans ma méthode appelante, savoir quel type de liste est définie dans mon style (pas trouvé le moyen de le faire de manière automatique).