Recherche

Si c'est "rapidement", c'est avec une macro.

La macro suivante va insérer une case à cocher dans toutes les cellules de la première colonne du premier tableau.

Sub caseacocher()
Dim tablo, cellule
tablo = ActiveDocument.Tables(1)
For Each cellule In tablo.Columns(1).Cells
cellule.Select
Selection.Range.ContentControls.Add (wdContentControlCheckBox)
Next
End Sub

 

Si votre document comporte beaucoup de tableaux, et que vous n'avez pas envie de les compter..., cliquez juste dans la colonne du tableau qui doit contenir ces cases à cocher et lancez la macro suivante :

Sub caseacocher2()
Dim tablo, cellule, col
If Selection.Information(wdWithInTable) Then
col = Selection.Information(wdEndOfRangeColumnNumber)
Else
MsgBox "non tablo"
Exit Sub
End If
tablo = Selection.Tables(1)
For Each cellule In tablo.Columns(col).Cells
cellule.Select
Selection.Range.ContentControls.Add (wdContentControlCheckBox)
Next
End Sub

 

 

Statistiques

France 72,0% France
Canada 5,3% Canada
Chine 4,0% Chine

Total:

154

Pays
018462574
Aujourd'hui: 41
Hier: 376
Cette semaine: 1.424
Semaine dernière: 3.335
Ce mois: 10.502