办公word里面对某些字集字符加颜色。

1在“选项”里把“开发工具”调出来。

2 用“替换”来作，适用于少量独立字符。
a先用python把字符的unicode打印出来。
print(ord(x))
比如，3672,3589,3630…
b复制下来，搞成一个vb的Array
dim myarray =Array(3672,3589,3639…)
c根据myarray的长度n(自己数)，
for i=0 to n-1
调用另一个sub，
比如 ：上色 myarray (i)
next
d 建立“上色”sub，点击开发工具。
按下录制宏，录下面动作的代码：
《在docx文档，control +h把替换窗口弄出来，输入字符，替换选择格式，按全部替换》
停止录制，可以在编辑宏里面看到代码。
把录制的宏改名为sub 上色 (x)
修改with语句里面的.Text=ChrW(x)
.Replacement.Text=ChrW(x)
e按下运行按钮，等待……
∴∴∴∴∴∴∴∴∴∴∴
另外一种方法是，设置range。
需要找到边界。混排文字，比如中文英，可以用AscW(text)的值来判断。<128则是英文。
然后查找selection的帮助慢慢整。下面是篇幅比较小的泰英混排，把泰文弄蓝。
for i =1 to 1000
selection.moveright unit:=wdword,count:=1,extend:=wdextend
p=selection.start
px=activedocument.range(start:=p,end:=p+1).Text
if ascw(px) 在3585和3675之间 then
'设定你的格式
selection.clearformatting
selection.font.color=wdcolorblue
…
end if
selection.collapse wdcollapseend
next