论word的color属性

pipiludaxian

wdColor.rar (7.92 KB, 下载次数: 6)

2015-2-24 09:45 上传

点击文件名下载附件

用变量代替具名常量，何以提示 类型不匹配呢
Sub colortest()
Dim mypar  As Paragraph
Dim mycol
For Each mypar In ActiveDocument.Paragraphs
    mycol = Left(mypar.Range.Text, Len(mypar.Range) - 1)
   Debug.Print mycol
   mypar.Range.Font.Color = mycol
Next
End Sub

闻启学

其实常量都是代表的某个数值

如果你这个的话 要转换什么

pipiludaxian

闻兄: 我是想看看color 属性的各个常量对应的颜色。

zhanglei1371

Debug.Print wdColorGray625就知道了
wdColorGray625并非是“wdColorGray625”

闻启学

zhanglei1371 发表于 2015-2-25 23:10
Debug.Print wdColorGray625就知道了
wdColorGray625并非是“wdColorGray625”

这个我知道 但是有无什么办法可以转换

pipiludaxian

Sub clte( )rem 累加串接常量
Dim mypar  As Paragraph
Dim mycol As Variant
For Each mypar In ActiveDocument.Paragraphs
    mycol = Left(mypar.Range.Text, Len(mypar.Range) - 1)
   t = t & mycol & ","
Next
Debug.Print t
End Sub

Sub insertcolval()
Dim myary
Dim myitm
Dim mypar As Paragraph

myary = Array(wdColorGray625, wdColorGray70, wdColorGray80, wdColorGray875, wdColorGray95, wdColorIndigo, wdColorLightBlue, wdColorLightOrange, wdColorLightYellow, wdColorOliveGreen, wdColorPaleBlue, wdColorPlum, wdColorRed, wdColorRose, wdColorSeaGreen, wdColorSkyBlue, wdColorTan, wdColorTeal, wdColorTurquoise, wdColorViolet, wdColorWhite, wdColorYellow, wdColorAqua, wdColorAutomatic, wdColorBlack, wdColorBlue, wdColorBlueGray, wdColorBrightGreen, wdColorBrown, wdColorDarkBlue, wdColorDarkGreen, wdColorDarkRed, wdColorDarkTeal, wdColorDarkYellow, wdColorGold, wdColorGray05, wdColorGray10, wdColorGray125, wdColorGray15, wdColorGray20, wdColorGray25, wdColorGray30, wdColorGray35, wdColorGray375, wdColorGray40, wdColorGray45, wdColorGray50, wdColorGray55, wdColorGray60, wdColorGray65, wdColorGray75, wdColorGray85, wdColorGray90, wdColorGreen, wdColorLavender, wdColorLightGreen, wdColorLightTurquoise, wdColorLime, wdColorOrange, wdColorPink)
For Each mypar In ActiveDocument.Paragraphs
    mypar.Range.Characters.Last.InsertBefore "◎" & myary(i)
    i = i + 1
Next
End Sub

pipiludaxian

以下为color属性各个具名常量的数值对应
wdColorGray625 ◎6316128
wdColorGray70 ◎5000268
wdColorGray80 ◎3355443
wdColorGray875 ◎2105376
wdColorGray95 ◎789516
wdColorIndigo ◎10040115
wdColorLightBlue ◎16737843
wdColorLightOrange ◎39423
wdColorLightYellow ◎10092543
wdColorOliveGreen ◎13107
wdColorPaleBlue ◎16764057
wdColorPlum ◎6697881
wdColorRed ◎255
wdColorRose ◎13408767
wdColorSeaGreen ◎6723891
wdColorSkyBlue ◎16763904
wdColorTan ◎10079487
wdColorTeal ◎8421376
wdColorTurquoise ◎16776960
wdColorViolet ◎8388736
wdColorWhite ◎16777215
wdColorYellow ◎65535
wdColorAqua ◎13421619
wdColorAutomatic ◎-16777216
wdColorBlack ◎0
wdColorBlue ◎16711680
wdColorBlueGray ◎10053222
wdColorBrightGreen ◎65280
wdColorBrown ◎13209
wdColorDarkBlue ◎8388608
wdColorDarkGreen ◎13056
wdColorDarkRed ◎128
wdColorDarkTeal ◎6697728
wdColorDarkYellow ◎32896
wdColorGold ◎52479
wdColorGray05 ◎15987699
wdColorGray10 ◎15132390
wdColorGray125 ◎14737632
wdColorGray15 ◎14277081
wdColorGray20 ◎13421772
wdColorGray25 ◎12632256
wdColorGray30 ◎11776947
wdColorGray35 ◎10921638
wdColorGray375 ◎10526880
wdColorGray40 ◎10066329
wdColorGray45 ◎9211020
wdColorGray50 ◎8421504
wdColorGray55 ◎7566195
wdColorGray60 ◎6710886
wdColorGray65 ◎5855577
wdColorGray75 ◎4210752
wdColorGray85 ◎2500134
wdColorGray90 ◎1644825
wdColorGreen ◎32768
wdColorLavender ◎16751052
wdColorLightGreen ◎13434828
wdColorLightTurquoise ◎16777164
wdColorLime ◎52377
wdColorOrange ◎26367
wdColorPink ◎16711935

pipiludaxian

用此程序 可给每段生成数值对应的颜色
Sub insertcolval02()
Dim myary
Dim myitm
Dim mypar As Paragraph
myary = Array(wdColorGray625, wdColorGray70, wdColorGray80, wdColorGray875, wdColorGray95, wdColorIndigo, wdColorLightBlue, wdColorLightOrange, wdColorLightYellow, wdColorOliveGreen, wdColorPaleBlue, wdColorPlum, wdColorRed, wdColorRose, wdColorSeaGreen, wdColorSkyBlue, wdColorTan, wdColorTeal, wdColorTurquoise, wdColorViolet, wdColorWhite, wdColorYellow, wdColorAqua, wdColorAutomatic, wdColorBlack, wdColorBlue, wdColorBlueGray, wdColorBrightGreen, wdColorBrown, wdColorDarkBlue, wdColorDarkGreen, wdColorDarkRed, wdColorDarkTeal, wdColorDarkYellow, wdColorGold, wdColorGray05, wdColorGray10, wdColorGray125, wdColorGray15, wdColorGray20, wdColorGray25, wdColorGray30, wdColorGray35, wdColorGray375, wdColorGray40, wdColorGray45, wdColorGray50, wdColorGray55, wdColorGray60, wdColorGray65, wdColorGray75, wdColorGray85, wdColorGray90, wdColorGreen, wdColorLavender, wdColorLightGreen, wdColorLightTurquoise, wdColorLime, wdColorOrange, wdColorPink)
For Each mypar In ActiveDocument.Paragraphs
    mypar.Range.Characters.Last.InsertBefore "◎" & myary(i)
    mypar.Range.Font.Color = myary(i)
     i = i + 1
NextEnd Sub