If it's not either of those colours, it does nothing. If the font is white, the code looks at the background colour, to see whether it's blue or black. The way the code works, it looks first at the font colour, to see whether it's white or black. Code: Sub HvitBlatt() = wdWhite .RGB = RGB(0, 0, 255) .TintAndShade = 0 = msoTrue End Sub ' ' ' ' Sub SvartGul() = wdBlack .RGB = RGB(255, 255, 0) .TintAndShade = 0 = msoTrue End Sub ' ' ' ' Sub HvitSvart() = wdBlack .RGB = RGB(255, 255, 255) .TintAndShade = 0 = msoTrue End Sub ' ' ' ' Sub SvartHvitt() = wdWhite .RGB = RGB(0, 0, 0) .TintAndShade = 0 = msoTrue End Sub '
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |