Recherche

 

Pour cela, il faut une petite macro :

 

Sub InsertAutoCorrectEntries()
Dim ACE As AutoCorrectEntry

' Create new document.
Documents.Add
' Iterate through AutoCorrect entries.
For Each ACE In Application.AutoCorrect.Entries
' Insert each entry name and its value on a new line.
Selection.TypeText ACE.Name & vbTab & ACE.Value & " " & vbCr
Next
' Format document for three columns.
With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=3
.EvenlySpaced = True
.LineBetween = True
.Width = InchesToPoints(1.67)
.Spacing = InchesToPoints(0.5)
End With
' Set TabStop for all three columns.
ActiveDocument.Paragraphs.TabStops(InchesToPoints(0.88)).Position = _
InchesToPoints(0.88)
End Sub


 

source : KB Microsoft

 

Statistiques

France 76,0% France
Canada 7,9% Canada
États-Unis d'Amérique 4,7% États-Unis d'Amérique

Total:

66

Pays
018274370
Aujourd'hui: 10
Hier: 145
Cette semaine: 693
Semaine dernière: 783
Ce mois: 2.632