Comment créer un tableau des insertions automatiques ?
- Détails
- Catégorie parente: Faq Word
- Catégorie : VBA solutions
- Mis à jour le mardi 18 octobre 2011 17:27
- Affichages : 3507
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'impresion.
Public Sub TableauIA()
' macro écrite par anacoluthe
If ActiveDocument.AttachedTemplate.AutoTextEntries.Count > 0 Then
Selection.EndKey Unit:=wdStory
ActiveDocument.Tables.Add Range:=Selection.Range, _
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
