Discussion :

[Jeannot91]

Bonjour,
Dans un document Word 2011, je dois construire une table de contenu spéciale dans laquelle je voudrais insérer pour chaque ligne de rubrique (paragraphe d'un niveau "n"), le numéro de page correspondant.
Je précise que la TOC telle qu'on peut insérer automatiquement en début de document ne convient pas à mon usage.
Pour l'instant j'ai su insérer dans un tableau les titres de paragraphes et leurs niveaux mais je suis bloqué sur cette affaire de pagination.
Quelqu'un pourrait-il m'aider ?
Merci.

[Invité]

Bonjour,

La réponse vous est donnée par la premier lien en bas de votre message. C'est une réponse d'Heureux-Oli dont je me suis inspiré pour faire ce code :

Néanmoins n'ayant pas de Mac, je ne sais pas si celui-ci fonctionnera sur votre machine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub PaginerLeDocument()
 
Dim MonDocument As Document
Dim MonParagraphe As Paragraph
 
    Set MonDocument = ActiveDocument
    With MonDocument
         For Each MonParagraphe In .Paragraphs
             MonParagraphe.Range.Select
             If Len(Selection.Range.Text) > 1 Then
                MsgBox Selection.Information(wdActiveEndPageNumber)
             End If
         Next MonParagraphe
    End With
    Set MonDocument = Nothing
 
End Sub

[Jeannot91]

Bonjour,

La réponse vous est donnée par la premier lien en bas de votre message. C'est une réponse d'Heureux-Oli dont je me suis inspiré pour faire ce code :

Néanmoins n'ayant pas de Mac, je ne sais pas si celui-ci fonctionnera sur votre machine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub PaginerLeDocument()
 
Dim MonDocument As Document
Dim MonParagraphe As Paragraph
 
    Set MonDocument = ActiveDocument
    With MonDocument
         For Each MonParagraphe In .Paragraphs
             MonParagraphe.Range.Select
             If Len(Selection.Range.Text) > 1 Then
                MsgBox Selection.Information(wdActiveEndPageNumber)
             End If
         Next MonParagraphe
    End With
    Set MonDocument = Nothing
 
End Sub

Un grand merci à Eric pour cette réponse pertinente qui fonctionne parfaitement sur Mac

Jeannot91

[saiddz]

Bonsoir,

quelles sont les particularités qui font que certaines lignes de commande ne fonctionnent pas sur Mac?

Merci

[Invité]

Bonjour,

Sans doute qu'un MVP Word pourrait vous répondre.
De mon côté, j'imagine que le développement sur PC et sur MAC a pu être réalisé par des équipes projets différentes, peut-être en compétition et ou dimensionnées différemment, avec un budget développement proportionnel aux ventes pour chaque technologie. Cela me paraîtrait donc logique d'avoir fait l'impasse sur certains développements pour garantir un taux de rentabilité minimum.