Corel Draw X6 Verknüpfungen

[koter]

Hallo Marcus,

Ich fische nur im Trüben (weil ich X6 nicht besitze).

Aber falls Du noch nicht aufgegeben hast, kannst Du ja noch mal folgendes versuchen.

Vielleicht hat das erste Makro die Verknüpfungen nicht vollständig gelöscht sondern nur überschrieben.

Das folgende Makro speichert die Datei als CMX. Dadurch sollten die Verknüpfungen weg sein. Danach wird die CMX wieder als CDR gespeichert und die Verknüpfungen neu eingefügt.

Code:

Sub Feld5cdr2Cmx()
    Dim Verkn() As String, Dateipfad As String, Dateiname As String
    Dim CMXDateiname As String, CDRDateiname As String
    Dim doc1 As Document
    Dim SaveOptions As StructSaveAsOptions
    Set SaveOptions = CreateStructSaveAsOptions
    With SaveOptions
        .Filter = cdrCDR
        .IncludeCMXData = False
    End With
    Dim expopt As StructExportOptions
    Set expopt = CreateStructExportOptions
    expopt.UseColorProfile = False
    Dim expflt As ExportFilter
    Dateipfad = ActiveDocument.FilePath
    Dateiname = ActiveDocument.FileName
    Debug.Print Dateipfad
    CMXDateiname = Dateipfad & Left(Dateiname, Len(Dateiname) - 4) & "_temp.cmx"
    CDRDateiname = Dateipfad & Left(Dateiname, Len(Dateiname) - 4) & "_temp.cdr"
    
    For i = 1 To ActiveLayer.Shapes.Count
        ReDim Preserve Verkn(i)
        Verkn(i) = ""
        Debug.Print i
        If ActiveLayer.Shapes(i).URL.Address <> "" Then
            Verkn(i) = ActiveLayer.Shapes(i).URL.Address
        End If
    Next i
    Set expflt = ActiveDocument.ExportEx(CMXDateiname, cdrCMX6, cdrCurrentPage, expopt)
    expflt.Finish
    ActiveDocument.Close
    Set doc1 = OpenDocument(CMXDateiname)
    doc1.SaveAs CDRDateiname, SaveOptions
    For i = 1 To UBound(Verkn)
        If Verkn(i) <> "" Then
            ActivePage.Shapes(i).URL.Address = Verkn(i)
        End If
    Next i
    doc1.Save
End Sub

Du meintest ja, dass bei neu angelegten Verknüpfungen die Hyperlinks funktionieren.

Die Chinesischen Zeichen von Norres Screenshot sind auch bei X4 und X5 da, und trotzdem erstellen diese Versionen funktionierendes HTML.

Gruß

Koter