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

Yar

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

Alek32

Участник
Сообщения
25
Реакции
18
Код:
Sub toPDF()
    ActiveDocument.PublishToPDF ActiveDocument.FilePath & ActiveDocument.FileName & ".pdf"
End Sub
 
  • Спасибо
Реакции: Gad и Yar

Yar

Топикстартер
15 лет на форуме
Сообщения
518
Реакции
156
Мне бы с диалогом параметров, если можно:)
 

izrukvruki

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

Alek32

Участник
Сообщения
25
Реакции
18
Мне бы с диалогом параметров, если можно:)
так записать же действие можно

Код:
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
 
Последнее редактирование:
  • Спасибо
Реакции: Gad и Yar

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
У вас записанный вами же макрос не работает? И что говорит?