14.07.2014, 20:24
Hallo LammertES,
mit folgendem Makro kann man unter X5 den Platzierungswinkel ganz überspringen,
Vielleicht klappt das auch unter X7.
Gruß
Koter
mit folgendem Makro kann man unter X5 den Platzierungswinkel ganz überspringen,
Code:
Sub Importieren()
On Error GoTo fehler
Dim Datei As String
Dim impopt As StructImportOptions
Dim impflt As ImportFilter
ActiveDocument.BeginCommandGroup "Importieren"
Set impopt = CreateStructImportOptions
impopt.MaintainLayers = True
Datei = CorelScriptTools.GetFileBox("alle Dateien (*.*)|*.*", "Datei importieren", 0, CurDir & "\*.*")
Set impflt = ActiveLayer.ImportEx(Datei, cdrAutoSense, impopt)
impflt.Finish
ActiveDocument.EndCommandGroup
Application.Refresh
fehler:
End Sub
Vielleicht klappt das auch unter X7.
Gruß
Koter