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

Yar

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

Alek32

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

Yar

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

izrukvruki

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

Alek32

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

Код:
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_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
28 762
Реакции
9 454

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
28 762
Реакции
9 454
У вас записанный вами же макрос не работает? И что говорит?