フォーラムにcdrファイルをアップロードする方法

CDR files are not accepted here, unless they have changed it recently.
I suggest you ZIP the file.

411AING.zip

Thank you for your reply.
　I see that I can upload it as a zip file.
Actually, the uploaded file (411NG.cdr) does not seem to be able to be displayed in Adobe illustrator. the Corel version is 2023.
I exported the file as AI and sent it to my business partner, but they replied that they cannot see it, so I am having trouble.
　Of course, I can open and edit the file in Corel, but not in Adobe. I have contacted support, but so far they have not been able to find the cause of the problem. （I'm not sure if it's the export method or not.)
Do you know the cause of this problem?
By the way, is there any way to export as PDF compatible in Corel?

Translated with www.DeepL.com/Translator (free version)

wilkans68 said:

1. Is there an automated way of identifying these offending objects or the only way would be to painstakingly search for them manually?

macro fix negative width to Hairline on ActivePage (in Group - YES, and NO in PowerClip)

Sub FindMin()

ActiveDocument.Unit = cdrMillimeter

ActiveDocument.ActivePage.Shapes.FindShapes(Query:="@outline.width<{0 mm}").SetOutlineProperties 0.076

End Sub

wilkans68 said:

If it's a multipage document

By the way, colleagues noticed that the actual width of the outline is equal to what is shown, 
but without the minus. Those. -2mm is actually equal to 2mm.
In this regard, for a multi-page document, we find negative values ​​​​
of the contour thickness and change them to positive ones

Sub FndMin()
Dim wid As Double, s As Shape, srMin As New ShapeRange, p As Page
ActiveDocument.Unit = cdrMillimeter
For Each p In ActiveDocument.Pages
p.Activate
srMin.RemoveAll
Set srMin = ActiveDocument.ActivePage.Shapes.FindShapes(Query:="@outline.width<{0 mm}")
'MsgBox srMin.Count
For Each s In srMin
wid = s.Outline.Width
s.Outline.SetProperties -wid
Next s
Next p
End Sub