Macro for changing color of more then one paragraph text?

amjad.as1987 over 7 years ago

I have a file which have 48 small labels on A4 size and every time for new i have to change the number for each label. now what i did i am copying a range of 1 to 48 numbers from excel and paste it in corel as rich text format with macro i have recorded. problem is i am unable to change the color of these numbers which took from excel by macro all at once. I can do it by this way:

Sub Macro1()
ActiveLayer.Shapes(1).Shapes(1).Shapes(1).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(1).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(2).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(2).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(3).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(3).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(4).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(4).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(5).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(5).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(6).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(6).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(7).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(7).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(8).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(8).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(9).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(9).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(10).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(10).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(11).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(11).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(12).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(12).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(13).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(13).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(14).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(14).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(15).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(15).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(16).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(16).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(17).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(17).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(18).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(18).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(19).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(19).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(20).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(20).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(21).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(21).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(22).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(22).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(23).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(23).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(24).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(24).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(25).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(25).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(26).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(26).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(27).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(27).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(28).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(28).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(29).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(29).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(30).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(30).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(31).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(31).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(32).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(32).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(33).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(33).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(34).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(34).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(35).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(35).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(36).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(36).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(37).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(37).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(38).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(38).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(39).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(39).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(40).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(40).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(41).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(41).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(42).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(42).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(43).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(43).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(44).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(44).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(45).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(45).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(46).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(46).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(47).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(47).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
ActiveLayer.Shapes(1).Shapes(1).Shapes(48).Shapes(1).Fill.UniformColor.CMYKAssign 0, 0, 0, 100
ActiveLayer.Shapes(1).Shapes(1).Shapes(48).Shapes(1).Outline.SetProperties Color:=CreateCMYKColor(0, 0, 0, 100)
End Sub

but i want that how can i select all paragraphs at once and change its Fill and Outline color one time.

Question is if i have more then one paragraph text how can i change the Fill color and the outline color all of these?

0 Mek over 7 years ago

No macro needed, just use option Force CMYK Black when importing text
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 amjad.as1987 over 7 years ago in reply to Mek

Man i told you i want to change the color of these paragraphs text because we use it in three colors Cyan, Red and Black. i don't have problem for black but others. the code i sent you working but it is separated for each name i have 48 paragraphs text and for all of those 96 statements have to execute. I want to ask how to manage it in one statement because i am able to change its color by selecting it and then go to text properties and just one click for fill and send right click for outline color that's it and these things corel is not recording when i tried to record as a macro?
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Mek over 7 years ago in reply to amjad.as1987

Edit - Find & Replace - Replace Color - Fill or Outline
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 amjad.as1987 over 7 years ago in reply to Mek

Dear Mek, I am using corel since 2008 so i know the things you are telling me. i don't know much about macro so i am asking how to do it with micro please do not say me again that no need for macro as i already mention i want to manage it through macro.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Mek over 7 years ago

Sub Macro1()

Dim OS As ShapeRange
Set OS = ActivePage.Shapes.FindShapes(Type:=cdrTextShape)
ActiveDocument.BeginCommandGroup ("color")
For Each sh In OS
If sh.Text.IsArtisticText Then GoTo here:
sh.Fill.ApplyUniformFill CreateCMYKColor(0, 100, 100, 0)
sh.Outline.Color.CMYKAssign 0, 100, 100, 0
here:
Next sh
ActiveDocument.EndCommandGroup
End Sub
Cancel
Up 0 Down

Reply

Verify Answer

Cancel