Filehost.ro - gazduire fisiere
Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
Nou pe simpatie:
Lorena13 pe Simpatie.ro
Femeie
24 ani
Bucuresti
cauta Barbat
26 - 40 ani
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides /

[WORD] VBA to Make Button to Add / Remove Text Highlight

Pagini: 1 Moderat de TRaP, TonyTzu
#1
TRaP
Moderator
Postari: 960
Highlight Yellow:



Sub FontHighlightYellow()
    If Selection.Range.HighlightColorIndex = wdNoHighlight Then
        Options.DefaultHighlightColorIndex = wdYellow
'        Options.DefaultHighlightColorIndex = wdTurquoise _
        Options.DefaultHighlightColorIndex = wdBrightGreen _
        Options.DefaultHighlightColorIndex = wdPink _
        Options.DefaultHighlightColorIndex = wdBlue _
        Options.DefaultHighlightColorIndex = wdRed _
        Options.DefaultHighlightColorIndex = wdDarkBlue _
        Options.DefaultHighlightColorIndex = wdTeal _
        Options.DefaultHighlightColorIndex = wdGreen _
        Options.DefaultHighlightColorIndex = wdViolet _
        Options.DefaultHighlightColorIndex = wdDarkRed _
        Options.DefaultHighlightColorIndex = wdDarkYellow _
        Options.DefaultHighlightColorIndex = wdGray50 _
        Options.DefaultHighlightColorIndex = wdGray25 _
        Options.DefaultHighlightColorIndex = wdBlack _
        Options.DefaultHighlightColorIndex = wdNoHighlight
        Selection.Range.HighlightColorIndex = wdYellow
    Else
        Selection.Range.HighlightColorIndex = wdNoHighlight
    End If
End Sub


 
   
#2
TRaP
Moderator
Postari: 960
HIGHLIGHT NONE



Sub FontNoHighlight()
        Selection.Range.HighlightColorIndex = wdNoHighlight
        Selection.Shading.Texture = wdTextureNone
        Selection.Shading.ForegroundPatternColor = wdColorAutomatic
        Selection.Shading.BackgroundPatternColor = wdColorAutomatic
End Sub


 
   
Pagini: 1  
Mergi la