New data Field in Object Data Manager

Hello together,

how can I find out out if a Data field exist, and when it doesn´t exist how can I create a new Data Field in VBA.

... and delete after them



Ver.: CorelDraw 11

Thanks for a clue.

[wOxxOm]

why Data fields? I like Shape.Properties, they seem more reliable

[shelbym]

If you use X3 or X4 you can use the DataFields.IsPresent, if not you need to write a function to do this for you. Here is one I have written.

Private Sub CheckDataItem(diName As String)
    Dim bFound As Boolean
    Dim df As DataField
    
    bFound = False
    
    For Each df In ActiveDocument.DataFields
        If df.name = diName Then
            bFound = True
            Exit For
        End If
    Next df
    
    If bFound = False Then ActiveDocument.DataFields.add diName, , True, True
End Sub

And you would call it like this:

CheckDataItem ("MyDataItemName")

I hope this helps, and if you have issues with the code please let me know.

-Shelby

Thanks a lot. It works under Corel 11

The reason why is a Excel Import of measurement points where every Excel cell get a Data field.

e.g.
sh.ObjectData("MP").Value = a
sh.ObjectData("Nr").Value = b
and many more.

Now I can at Runtime create the fields because if I used a other PC with my GMS the fields are not available. Then I got a Error message.

regards

Hello,

I can create a new field, but when I store the document and open the document, the field ist disappear and the text within the field "comments" at all shapes are erased.

When I create the field manual without vba, it works !

What can I do?

regards

[shelbym]

If all the shapes disappear are you sure you saved the document? I do not know of a bug that makes the shapes disappear. If you post your full code and a working example we can take a look and see what it might be.

-Shelby

Thanks for reply,

it´s only your code. I´ve create a new dokument and put only your code in it.

Then I created a circle, selected the circle and call the object data manager.
I gave the circle a name and put Text in the field "comment" (in German "Kommentare", perhaps the translation is wrong).

Now I used your macro. It created an new Field, e.g. "Field5"

Then I saved the doc und recalled the doc.

The "Field5" is disappear, also the text in the field "comment" from the circle.


Perhaps the reason is the "German Version" of Corel 11. Perhaps

regards


P.S. "Kommentare" is the third field from left and the first right from CDRStaticID
Name..Kosten....Kommentare.. CDRStatic..

Hi everybody!

Once we could count the number of DataFields in a file, could anyone tell me how could i refresh each DataField in a file?

That's why: I have Corel files, with lots of DataFields (parts of pasted sheets). I have to open each Corel file, one by one, and double click each DataObject, choose "edit", and then exit. When i exit the Excel sheet, the DataField in my Corel file is updated.

The "refresh macro" would do it in my behalf...

[shelbym]

Are you talking about the data fields in the Object Data Manager docker? How are they getting the data from Excel? Code?

-Shelby