Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

Dans un document comportant de nombreuses dates au format "jj mmmm aa" ou encore "jj mmmm aaaa", les espaces avant et après le mois sont des espaces ordinaires, ce qui fait que lors de modifications dans le document, un retour ligne automatique peut être inséré en plein milieu des dates. Pour éviter que les dates soient coupées, il faut insérer des espaces insécables à la place des espaces normaux.

La solution passe par une macro :

 

Sub DateInsécable()
'macro écrite par Jarry
DimAs Byte
Dim sInsécable As String
sInsécable = Chr(160)
With Selection.Find
For= 1 To 12
.Execute Format$(DateSerial(Year(Now), i, 1), " mmmm "), True, , , , , , wdFindContinue, _
False, sInsécable + Format$(DateSerial(Year(Now), i, 1), "mmmm"+ sInsécable, wdReplaceAll
Next i
End With
End Sub

 

 

Statistiques

Aujourd'hui2318
Hier2477
Cette semaine12501
Ce mois32869
Total depuis 200410889221

4
visiteurs actuellement en ligne