1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| ' Création d'une 3eme colonne pour n'afficher que l'heure
ActiveDocument.Tables(1).Columns.Add
'recherche de l'heure et copie de celle ci dans la 3eme colonne -----------------------------------------------
For i = 1 To ActiveDocument.Tables(1).Rows.Count
chaine = ActiveDocument.Tables(1).Cell(i, 2).Range.Text
chaine = Right(chaine, Len(chaine) - 25)
chaine = Left(chaine, 5)
chaine = Replace(chaine, "H", ":")
ActiveDocument.Tables(1).Cell(i, 3).Range.Text = chaine
Next i
'------------------------------------------------------------------------------------------------
'Tri par ordre chrono du tableau en utilisant la fonction tri de Word
ActiveDocument.Tables(1).Select
Selection.Sort ExcludeHeader:=False, FieldNumber:="Colonne 3", _
SortFieldType:=wdSortFieldDate, SortOrder:=wdSortOrderAscending, _
FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
wdSortSeparateByCommas, SortColumn:=False, CaseSensitive:=False, _
LanguageID:=wdFrench, SubFieldNumber:="Paragraphes", SubFieldNumber2:= _
"Paragraphes", SubFieldNumber3:="Paragraphes"
'------------------------------------------------------------------------------------
ActiveDocument.Tables(1).Columns(3).Delete |
Partager