Indexer automatiquement les mêmes occurences.

Version imprimable

16/06/2008, 09h03
locweb

Indexer automatiquement les mêmes occurences.

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.
16/06/2008, 09h28
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.
17/06/2008, 13h01
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.
17/06/2008, 13h23
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.
19/06/2008, 04h37
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

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

Essaie ceci

Code:

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.

21/06/2008, 07h25
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.
:lol: