[CDR 2017-2021] Экспорт в папку расположения

[Yar]

Есть ли какой-то макрос, экспортирующий файл в ту же папку, где он открыт? Стандартный экспорт и publish всё время спрашивают, куда изволите. Интересует экспорт pdf, конечно же.

 

[Alek32]

Sub toPDF()
    ActiveDocument.PublishToPDF ActiveDocument.FilePath & ActiveDocument.FileName & ".pdf"
End Sub

 

[Yar]

Мне бы с диалогом параметров, если можно

 

[izrukvruki]

Вы каждый раз меняете параметры экспорта PDF?
Проще нужные параметры зашить в макрос, и он будет вам делать "правильный" pdf

 

[Yar]

Вы каждый раз меняете параметры экспорта PDF?

Да, разные макеты для разных типографий и для разных типов бумаг.

 

[Alek32]

Мне бы с диалогом параметров, если можно

так записать же действие можно

Sub toPDF()
    With ActiveDocument.PDFSettings
        .PublishRange = 0 ' CdrPDFVBA.pdfWholeDocument
        .PageRange = ""
        .Author = "Вася Пупкин"
        .Subject = ""
        .Keywords = ""
        .BitmapCompression = 2 ' CdrPDFVBA.pdfJPEG
        .JPEGQualityFactor = 10
        .TextAsCurves = False
        .EmbedFonts = True
        .EmbedBaseFonts = True
        .TrueTypeToType1 = True
        .SubsetFonts = True
        .SubsetPct = 80
        .CompressText = True
        .Encoding = 1 ' CdrPDFVBA.pdfBinary
        .DownsampleColor = True
        .DownsampleGray = True
        .DownsampleMono = True
        .ColorResolution = 200
        .MonoResolution = 600
        .GrayResolution = 200
        .Hyperlinks = True
        .Bookmarks = True
        .Thumbnails = False
        .Startup = 0 ' CdrPDFVBA.pdfPageOnly
        .ComplexFillsAsBitmaps = False
        .Overprints = True
        .Halftones = False
        .MaintainOPILinks = False
        .FountainSteps = 256
        .EPSAs = 0 ' CdrPDFVBA.pdfPostscript
        .pdfVersion = 0 ' CdrPDFVBA.pdfVersion12
        .IncludeBleed = False
        .Bleed = 31750
        .Linearize = False
        .CropMarks = False
        .RegistrationMarks = False
        .DensitometerScales = False
        .FileInformation = False
        .ColorMode = 3 ' CdrPDFVBA.pdfNative
        .UseColorProfile = True
        .ColorProfile = 1 ' CdrPDFVBA.pdfSeparationProfile
        .EmbedFilename = ""
        .EmbedFile = False
        .JP2QualityFactor = 10
        .TextExportMode = 0 ' CdrPDFVBA.pdfTextAsUnicode
        .PrintPermissions = 0 ' CdrPDFVBA.pdfPrintPermissionNone
        .EditPermissions = 0 ' CdrPDFVBA.pdfEditPermissionNone
        .ContentCopyingAllowed = False
        .OpenPassword = ""
        .PermissionPassword = ""
        .EncryptType = 0 ' CdrPDFVBA.pdfEncryptTypeNone
        .OutputSpotColorsAs = 0 ' CdrPDFVBA.pdfSpotAsSpot
        .OverprintBlackLimit = 95
        .ProtectedTextAsCurves = True
    End With
    ActiveDocument.PublishToPDF ActiveDocument.FilePath & ActiveDocument.FileName & ".pdf"
End Sub

 

[_MBK_]

Да, разные макеты для разных типографий и для разных типов бумаг.

Запишите несколько стандартных вариантов и сделайте выбор из формочки

 

[Yar]

так записать же действие можно

Хороший макрос, жаль, не работает

 

[_MBK_]

У вас записанный вами же макрос не работает? И что говорит?