Recherche

 Voici une petite macro qui dresse un tableau des insertions automatiques (IA) du modèle du document actif.

Ce tableau indique aussi le style c'est à dire la catégorie de chaque IA, ce que ne fait pas l'impression.

 

Public Sub TableauIA()

If ActiveDocument.AttachedTemplate.AutoTextEntries.Count > 0 Then
Selection.EndKey Unit:=wdStory
ActiveDocument.Tables.Add Range:=Selection.Range, _<br>NumRows:=1, NumColumns:=3
For Each IA In ActiveDocument.AttachedTemplate.AutoTextEntries
Selection.TypeText Text:=IA.Name
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=IA.Value
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:=IA.StyleName
Selection.MoveRight Unit:=wdCell
Next IA
End If
End Sub

Statistiques

France 72,8% France
Canada 7,8% Canada
États-Unis d'Amérique 3,9% États-Unis d'Amérique

Total:

102

Pays
018295761
Aujourd'hui: 36
Hier: 228
Cette semaine: 1.424
Semaine dernière: 1.699
Ce mois: 264