user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

 

Public Sub MajSignet(NomSignet As String, TexteSignet As String)
' Macro écrite par Guy Moncomble
Dim Début As Long
Application.ScreenUpdating = False
If ActiveDocument.Bookmarks.Exists(NomSignet) Then
Début = ActiveDocument.Bookmarks(NomSignet).Range.Start
ActiveDocument.Bookmarks(NomSignet).Range.Text =TexteSignet
ActiveDocument.Bookmarks.Add Name:=NomSignet,
Range:=ActiveDocument.Range(Début, Début + Len(TexteSignet))
End If
Application.ScreenUpdating = True
End Sub

 

Statistiques

Aujourd'hui145
Hier3318
Cette semaine13562
Ce mois76359
Total depuis 200412594991

7
visiteurs actuellement en ligne

27 novembre 2020