1

Тема: Ошибка 4608 при выполнении макроса из VBA

Всех приветствую.
Может кто то раньше сталкивался с подобными выкрутасами ворда и знает где рыть? Ворд 2010, Винда 7, все последние обновления стоят. Имеется файл ворда формата doc полученный со стороны.
При установке значений размера бумаги и ориентации страниц, единых для всего документа(например А4, портрет) через форму "Параметры страницы" все изменения принимаются нормально.
Если запускать макрос, записанный при выполнении предыдущих изменений, он выдает ошибку 4608 "Значение лежит вне допустимого диапазона".
Проблемный файл прилагаю. Код самозаписанного макроса в файле.

Post's attachments

Документ.rar 18.84 Кб, 6 скачиваний с 2016-09-09 

You don't have the permssions to download the attachments of this post.

2

Re: Ошибка 4608 при выполнении макроса из VBA

mikkelle пишет:

Всех приветствую.
Может кто то раньше сталкивался с подобными выкрутасами ворда и знает где рыть? Ворд 2010, Винда 7, все последние обновления стоят. Имеется файл ворда формата doc полученный со стороны.
При установке значений размера бумаги и ориентации страниц, единых для всего документа(например А4, портрет) через форму "Параметры страницы" все изменения принимаются нормально.
Если запускать макрос, записанный при выполнении предыдущих изменений, он выдает ошибку 4608 "Значение лежит вне допустимого диапазона".
Проблемный файл прилагаю. Код самозаписанного макроса в файле.

Может просто код выложите отдельно? ошибку выбивает при распаковке.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3

Re: Ошибка 4608 при выполнении макроса из VBA

Fck_This пишет:

ошибку выбивает при распаковке.

Не знаю, проверил, все нормально скачивается и распаковывается.

Код самый незамысловатый. Привожу как его создала макрорекодер. Первую же ошибку выдает на строке
.LineNumbering.Active = False

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .Gutter = MillimetersToPoints(0)
        .PageWidth = MillimetersToPoints(210)
        .PageHeight = MillimetersToPoints(297)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionContinuous
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
End Sub