1

Тема: Ошибка при запуске макроса

В общем, задание состоит в том, чтобы записать макрос, устанавливающий следующие параметры:
- альбомная ориентация страниц;
- шрифт – Arial, курсив, 15 пт, цвет – синий;
- полуторный междустрочный интервал;
- масштаб изображения - 25%;
- в конце документа - дата/время создания документа.
Записала, запускаю, вылазит сообщение:
Microsoft Visual Basic
Run-time error '5149':
Значение должно находиться в диапазоне от 0.7 пт до 1584 пт.

код макроса следующий:

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    If Selection.PageSetup.Orientation = wdOrientPortrait Then
        Selection.PageSetup.Orientation = wdOrientLandscape
    Else
        Selection.PageSetup.Orientation = wdOrientPortrait
    End If
    Selection.Font.Name = "Arial"
    Selection.Font.Size = 15
    Selection.ParagraphFormat.LineSpacing = LinesToPoints(32948)
    Application.Templates( _
        "C:\Users\AnaelWolf\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Built-In Building Blocks.dotx" _
        ).BuildingBlockEntries(" Пустой").Insert Where:=Selection.Range, RichText _
        :=True
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "CREATEDATE  \@ ""dd.MM.yyyy H:mm:ss"" ", PreserveFormatting:=True
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ActiveWindow.ActivePane.View.Zoom.Percentage = 25
End Sub

При нажатии в сообщении кнопки Debug, выделяет строчку
Selection.ParagraphFormat.LineSpacing = LinesToPoints(32948)

Подскажите, в чем проблема, что я не так делаю?

2

Re: Ошибка при запуске макроса

Вы всё делаете правильно, а вот макрос пишется неправильно. Замените проблемную строчку на эту:

    Selection.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
Лучше день потерять — потом за пять минут долететь!