CorelDRAW Graphics Suite X5 How to change some text in head with VBA without defined string or array

How to change some text in head with VBA without defined string or array

Hi,

I would like to write program in VBA which will find some text (which is in every document at the same place in table) and change it with another value.

The problem is that i don't know how to defined looking for values, but i don't want to defined strings.

Is this possible without predefined value?

Thank you for your answer!

Best regards,

Maraz

Parents

maraz over 8 years ago

Update!

Let me explain this:

In a document i have a few text and a few numbers (separated with lines - shape like table). I want to change one number, which is in every document at the same place and below the same text.

For example: Datum - below this text is datum in number; or Page - below this is page number. (In this two examples i want to change datum number and page number)

I don't know how to find this shape and change it. Which Query can i use?

Thank you for your answer.

Best regards,

Maraz
Cancel
Up 0 Down

Reply

Cancel
Mek over 8 years ago in reply to maraz

You can try to use SelectShapesAtPoint

sample code below is checking position x=105 mm, y = 148.5mm and if some shapes found there then duplicated to position x+15, y+50

Sub Test()
Dim sh As Shape
ActiveDocument.Unit = cdrMillimeter
Set sh = ActivePage.SelectShapesAtPoint(105, 148.5, True)
If sh.Shapes.Count > 0 Then
sh.Duplicate 15, 50
Else: MsgBox ("nothing to select!"): Exit Sub
End If
End Sub

Best regards,

Mek
Cancel
Up 0 Down

Reply

Cancel

Reply

maraz over 8 years ago in reply to Mek

Thank you for your reply!

Best regards,

Maraz
Cancel
Up 0 Down

Reply

Cancel

Children

No Data