Css 更改我的网页的整个颜色模式

背景：我正在为我的web应用程序开发一个主要的新功能版本，我想通过更新用户界面来“庆祝”一下会很好。因为我没有预算进行专业的重新设计，所以我想我可以对style.css表进行一些细微的更改

理想情况下，会有一个程序导入我的style.css表（颜色是围绕Windows XP设计的），并以Windows 7的样式导出一个新的style.css表。 虽然我看到过一些程序，允许你导入css表单，自己处理每种颜色，然后导出[我没有时间也没有眼睛去做的事情]，但我没有看到任何东西可以自动改变整个css表单，同时保持颜色之间的某种关联

我编写了下面的VBA代码[我知道它可能会有很大的改进，但我只是把它放在一起进行实验]，它将更改style.css表的所有颜色（如果它粘贴到活动Excel表的A列中）。假设CSS颜色以十六进制表示，例如#123456（其中12表示红色分量，34表示绿色分量，56表示蓝色分量），则当前代码使颜色的红色分量变大，蓝色分量变小。[请参阅函数makewarter]

子变更csscolors（）
对于j=1到1390'的行数
a=单元（j，1）
b=仪表（a，“#”）
如果b>0，则
aHex=UCase（中间（a、b+1、6））
如果isHexS（aHex），则
a=左侧（a，b）+加热器（aHex）+中部（a，b+7）
单元（j，1）=a
如果结束
如果结束
下一个j
端接头
函数isHex（aChar）
如果InStr（“ABCDEFabcdef01234567890”，aChar）>0，则isHex=True，否则isHex=False
端函数
函数isHexS（收敛）
对于j=1至Len（收敛）
b=中间（收敛，j，1）
如果不是isHex（b），则isHexS=False:退出函数
下一个j
isHexS=True
端函数
功能加热器（收缩）
b=addOneToChar（中间（阿斯特林，1，1））
c=亚网托卡尔（中（阿斯特林，5，1））
makewarer=addOneToChar（中（aString，1,1））+Mid（aString，2,1）+addOneToChar（中（aString，3,1））+Mid（aString，4,1）+addOneToChar（中（aString，5,1））+Mid（aString，6,1）
端函数
功能swapBlueGreen（aString）
swapBlueGreen=中间（收敛，3,2）+中间（收敛，1,2）+中间（收敛，5,2）
端函数
功能addOneToChar（aChar）
如果（aChar>=“0”和aChar=“A”和aChar=“1”和aChar=“B”和aChar，您可以将旧文档转换为SASS，并使用进行操作

这可能比自己编写程序更容易：）
这似乎比仅仅查找新颜色的十六进制值并使用文本编辑器的“全部替换”功能要复杂得多，而且不必要。我同意样式表中有3种颜色，但大约有100种颜色。