16.07.2014, 10:47
koter schrieb:Hallo LammertES,
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
Werde ich einmal ausprobieren, danke schonmal