Discussion :

[locweb]

Bonjour,
dans un long document, je voudrais indexer toutes les pages ou l'on retrouve le même nom de famille, pour avoir par exemple dans la table:
Dupont P 56, 58, 86.
Durand P 2, 23, 89.
Y a t'il un moyen rapide de la faire, ou est-il plus simple de faire un tableau excel en parallèle ?
Merci.

[Heureux-oli]

Salut,

Pour indexer un mot dans un document, tu seléectionnes ce mot, tu fais Alt + Shif + X ou ajouter une entrée d'index.

Tu as la possibilité de marquer toutes les entrées.

Ensuite, tu va à la fin du document et tu insères un index.

[locweb]

Bonjour,
pour un mot cela marche, mais je retrouve le même mot à plusieurs endroits dans mon doc, et pour l'index je n'ai besoin que d'un mot, et des N° de page ou il se trouve.

[Heureux-oli]

Ben oui, mais lors de la création de l'index, les mots identiques sont rassemblés et on retrouve toutes les pages où ce mot se trouve.

[locweb]

OK, ça marche.
Peut on également indexer automatiquement les notes de bas de page ?
Je n'ai rien trouvé dans l'aide de word à ce sujet ?
Merci

[Heureux-oli]

Salut,
Pour les notes bas de page, je n'ai pas trouvé comment faire.

Essaie ceci

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
19
20
21
22
Sub notebasdepage()
Dim nbdp As Footnote
Dim oTbl As Table
Selection.EndKey wdStory
Set oTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, numrows:=2, numcolumns:=2)
oTbl.Rows(1).Cells.Merge
With oTbl.Cell(1, 1)
        .Range.Text = "Notes bas de page"
        .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Range.Font.Bold = True
End With
oTbl.Cell(2, 1).Range.Text = "Note"
oTbl.Cell(2, 2).Range.Text = "Page"
 
For Each nbdp In ActiveDocument.Footnotes
    oTbl.Rows.Add
    oTbl.Rows.Last.Cells(1).Range.Text = nbdp.Range.Text
    oTbl.Rows.Last.Cells(2).Range.Text = nbdp.Range.Information(wdActiveEndAdjustedPageNumber)
Next nbdp
 
 
End Sub

Ce code va créer un tabelau à la fin du document. Dan le première colonnes, tu auras les notes bas de page, dans la seconde, les pages.

[locweb]

Merci pour la macro, elle fonctionne très bien, je n'ai plus qu'à modifier la mise en page, et j'ai tout, c'est super.