VB-VBA-CORELVBA的问题(简单,请高手解答)!~~`悬100，再追分！

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:47:07
457132486412312347814056423

CorelDraw里有这么一段已经美术字,如果将这段字里面出现的"0"改为C100,M0,Y0,K0的颜色？用VBA代吗如何写？

回答对了再追分·！
看了你的回答我试了试.的确有用.

但是我上面说的0,只是打个比方,如果是中文字,比如说"个"这个字,我需要变成别的颜色,怎么弄呢?我试着把你写的a.text.find("0",1)里面的0,改成"个",可是却不能把页面中"个"字替换过来啊.

真是对不起,我没说清楚..这个回题解决后,我一定给你再追一百分..后面我再提问,也会一次200的哦.谢了.

呵呵.. 用不了几行代码呵.. 我这个打字店小工,天天都在用coreldraw呵.

Sub Macro1()
Dim a As Shape, n As Long, t As Text
For Each a In ActiveDocument.ActivePage.ActiveLayer.Shapes
If a.Type = 6 Then
n = a.Text.Find("0", False)
If n > 0 Then a.Text.Story.Characters.Item(n, 1).Fill.UniformColor.CMYKAssign 100, 0, 0, 0
End If
Next
End Sub

VB妮可，好强啊，还真有人会的，太历害了。
－－－－－－－－－－－－－－－－
天哪，这非一般人能解决的吧，在这个专区的人大部份都没用过CorelDraw的，你应该到CorelDraw的专区问的。