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. 		Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login

POZE MRRRR'S FORUM (VIEW ONLY)

Nu sunteti logat. 		Nou pe simpatie:
sweetandana
Femeie
25 ani
Teleorman
cauta Barbat
25 - 48 ani
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides / [WORD] Make Custom Fill Color Swatches [VBA] Moderat de TRaP, TonyTzu
Autor
Mesaj Pagini: 1
TRaP
Moderator

Inregistrat: acum 6 ani
Postari: 748
You can add these to the QAT



Sub FillGreenBright()
    'Selection.Shading.Texture = wdTextureNone
    Selection.Shading.BackgroundPatternColor = wdColorBrightGreen
End Sub

Sub FillTurquoise()
    'Selection.Shading.Texture = wdTextureNone
    Selection.Shading.BackgroundPatternColor = wdColorTurquoise
End Sub

Sub FillYellow()
    'Selection.Shading.Texture = wdTextureNone
    Selection.Shading.BackgroundPatternColor = wdColorYellow
End Sub

Sub FillRedLight()
    'Selection.Shading.Texture = wdTextureNone
    Selection.Shading.BackgroundPatternColor = 10066431 'a shade of red
End Sub

Sub FillNone()
    Selection.Shading.Texture = wdTextureNone
    Selection.Shading.ForegroundPatternColor = wdColorAutomatic
    Selection.Shading.BackgroundPatternColor = wdColorAutomatic
End Sub
pus acum 5 ani
   
TRaP
Moderator

Inregistrat: acum 6 ani
Postari: 748
Fill None updated to remove all the possible fills (I could find so far):



Sub FillNone()
    Selection.Shading.Texture = wdTextureNone
    Selection.Shading.ForegroundPatternColor = wdColorAutomatic
    Selection.Shading.BackgroundPatternColor = wdColorAutomatic
   
    Selection.Font.Shading.Texture = wdTextureNone
    Selection.Font.Shading.ForegroundPatternColor = wdColorAutomatic
    Selection.Font.Shading.BackgroundPatternColor = wdColorAutomatic
   
    Selection.Range.HighlightColorIndex = wdNoHighlight

End Sub
pus acum 4 ani
   
Pagini: 1  

Mergi la