Export PDF

[BASMACH]

Добрый день.
Появилась необходимость в макросе экспортировать выделенную область в формат PDF записал макрос. Возникла пара вопросов.
Вот сам макрос:

  Sub Macro2()
    ' Recorded 08.01.2015
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    With ActiveDocument.PDFSettings
        .PublishRange = 2 ' CdrPDFVBA.pdfSelection
        .PageRange = "1"
        .Author = "BASMACH"
        .Subject = ""
        .Keywords = ""
        .BitmapCompression = 0 ' CdrPDFVBA.pdfNone
        .JPEGQualityFactor = 2
        .TextAsCurves = True
        .EmbedFonts = True
        .EmbedBaseFonts = True
        .TrueTypeToType1 = True
        .SubsetFonts = True
        .SubsetPct = 80
        .CompressText = False
        .Encoding = 1 ' CdrPDFVBA.pdfBinary
        .DownsampleColor = False
        .DownsampleGray = False
        .DownsampleMono = False
        .ColorResolution = 300
        .MonoResolution = 1200
        .GrayResolution = 300
        .Hyperlinks = False
        .Bookmarks = False
        .Thumbnails = True
        .Startup = 3 ' CdrPDFVBA.pdfThumbnails
        .ComplexFillsAsBitmaps = False
        .Overprints = True
        .Halftones = False
        .MaintainOPILinks = False
        .FountainSteps = 256
        .EPSAs = 1 ' CdrPDFVBA.pdfPreview
        .pdfVersion = 4 ' CdrPDFVBA.pdfVersionPDFX1a
        .IncludeBleed = False
        .Bleed = 31750
        .Linearize = False
        .CropMarks = False
        .RegistrationMarks = False
        .DensitometerScales = False
        .FileInformation = False
        .ColorMode = 1 ' CdrPDFVBA.pdfCMYK
        .UseColorProfile = True
        .ColorProfile = 1 ' CdrPDFVBA.pdfSeparationProfile
        .EmbedFilename = ""
        .EmbedFile = False
        .JP2QualityFactor = 2
        .TextExportMode = 0 ' CdrPDFVBA.pdfTextAsUnicode
        .PrintPermissions = 0 ' CdrPDFVBA.pdfPrintPermissionNone
        .EditPermissions = 0 ' CdrPDFVBA.pdfEditPermissionNone
        .ContentCopyingAllowed = False
        .OpenPassword = ""
        .PermissionPassword = ""
        .EncryptType = 1 ' CdrPDFVBA.pdfEncryptTypeStandard
        .OutputSpotColorsAs = 0 ' CdrPDFVBA.pdfSpotAsSpot
        .OverprintBlackLimit = 95
    End With
    ActiveDocument.PublishToPDF "D:\pr\Безымянный-1.pdf"
End Sub

При дальнейшем использовании данного макроса выходит ошибка
на этот параметр

.UseColorProfile = True

Как это лечится? и ещё вопрос- можно ли настроить автоматическое открытие созданного PDF .
Благодарю