Bonjour
En fait je commence à en avoir marre de colorer à la main mes DM d'info en Caml, donc j'ai pensé à faire des macros qui feraient mon boulot. Ca marche bien pour tout ce qui est coloration de mots clefs, mais je vois pas comment je pourrais faire pour les commentaires: par exemple, si j'ai un truc du genre
blabla (*ceci est un commentaire*)
J'aimerais que tout ce qui est entre (* et *) soit coloré. Si quelq'un sait comment faire, ca m'aiderais beaucoup!
Eric
Salut
Pour la macro Word, je ne sais pas, mais pour ce que tu veux faire tu peux utiliser un éditeur qui fait la coloration syntaxique.
Par exemple ConTEXT , il ne gère pas la coloration du Caml mais il est possible de définir soi même la façon de colorer un langage. Il permet également d'exporter les fichiers au format HTML ou au format RTF
Dommage que ca soit pour windows... (je suis sous Mac OSX)
Merci quand même.
Eric
pour mac je sais pas si ca marchera
j ai pas trouver certaine instruction donc j ai programme ca mechament
Sub Macro1()
Dim i As Long
Dim j As Long
'
For i = 1 To ActiveDocument.Characters.Coun t
If ActiveDocument.Characters(i) = "*" Then
For j = i + 1 To ActiveDocument.Characters.Coun t
If ActiveDocument.Characters(j) = "*" Then
Selection.MoveUp Unit:=wdScreen, Count:=100
Selection.MoveRight Unit:=wdCharacter, Count:=i - 1
Selection.MoveRight Unit:=wdCharacter, Count:=j - i + 1, Extend:=wdExtend
With Selection.Font
.Name = "Times New Roman"
.Size = 12
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorSeaGreen '<--- en vert
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
Exit For
End If
Next j
i = j
End If
Next i
End Sub
Je m'en vais tester ca tout de suite, un grand merci à toi Cricri
Ca marche, mais c'est très très lent (plus de 4 min pour deux pages lol), je vais voir s'il y a pas moyen de trouver une fonction intégré pour trouver le prochain indice du *.
